Solved

Macro to Find & Replace Footer after section break

Posted on 2008-10-10
3
792 Views
Last Modified: 2012-05-05
Ok, i've a very simple macro that asks for user input on various things (such as Client Name) and uses this to run a find and replace through my body text.

As part of the document i have a section Break after the 1st page, which has a footer, a section break after the second page, which has no footer and from there on in there is a consistent footer.

A simple find and replace does not check the footer and when i add the instruction WordBasic.ViewFooterOnly it only checks the 1st footer when i need it to check after the second section break...

All help appreciated!
'This is my basic user input & find and replace
 

sPrompt = "Please enter Client Name"

    sTitle = "Client"

    sDefault = "CLIENT PROPERTIES LTD"

    sClient = InputBox(sPrompt, sTitle, sDefault)

    Selection.Find.ClearFormatting

    Selection.Find.Replacement.ClearFormatting

    With Selection.Find

        .Text = """CLIENT"""

        .Replacement.Text = sClient

        .Forward = True

        .Wrap = wdFindContinue

        .Format = False

        .MatchCase = False

        .MatchWholeWord = False

        .MatchWildcards = False

        .MatchSoundsLike = False

        .MatchAllWordForms = False

    End With

    Selection.Find.Execute Replace:=wdReplaceAll
 

'This is where it should be checking the footer
 

sPrompt = "Please enter your Project Number"

    sTitle = "Project Number"

    sDefault = "Project Number"

    sPNo = InputBox(sPrompt, sTitle, sDefault)

    WordBasic.ViewFooterOnly

    Selection.Find.ClearFormatting

    Selection.Find.Replacement.ClearFormatting

    With Selection.Find

        .Text = """Proj No"""

        .Replacement.Text = sPNo

        .Forward = True

        .Wrap = wdFindContinue

        .Format = False

        .MatchCase = False

        .MatchWholeWord = False

        .MatchWildcards = False

        .MatchSoundsLike = False

        .MatchAllWordForms = False

    End With

    Selection.Find.Execute Replace:=wdReplaceAll

Open in new window

0
Comment
Question by:NAORC
  • 2
3 Comments
 
LVL 23

Expert Comment

by:irudyk
ID: 22692745
Try something like the following:
'This is my basic user input & find and replace

 

sPrompt = "Please enter Client Name"

    sTitle = "Client"

    sDefault = "CLIENT PROPERTIES LTD"

    sClient = InputBox(sPrompt, sTitle, sDefault)

    Selection.Find.ClearFormatting

    Selection.Find.Replacement.ClearFormatting

    With Selection.Find

        .Text = """CLIENT"""

        .Replacement.Text = sClient

        .Forward = True

        .Wrap = wdFindContinue

        .Format = False

        .MatchCase = False

        .MatchWholeWord = False

        .MatchWildcards = False

        .MatchSoundsLike = False

        .MatchAllWordForms = False

    End With

    Selection.Find.Execute Replace:=wdReplaceAll
 
 

'This is where it should be checking the footer

Dim rng As Range

 

sPrompt = "Please enter your Project Number"

    sTitle = "Project Number"

    sDefault = "Project Number"

    sPNo = InputBox(sPrompt, sTitle, sDefault)

    For Each rng In ActiveDocument.StoryRanges

        Do

            With rng.Find

                .ClearFormatting

                .Replacement.ClearFormatting

                .Text = """Proj No"""

                .Replacement.Text = sPNo

                .Forward = True

                .Wrap = wdFindContinue

                .Format = False

                .MatchCase = False

                .MatchWholeWord = False

                .MatchWildcards = False

                .MatchSoundsLike = False

                .MatchAllWordForms = False

                .Execute Replace:=wdReplaceAll

            End With

            Set rng = rng.NextStoryRange

        Loop Until rng Is Nothing

    Next rng

Open in new window

0
 
LVL 5

Author Comment

by:NAORC
ID: 22701280
Irudyk,

Thanks - Not to sound ungrateful, but while this solves the problem it takes about 2 minutes to run that section of the code. It's only a 14 page document (Office 2007). Any ideas on how it can be sped up at all?

Thanks!
0
 
LVL 23

Accepted Solution

by:
irudyk earned 125 total points
ID: 22702321
Hmm, okay well try modifying that section of the code to be:
    For Each rng In ActiveDocument.StoryRanges

        Select Case rng.Information(wdHeaderFooterType)

            Case 2, 3, 5    'range is in a footer section

                Do

                    With rng.Find

                        .ClearFormatting

                        .Replacement.ClearFormatting

                        .Text = """Proj No"""

                        .Replacement.Text = sPNo

                        .Forward = True

                        .Wrap = wdFindContinue

                        .Format = False

                        .MatchCase = False

                        .MatchWholeWord = False

                        .MatchWildcards = False

                        .MatchSoundsLike = False

                        .MatchAllWordForms = False

                        .Execute Replace:=wdReplaceAll

                    End With

                    Set rng = rng.NextStoryRange

                Loop Until rng Is Nothing

            Case Else

        End Select

    Next rng

Open in new window

0

Featured Post

Highfive + Dolby Voice = No More Audio Complaints!

Poor audio quality is one of the top reasons people don’t use video conferencing. Get the crispest, clearest audio powered by Dolby Voice in every meeting. Highfive and Dolby Voice deliver the best video conferencing and audio experience for every meeting and every room.

Join & Write a Comment

When creating Microsoft Word-based forms there may be a need to have a form field repeated throughout the whole document. For instance, with a company name, you may want this information repeated automatically throughout the document rather than man…
If you work with Word a lot, you probably use styles. If you use styles a lot, you've probably balled your fist more often than not when working with the ribbon. In Word 2007/2010, one of the things that I find missing when using styles is a quic…
This video shows the viewer how to set up and create Footnotes in their document. Click on the References tab: Select "Insert Footnote": Type in desired text:
This video shows where to find templates, what they are used for, and how to create and save a custom template using Microsoft Word.

705 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

19 Experts available now in Live!

Get 1:1 Help Now