Converting the headers & footers into body

Guessed · #1 06-08-2021, 02:49 PM

I don't know how to convert VBA code to Python but this should give you an idea on how you could copy the headers and footers into the body of the document.

Code:

Sub HFExtractor()
  Dim aSect As Section, aHF As HeaderFooter, aRng As Range
  For Each aSect In ActiveDocument.Sections
    For Each aHF In aSect.Headers
      Set aRng = aSect.Range
      aRng.Collapse Direction:=wdCollapseEnd
      aRng.FormattedText = aHF.Range.FormattedText
    Next aHF
    For Each aHF In aSect.Footers
      Set aRng = aSect.Range
      aRng.Collapse Direction:=wdCollapseEnd
      aRng.FormattedText = aHF.Range.FormattedText
    Next aHF
  Next aSect
End Sub

CaptainCsaba · #2 06-08-2021, 11:21 PM

Quote:

Originally Posted by Charles Kenyon

Try opening directly in Word and using Word to convert one.

Unfortunately it has the same result.

Quote:

Originally Posted by Guessed

I don't know how to convert VBA code to Python but this should give you an idea on how you could copy the headers and footers into the body of the document.

Code:

Sub HFExtractor()
  Dim aSect As Section, aHF As HeaderFooter, aRng As Range
  For Each aSect In ActiveDocument.Sections
    For Each aHF In aSect.Headers
      Set aRng = aSect.Range
      aRng.Collapse Direction:=wdCollapseEnd
      aRng.FormattedText = aHF.Range.FormattedText
    Next aHF
    For Each aHF In aSect.Footers
      Set aRng = aSect.Range
      aRng.Collapse Direction:=wdCollapseEnd
      aRng.FormattedText = aHF.Range.FormattedText
    Next aHF
  Next aSect
End Sub

I can call VBA codes from Python so they are definitely useful. I ran your code and it does extract headers just as needed. Only problem is that they all get added in bulk at the beginning of the next section. I need to retain their original position as much as possible (at least so they come after the text the come after in the PDF).

Might be a stupid idea as I am unfamiliar with how Word works, but can we for example get the x,y coordinates of these paragraphs and insert text "above them". Or something similar so we can keep the position as closely as possible?

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
headers/footers	scot	Word	3	05-22-2015 09:45 AM
Headers and Footers	Kingsmoss	Word	3	04-28-2014 02:43 PM
Odd and Even Headers/Footers	sarineochaos	Word	1	02-04-2014 06:15 PM
Headers and Footers	teza2k06	Word	1	05-14-2013 11:07 AM
Headers and Footers	OverAchiever13	Word	1	05-27-2010 01:30 PM