Sub Macro1()
For i =  1  To ActiveDocument.Words.Count
    If ActiveDocument.Words(i).Font.Name =  "Arial"  And _
    ActiveDocument.Words(i).LanguageID = wdEnglishUS Then _
    ActiveDocument.Words(i).Font.Name =  "Verdana" 
Next
End Sub

Sub Macro1()
    Dim i As Integer
    i =  1 
    Do While i < ActiveDocument.Characters.Count
      If ActiveDocument.Characters(i).Text = Chr( 32 ) Then
        ' У меня почему-то не хочет удалять пробел,
        ' если он стоит в конце абзаца. Пришлось делать обманку
        If ActiveDocument.Characters(i +  1 ).Text = Chr( 13 ) Then _
        ActiveDocument.Characters(i).Text = Chr( 13 )
        ActiveDocument.Characters(i).Delete
      Else
        i = i +  1 
      End If
    Loop
End Sub