java读取word页码_VBA代码读取word文档页脚

我有一个完整的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