求合并2个word文件代码

同心/ty

说明：1.合同后面附加其它磁盘文件--对应的-附图，2.合并的附图是横向排版。效果如图   3.合同的页数不定，附图一定要插在合同文件最后。

mmwwdd

这种情况word可能实现不了

同心/ty

mmwwdd 发表于 2023-2-27 10:13
这种情况word可能实现不了

应该能解决，我相信高手在民间。

剑指E

录制宏稍改就行了。。。。。。。。。

同心/ty

剑指E 发表于 2023-2-27 10:44
录制宏稍改就行了。。。。。。。。。

位置与排版问题解决了，但还有一个问题就是这附图我要在其它磁盘文件夹中选择，不是固定的。另外你代码执行后出现一空白页，求完善。

同心/ty

Sub word文档合并()
    Selection.EndKey Unit:=wdStory
    Selection.InsertBreak Type:=wdSectionBreakNextPage
    If Selection.PageSetup.Orientation = wdOrientPortrait Then
        Selection.PageSetup.Orientation = wdOrientLandscape
    Else
        Selection.PageSetup.Orientation = wdOrientPortrait
    End If
    Dim myDialog As FileDialog
    Dim i As Long
    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 i = 1 To myDialog.SelectedItems.Count
        Selection.InsertFile FileName:=myDialog.SelectedItems(i)
   Selection.EndKey Unit:=wdStory
   Selection.Delete
    Next
End Sub

同心/ty

剑指E 发表于 2023-2-27 10:44
录制宏稍改就行了。。。。。。。。。

老师，根据你的代码，稍微更改了一下代码。求批评指正。

同心/ty

剑指E 发表于 2023-2-27 10:44
录制宏稍改就行了。。。。。。。。。

老师，如果我把代码写在excel里，去执行2个word合并，又如何写代码呢？因为我文件里大部代码是写在excel里，这个合并只是其中小部份，求指教。