title: Copy header from MS Word to Excel
body: <p>I have an Excel VBA code that copies the content of the MS word file:</p>
  
  <pre><code>'Open PDF file in MS Word
  Set wordApp = CreateObject("Word.Application")
  Set wordDoc = wordApp.Documents.Open(PDFfilepath, ConfirmConversions:=False, ReadOnly:=False)
  With wordDoc
           Worksheets.Add(After:=Worksheets(Worksheets.Count)).Name = convertSheetName
          .Range(.Content.Start, .Content.End).Copy
  End With
  
  wordApp.Quit
  convertedFile_Wb.Activate
  Sheets(convertSheetName).Select
  ActiveSheet.Paste
  Range("A1").Select
  Sheets(convertSheetName).Cells.EntireColumn.AutoFit
  Sheets(convertSheetName).Cells.EntireRow.AutoFit
  </code></pre>
  
  <p>How to copy all data including headers and footers even if they are blank or not and paste all of it to Excel?</p>
  
  <p>I don't know if this have something to do with sections in Word.</p>