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