如果您需要多名审阅者对一个文档进行审阅,并且每名审阅者都返回了修订意见,您可以使用合并文档的方法将这些修订意见整合到一个文档中。这种方法可以一次性合并两个文档,直到将所有审阅者的修订都合并到单个文档中为止。
在“审阅”选项卡上的“比较”组中,单击“比较”。
单击“将多位作者的修订组合到一个文档中”。
在原文档下,点击要将来自多个来源的修订合并到其中的文档的名称。
如果没有在列表中看到该文档,请单击“浏览原始内容”
。
在“修订的文档”下,浏览含有其中一个审阅者所做修订的文档。
单击“更多”。
在“显示修订”下,选择您要在文档中进行比较的选项。
默认情况下,Microsoft Office Word 显示对整个单词所做的更改。例如,如果将单词 cat 更改为 cats,则整个单词 cats 将在文档中显示为已更改,而不仅仅是字符 s。
在“修订的显示位置”下,单击“原文档”。
单击“确定”。
要更改在单击“确定”时显示在屏幕上的文档,请在“比较”组中单击“隐藏源文档”或“显示源文档”。
重复步骤 1-8。Word 会将所有修订合并到原文档中。
注释 Word 一次只能存储一组格式更改。因此在合并多个文档时,系统会提示用户决定保持原文档的格式还是使用已编辑文档的格式。如果不需要跟踪格式更改,可以清除“比较并合并文档”对话框中的“格式”复选框。
合并多个word文档,可以采取下列办法,具体操作步骤如下。
1. 首先用记事本做一个小程序,以便在文件夹中可以同时选中多个文件。
代码如下:
————————————————————————————
Dim fs As FileSearch, i As Long, n As Long
Set fs = Application.FileSearch
ml = ActiveDocument.Path
bwj = ActiveDocument.Name
Documents.Add
With fs
.NewSearch
.LookIn = ml
.FileType = msoFileTypeWordDocuments
If .Execute > 0 Then
For i = 1 To .FoundFiles.Count
If .FoundFiles.Item(i) ml & "" & bwj Then
Selection.InsertFile FileName:=.FoundFiles.Item(i)
Selection.InsertBreak Type:=wdPageBreak
n = n + 1
End If
Next
End If
End With
MsgBox "共合并了" & n &; "篇文档"
——————————————————————————————————
将此代码命名为《Sub test》保存。如果没有这个文件,你就不能在插入时同时选定多个要合并的文档
2 .新建一个文件夹,把《Sub test》放进去,然后再把所有需要合并的word文件都放在这个文件夹之中。
3.单击功能区中的“插入”选项卡,然后单击“对象”按钮右侧箭头,并单击弹出菜单中的“文件中的文字”命令。
4.在“插入文件”对话框中,把你新建的那个文件夹打开,按住shift键,全选要合并的多个文档。
5.单击“插入”按钮,这样所选的多个文档就插入到一个新的文档中了,从而轻松实现了合并多个文档。
1、新建一个WORD文档,命名后保存到和要合并的1000多篇文档一个文件夹里。
2、摁ALT+F11进入宏编辑器。
3、双击左上角的ThisDocument,在右侧的代码区粘贴代码如下:
Sub 合并文档()
Application.ScreenUpdating = False
MyPath = ActiveDocument.Path
MyName = Dir(MyPath & "" & "*.doc")
i = 0
Do While MyName ""
If MyName ActiveDocument.Name Then
Set wb = Documents.Open(MyPath & "" & MyName)
Selection.WholeStory
Selection.Copy
Windows(1).Activate
Selection.EndKey Unit:=wdLine
Selection.TypeParagraph
Selection.Paste
i = i + 1
wb.Close False
End If
MyName = Dir
Loop
Application.ScreenUpdating = True
End Sub
4、运行,等候几分钟,即可完成合并
以上是怎么将多个文档中的批注和修订合并至一个文档中的详细内容。更多信息请关注PHP中文网其他相关文章!