求用excel vba执行合并2个word文件代码

同心/ty

求大神帮助：将附图文件doc合并到合同文件doc后面，在excel里实现。论坛一位老师帮我写了一个代码，在此非常感激。此次提出问题是我附图文件是横向排版，而合同是竖向排版。这点代码还要完善。附上代码求完善：1.解决合并后保持2个文件原排版格式（竖横混排）2.解决合并后最后一页空白页删除的问题。



      '===================================
         Dim oDoc As Object
         Dim oRng ' As Range
         Set oDoc = MyWord.ActiveDocument
         Dim MyRange ' As Range
         Dim ObjDoc  As Object
         Dim myDialog As FileDialog
             '  On Error Resume Next
               Set myDialog = Application.FileDialog(msoFileDialogFilePicker)
               With myDialog
                  .AllowMultiSelect = True
                  .Filters.Clear
                  .Filters.Add "所有 WORD 文件", "*.doc*", 1
               End With
               If myDialog.Show <> -1 Then Exit Sub
               For x = 1 To myDialog.SelectedItems.Count
                  Set ObjDoc = GetObject(myDialog.SelectedItems(x))
                 Set MyRange = ObjDoc.Range(Start:=0, End:=1)
                       MyRange.WholeStory
                       MyRange.Copy
                       Set oRng = oDoc.Range(Start:=(oDoc.Content.End - 1), End:=(oDoc.Content.End - 1))
                       oRng.Paste
               Next x
        '==========================================
      End With
        MyWord.DOCUMENTS.Save
        MyWord.Quit
        Set MyWord = Nothing: Set ObjDoc = Nothing
    End If
        Next
MsgBox "OK 在合同备份文件夹里查看"
End Sub

同心/ty

顶一下，别下沉。

ddmc

MyWord先打开一个 doc  ,在MyWord 直接追加 文件
MyWord.Selection.InsertFile FileName:= 第2个doc文件    '追加第2个 doc

MyWord.Selection.InsertFile FileName:= 第3个doc文件    '继续追加新

同心/ty

ddmc 发表于 2023-3-25 21:49
MyWord先打开一个 doc  ,在MyWord 直接追加 文件
MyWord.Selection.InsertFile FileName:= 第2个doc文件  ...

能解决横竖排版问题吗？求完整代码。

ZHLK

在文件最后加分节符，然后设置当前节为纸张横放，再插入文件就行。
这个文件用邮件合并应该更好一些。
你没有要合并的数据，发上来试试邮件合并

同心/ty

别沉，求高手献技。

同心/ty

在合同模板最后页，增设一页空白页，将空白页设置为横向布局，在代码完成合并后，增加一个语句来删除空白页，完美解决。
Set oRng = oDoc.Range(Start:=(oDoc.Content.End - 1), End:=(oDoc.Content.End - 1))
oRng.Delete