Extracting Word form Data and exporting to Excel spreadsheet

[macropod]

Change:
Dim CCtrl As Word.ContentControl
to:
Dim FmFld As Word.FormField

Change:
strFile = Dir(strFolder & "\*.docx", vbNormal)
to:
strFile = Dir(strFolder & "\*.doc", vbNormal)

Change:

For Each CCtrl In .ContentControls
…
Next

to:

    For Each FmFld In ActiveDocument.FormFields
      j = j + 1
      With FmFld
        Select Case .Type
          Case Is = wdFieldFormCheckBox
           WkSht.Cells(i, j).Value = .Checked
          Case Else
           WkSht.Cells(i, j).Value = .Result
          Case Else
        End Select
      End With
    Next