Mega Code Archive

 

Categories / VisualBasic Script / Word

 

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