攀枝花住房和城乡建设厅网站微营销推广方案

方法一：手动复制粘贴

1. 打开所有需要合并的Word文档。
2. 创建一个新的Word文档作为主文档。
3. 依次选择每个源文档的内容，按住Ctrl+C复制。
4. 切换到主文档，按下Ctrl+V粘贴。
5. 调整格式，保持整体一致。

注意事项：

• 如果文档中包含图片或表格，可能需要重新调整布局。
• 如果文档有页眉、页脚或目录，可能需要重新生成。
  

方法二：使用批量合并脚本

适用于需要合并大量文档的用户。

在Word的VBA编辑器中添加以下代码：

代码一：

Sub 合并Word文档()Dim dialog As FileDialogSet dialog = Application.FileDialog(msoFileDialogFolderPicker)dialog.InitialFileName = "选择文件夹"dialog.AllowMultiSelect = FalseIf dialog.Show = -1 ThenfolderPath = dialog.SelectedItems(1)ElseMsgBox "您没有选择文件夹"Exit SubEnd IfDim fileName As StringfileName = Dir(folderPath & "\*.docx")While fileName <> ""Application.Documents.Open folderPath & "\" & fileNameSelection.WholeStorySelection.CopyDocuments(1).ActivateSelection.EndKey Unit:=wdStorySelection.PasteApplication.Documents(2).ClosefileName = Dir()Wend
End Sub

代码二（推荐）

Sub CountPagesOfDocs()Dim fd As FileDialogDim aDoc As DocumentDim i As LongDim count As LongDim nPageNumber As LongDim originalWindowName As StringoriginalWindowName = ActiveWindow.CaptionnPageNumber = 0Set fd = Application.FileDialog(FileDialogType:=msoFileDialogOpen)With fd.AllowMultiSelect = True.Title = "请选择要处理的一个或多个 Word 文档".Filters.Add "Word 文档", "*.doc; *.docx", 1If .Show = -1 Thencount = .SelectedItems.countFor Each vrtSelectedItem In .SelectedItemsSet aDoc = Documents.Open(vrtSelectedItem)With ActiveDocumentSelection.WholeStorySelection.CopynPageNumber = nPageNumber + .ComputeStatistics(wdStatisticPages).Close SaveChanges:=FalseEnd WithWindows(originalWindowName).ActivateSelection.PasteAndFormat (wdFormatOriginalFormatting)ActiveDocument.SaveNextMsgBox "已合并 " & count & " 个 Word 文档：共 " & nPageNumber & " 页"End IfEnd With
End Sub

使用方法：
先将主文档另存为。docm格式，再打开

1. 按下Alt+F11打开VBA编辑器。
2. 添加新模块，粘贴上述代码。
3. 返回Word，按F5运行脚本。
4. 选择包含所有Word文档的文件夹，自动完成合并。

以上对MS有效；
别从快速访问进入文件夹，会导致合并失败，原因不明；
有编程基础的C友直接用就行；
后续我会写小白教程。