How can I skip tables?
Code: Select all
Sub FixSubscript2()
With ActiveDocument.Range
With .Find
.Replacement.Font.Subscript = True
.ClearFormatting
.Replacement.ClearFormatting
.Forward = True
.Format = False
.Wrap = wdFindStop
.MatchWildcards = True
.Text = "X[0-9]{1,}"
.Replacement.Text = "^&"
.Replacement.Font.Subscript = True
.Execute Replace:=wdReplaceAll
.Text = "X"
.Replacement.Text = "^&"
.Replacement.Font.Subscript = False
.Execute Replace:=wdReplaceAll
End With
End With
End Sub