Loop through Word doc to find and reformat text

Sandy27 · #4 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.

Thread Tools
Show Printable Version Email this Page
Display Modes
Switch to Linear Mode Switch to Hybrid Mode Threaded Mode

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Loop action in Word until not found	kilburfi	Word VBA	2	07-12-2013 01:26 AM
Reformat line lengths	joe925	Word	1	03-18-2013 05:06 PM
reformat file	renato	Word	1	06-13-2012 06:32 AM
Macro to loop in Word	Yamaha Rider	Word VBA	2	02-07-2012 05:33 PM
Bad view when using Find and Find & Replace - Word places found string on top line	paulkaye	Word	4	12-06-2011 11:05 PM