Microsoft Office Forums - View Single Post - [Solved] Loop through Word doc to find and reformat text

Sandy27 · 01-06-2014, 02:01 PM

Thank you both very much for your help. Neither solution seemed to work initially and I have been experimenting with variations on the code. I also realised that I should be searching either for "cc" + Tab or, possibly, CR + "cc" + Tab. The nearest I have got is with this:

Code:

With .Documents("Temporary.docx").Range
  Do
    With .Find
      .ClearFormatting
      .Replacement.ClearFormatting
      .Text = "cc^9"
      .Replacement.Text = ""
      .Forward = True
      .Wrap = wdFindStop
      .Format = False
      .MatchWildcards = True
      .Execute
    End With
    .Font.Size = 9
    .Collapse 0 '0= wdCollapseEnd
    .Find.Execute
  Loop While .Find.Found
End With

which, bizarrely, changes every other "cc" + Tab to font size 9, but not the adjacent name and address (which is in a single line), but doesn't affect the rest of the letters, which remain at font size 12. I'd be grateful for any comments.