Loop through Word doc to find and reformat text

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

macropod · #2 01-06-2014, 02:30 PM

Quote:

Originally Posted by Sandy27

I also realised that I should be searching either for "cc" + Tab or, possibly, CR + "cc" + Tab. The nearest I have got is
...
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.

Your Find expression only looks for "cc" + Tab, without regard to what's before or after. Therefore, it will change just that combo wherever its found. With the code I posted, changing:
.Text = "^13cc [!^13]@^13"
to:
.Text = "^13cc[ ^t][!^13]@^13"
will act on all paragraphs starting with 'cc' followed by a tab or space. Similarly, deleting '.Start = .Start + 1' and the first ^13 will work on any "cc" + Tab/space, till the end of that paragraph.

Sandy27 · #3 01-06-2014, 03:48 PM

That did the trick. Thanks very much indeed Paul.

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