Loop through Word doc to find and reformat text

Sandy27 · #1 01-05-2014, 01:46 AM

I have created a Word file containing letters from an Access database. The font for the whole file is Times New Roman and fontsize 12. I send a copy of each letter to the subject and, at the end of each letter, there is a line that starts with “cc “ and is then followed by the name and address of the subject.

I have been trying to go through the document searching for “cc “, selecting the sentence and then changing the fontsize to 9, but I am struggling with the Word VBA. This is what I have so far:

Code:

With objWord.Visible = True 
    objDocs("Temporary.docx").Activate 
    .Selection.HomeKey unit:=wdStory 
    Do 
        With .Selection.Find 
            .Execute findtext:="cc " 
            .Wrap = wdFindStop 
            Selection.Extend 
            Selection.Extend 
            Selection.Extend 
            .ClearFormatting 
            .Font.Name = "Times New Roman" 
            .Font.Size = 12 
            .Text = "" 
            With .Replacement 
                .ClearFormatting 
                .Font.Size = 9 
                .Text = "" 
                .Collapse Direction:=wdCollapseEnd 
            End With 
        End With 
    Loop Until .Selection.Find.Found = False 
End With

I know my syntax is faulty, but am I using the right search term? Any help greatly appreciated.

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