Formattazione automatica di un documento Word

[nicola75ss]

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).

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