Sure, here is a VBA code that you can use to extract headings from word files to Excel:

Sub ExtractHeadings()

'Declare variables
Dim doc As Word.Document
Dim headings As Variant
Dim i As Integer

'Get the active document
Set doc = ActiveDocument

'Get all the headings in the document
headings = doc.Range.FindAll("^HEADING", , True, , True, False)

'Create an Excel spreadsheet
Set xlApp = CreateObject("Excel.Application")
Set xlWbk = xlApp.Workbooks.Add
Set xlSht = xlWbk.Sheets.Add

'Loop through all the headings
For i = 1 To UBound(headings)

'Add the heading to the Excel spreadsheet
xlSht.Cells(i, 1).Value = headings(i).Text

Next i

End Sub

This code first declares a few variables:

• doc is a variable of type Word.Document that represents the active document.
• headings is a variable of type Variant that will contain the list of all the headings in the document.
• i is a variable of type Integer that will be used to loop through the headings.

The code then gets the active document using the ActiveDocument property. It then uses the FindAll method to get all the headings in the document. The FindAll method takes four arguments:

• The text you want to find.
• A flag that indicates whether or not you want to match the case of the find what text.
• A flag that indicates whether or not you want to match the whole word.
• A flag that indicates whether or not you want to match the find what text in the current selection.

In this case, we are setting the matchCase and matchWholeWord flags to true. This means that the FindAll method will only match headings that are in the same case and that are whole words.

The code then creates an Excel spreadsheet using the Workbooks.Add method. It then creates a new worksheet using the Sheets.Add method.

The code then loops through all the headings in the document. For each heading, the code adds the heading to the Excel spreadsheet using the Cells property.

To use this code, you would first need to insert it into a new or existing Word VBA project. You would then need to run the code. When running the code, the code will extract all the headings from the active document and add them to a new Excel spreadsheet.