合并word文档

Question

我正在尝试将 6 个文档（在一个文件夹中）粘贴/合并到一个包含所有这些文档的新文档中。 VBA 代码应该从创建所有文档的 Excel 模板运行，然后应该通过宏合并在一起。

但是，我明白了

运行时错误 438：对象不支持此属性或方法

每次我尝试运行InsertFile 行。我猜问题在于从 Excel 到 Word VBA 的过渡（？）

有什么想法或想法吗？

  Sub MergeALL()
       Dim objWord
       Dim objDoc
       Set objWord = CreateObject("Word.Application")
       Set objDoc = objWord.Documents.Add
       objWord.Visible = True

'opens a new word document
Documents.Add
Dir "\\rz_sixt\user\Home\Pictures" 'change to OutputFilePath ?
MyName = Dir("*.docx")
While MyName <> ""
 With Selection
 .InsertFile Filename:=MyName, ConfirmConversions:=False, Link:=False, Attachment:=False
 .InsertParagraphAfter
 .InsertBreak Type:=wdSectionBreakNextPage
 .Collapse Direction:=wdCollapseEnd
 End With
 MyName = Dir()
Wend
End Sub

Answer 1

当您遍历Dir 找到的所有文档时，
你必须再次添加文件路径，当你InsertFile每个文件时：

Sub MergeALL()
    Dim objWord As Object
    Dim objDoc As Object
    Dim myPath As String, myFile As String

    Set objWord = CreateObject("Word.Application")
    objWord.Visible = True

    Set objDoc = objWord.Documents.Add
    myPath = "\\rz_sixt\user\Home\Pictures\"
    myFile = Dir(myPath & "*.docx", vbNormal + vbReadOnly + vbHidden)
    While myFile <> ""
        With objDoc.Bookmarks("\StartOfDoc").Range
            .InsertFile Filename:=myPath & myFile, _
                ConfirmConversions:=False, Link:=False, Attachment:=False
            .InsertBreak Type:=2    ' wdSectionBreakNextPage = 2
        End With
        myFile = Dir()
    Wend
    objDoc.Characters(1).Delete
End Sub

如果您添加对“Microsoft Word x.x 对象库”的引用以进行早期绑定，则可以使用 ENUM 值，如wdCollapseEnd，否则使用其对应值。