VBA代碼讀取Word文檔頁腳

Question

我有一個完整的Word文檔表單文件夾，並且我有一個excel文件，可以將表單上的所有答案讀入電子表格的不同工作表中。 數據導出到的工作表取決於word文檔的文件名。

目前，這可以正常工作。

但是，我現在需要它能夠考慮存儲在word文檔頁腳中的表單的版本號，但是我不知道如何引用它。

對於VBA來說，我是一個菜鳥，所以還沒有嘗試很多。

我嘗試過的VBA可以在下面找到，但不足為奇。

Sub ReadWordDoc(filenme As String)

Dim Val As String
Dim WrdDoc As Document
Dim FormFieldCounter As Integer

Dim version As String

Set wordapp = CreateObject("word.Application")
wordapp.Documents.Open filenme
wordapp.ScreenUpdating = False

Set WrdDoc = wordapp.Documents(filenme)
wordapp.Visible = True

version = WrdDoc.Sections(1).Footers(wdHeaderFooterFirstPage).Range.Text

FormFieldCounter = 1

If InStr(version, "5.00") Then

    RowCounter = RowCounter + 1

    Sheets("Version 5").Cells(RowCounter, FormFieldCounter) = filenme

    Do While FormFieldCounter <= 125
    WrdDoc.FormFields(FormFieldCounter).Select
    Val = WrdDoc.FormFields(FormFieldCounter).result
    Sheets("Version 5").Cells(RowCounter, FormFieldCounter + 1) = Val

    FormFieldCounter = FormFieldCounter + 1

    Loop

    wordapp.Documents(filenme).Close SaveChanges:=wdDoNotSaveChanges
    wordapp.Quit

Else

    'Do something else

End If


End Sub

Answer 1

在玩了一會兒游戲和一個Google之后，我發現此頁面可以幫助我解決問題https://msdn.microsoft.com/en-us/library/office/aa221970(v=office.11​​).aspx

我將代碼更改如下：

version = WrdDoc.Sections(1).Footers(wdHeaderFooterPrimary).Range.Text

盡管我不確定為什么以前的版本不起作用，因為首頁上有頁腳。