macro til søg og erstat

Hvorfor ikke bruge søg og erstat. I dialogboksen som fremkommer med Ctrl-H trykkes på knappen "Flere". Når du står i feltet "Søg efter:" trykker du på knappen "Formater". Her kan du så vælge hvilken font der skal søges efter. Samme fremgangsmåde ved "Erstat med:".

Public Sub FontReplacer()
    Const sFontFrom As String = "Arial"
    Const sFontTo As String = "Times New Roman"
    Dim lCount As Long
   
    With ActiveDocument
        For lCount = 1 To .Characters.Count
            With .Characters(lCount).Font
                If .Name = sFontFrom Then
                    .Name = sFontTo
                End If
            End With
        Next lCount
    End With
End Sub