Word VisualBasic Script

  1. Home
  2. VisualBasic Script
  3. Word
  4. Changes all bold formatting in the open document named Example doc to italic formatting
Sub change()
  With Documents("Example.doc").Content.Find
      .ClearFormatting
      .Font.Bold = True
      With .Replacement
          .ClearFormatting
          .Font.Bold = False
          .Font.Italic = True
      End With
      .Execute FindText:="A", ReplaceWith:="B", _
          Format:=True, replace:=wdReplaceAll
  End With
End Sub