Originariamente inviato da natasha
Buongiorno a tutti,
ho un testo, del tutto grezzo, senza titoli o altro.
Vorrei fare in modo che, "in una sola passata", per tutte le occorrenze di una parola, per esempio "Sezione", la riga che ospita la parola abbia una certa formattazione (es. grassetto centrato), e venga inserita automaticamente una riga vuota prima.
E' possibile?
Prova a registrare questa macro e a eseguirla (per sicurezza magari testala su una copia del tuo file).
codice:
Sub formatta()
Dim p As Paragraph
Dim cerca As String
cerca = "sezione"
For Each p In ActiveDocument.Paragraphs
With p.Range
If InStr(.Text, cerca) > 0 Then
.Font.Bold = True
.ParagraphFormat.Alignment = wdAlignParagraphCenter
.InsertParagraphBefore
End If
End With
Next p
End Sub