vba - Excel VBA从excel修改word doc - 集合成员错误

Question

运行下面的代码会显示“集合的请求成员不存在”所有搜索都没有产生解决方案。

Sub WordTemplate()


Dim objWordapp As Object
Set objWordapp = CreateObject("Word.Application")
fileStr = "\\int.chc.concepts.co.nz\users\CBotting\Documents\VBA programming\SD Basic Template.docx"

objWordapp.Documents.Open FileName:=fileStr
With objWordapp.Selection.Sections(1).Headers(wdHeaderFooterPrimary)
    If .Range.Text <> vbCr Then
        MsgBox .Range.Text
    Else
        MsgBox "Header is empty"
    End If
End With

End Sub

我尝试了许多不同的寻址 header 对象的变体

Answer 1

问题不在于后期绑定(bind)。问题是 VBA 不知道 wdHeaderFooterPrimary 的值。没有对 Microsoft Word xx.x 对象库的引用。我告诉 VBA wdHeaderFooterPrimary 的值，然后您的代码将在没有对 Word 库集的引用的情况下工作。

Sub WordTemplate()
    Const wdHeaderFooterPrimary = 1

    Dim objWordapp As Object
    Set objWordapp = CreateObject("Word.Application")
    fileStr = "\\int.chc.concepts.co.nz\users\CBotting\Documents\VBA programming\SD Basic Template.docx"

    objWordapp.Documents.Open Filename:=fileStr
    With objWordapp.Selection.Sections(1).Headers(wdHeaderFooterPrimary)
        If .Range.Text <> vbCr Then
            MsgBox .Range.Text
        Else
            MsgBox "Header is empty"
        End If
    End With

End Sub