How to copy text and header and footer from one document to another   

Hello,

I have a macro that opens a document, selects the text and then copies
it at the top of the active document, which works well to copy the
body text, but I can't work out how to also copy the header and
footer. The header contains an image and the footer text.

Below is what I currently have:

Dim strFileName As String
strFileName = "C:\Fax Header Source.doc"
Documents.Open (strFileName)

    Dim rngHeaderText As Range
    Set rngHeaderText = ActiveDocument.Content

        With rngHeaderText
            .Copy
        End With

ActiveDocument.Close (wdDoNotSaveChanges)

With ActiveDocument
    Selection.HomeKey Unit:=wdStory
End With

Selection.PasteAndFormat (wdPasteDefault)


Any advice on how to also copy the header and footer will be greatly
appreciated!

Regards

Michelle M

date: Wed, 21 Nov 2007 23:47:05 -0800 (PST)   author:   unknown

Re: How to copy text and header and footer from one document to another   

Hi Michelle,

you cannot copy a header or footer to another document,
only the contents of it, and you should be aware of
that pagesetup and sections in your target document
should be the same as in the source document.

You may record something like that in the source doc:

   ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
   Selection.WholeStory
   Selection.Copy
   ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument

open the target doc, do the same,
except copying but pasting.

There are other ways, but as this is the beginners' group...


HTH
--

Greetings from Bavaria, Germany

Helmut Weber, MVP WordVBA

Vista Small Business, Office XP

date: Thu, 22 Nov 2007 17:31:08 +0100   author:   Helmut Weber