Find/Replace Loop - argh !

[BrianB]

Try this :-

    With Selection.find
        .ClearFormatting
        .Style = ("TableAnchor")
        .Replacement.ClearFormatting
        .Replacement.Style = ("TableAnchor1point")
        .Execute FindText:="", ReplaceWith:="", _
            Replace:=wdReplaceAll, Format:=True
    End With