Loop through Word doc to find and reformat text

macropod · #3 01-05-2014, 03:29 PM

I believe you could use something like:

Code:

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

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