Make headers/footers as regular text

March 13, 2010 at 11:48:12
Specs: Windows Vista
I'm converting PDF's into Word documents and MS Word 2007 is detecting text on the top and bottom as headers and footers and I must have all text in the document show up as regular text. Please help me, thanks!

See More: Make headers/footers as regular text

Report •

March 14, 2010 at 11:35:31

What program are you using to convert the PDF documents into Word.


Report •

March 14, 2010 at 16:46:12
Sorry for the late response.

Apparently, I saw that I had a reply but could not see it. I'm using Opera brower. I'm using Firefox to see my reply.

Anyway, I'm using Abbyy PDF Tranformer 3 to convert into PDF to Word doc.

Report •

March 15, 2010 at 11:46:52

So I guess the problem and possibly the solution lies with the converter program. I don't know the one you mention, but OmniPage Pro which includes a PDF to Word function allows you to retain (or not) headers and footers.

It would be worth checking in options or setup in the program for header and footer options.

I would expect that if the PDF to Word program, as it finds a new header it will start a new section, so that it can save the new header &/or footer.

If this is the case, I wrote a short routine which takes the header in each section and places it before the first paragraph in that section and takes the footer and places it after the last paragraph in the section.

I have only tried it on a small document and have no idea how it might work in a complex converted document. Some PDF to Word documents make extensive use of frames to hold and position text, and I don't know how this macro would work.

You are welcome to try this macro - it would be placed in a new Module in the Normal document in the VB window (Alt + f11).

If you try this, make sure that you work with backup copies of your documents as the changes cannot be undone with the Undo button.

Note that this is a very basic macro with minimal testing!

Sub HdrFtr()
Dim objSect As Section
Dim rngHdFt As Range

For Each objSect In ActiveDocument.Sections()
    Set rngHdFt = objSect.Headers(1).Range
    objSect.Range.Paragraphs(1).Range.InsertBefore (rngHdFt.Text)
    Set rngHdFt = objSect.Footers(1).Range
    objSect.Range.Paragraphs(objSect.Range.Paragraphs.Count - 1) _
            .Range.InsertAfter (rngHdFt.Text)
Next objSect

End Sub


Report •

Related Solutions

March 15, 2010 at 18:34:00
Wow, thanks, however, I don't think we are able to use this.

Report •

Ask Question