Word [2003]

[davidml]

hi, I need to search for an email addresses within the header of a number of documents and then replace the contents of the footer dependant upon the email address.

for instance if a document has [email protected] then i will replace the footer address with address A. If the email address is [email protected] then it will have address B.

There are probably 10 different email addresses and a few thousand word documents.

What I would like to do is to have it run as an auto macro make the change and save/close the document.I can then select a number od documents at once.

Any help - Sorry I am not a developer.

[RobDog888]

Welcome to the Forums.

One of the easiest ways to get a start with programming for most aoffice apps is to record a macro of your task and view the generated module code.

http://vbforums.com/showthread.php?t=402032

There is a .Find function that also has a .ReplaceText property that you can specify.

Generate some basic code and we can modify it to your specific needs.

[davidml]

Thank you for your comments.

I have looked at the .find and .replace functions but cannot see a way to finding one thing in a document but replacing something else.

I cannot just replace the footer addresses as they are currently either missing or the same. I therefore need to categorise these by the email address and apply the appropiate postal address in the footer.

[RobDog888]

Hmm, these situations are always "fun"

I guess you would have to do a loop passing each of the 10 email addresses and if none are found then write out the default addy and postal info.

[westconn1]

you can try like this

Dim d As Document, somefolder As String, myfile As String, myfooter As String
Dim myheader As String
somefolder = Environ("userprofile") & "\My Documents\"
myfile = Dir(somefolder & "*.doc")
Do While Len(myfile) > 0
    Set d = Documents.Open(somefolder & myfile)
    myheader = d.Sections(1).Headers(1).Range.Text
    Select Case Left(myheader, Len(myheader) - 1)
        Case ("[email protected]")
            myfooter = "some address"
        Case "[email protected]"
            myfooter = "someother address"
        Case Else
            myfooter = "generic address for other cases"
    End Select
    d.Sections(1).Footers(1).Range.Text = myfooter
    myfile = Dir
Loop

this look for the files in somefolder, (my documents, in the code), you can expand the select case for all your addresses, if the headers or footers contain additional text you will have to modify the routine to find or add the bits you want