word用宏语句实现两个文档的段落合并成一个文档

来源：百度知道 编辑：UC知道 时间：2024/06/07 16:38:26
两个word文档，一个中文一个英文，段落内容是对应的。我需要实现将中文内容一段段对应复制到英文内容下面。英文和中文之间用软回车隔开。
像这样：
English paragraph one
中文第一段
English paragraph two
中文第二段

请高手指教
谢谢天堂寻觅，你的方法的确可行，但是在遇到表格的时候就会中断运行。
可不可以在遇到表格时，将整个表格复制到对照的word里面？

同时打开三个文件：merge.doc,chinese.doc,english.doc
chinese.doc是你的中文文档，english.doc是你的英文文档，
merge.doc是合并之后的文档。

把下面这个宏拷贝到merge.doc中运行即可，你可以修改一下宏，把chinese改成你的中文文档名字，把english改成你的英文文档名字。
Sub Macro1()
Windows("chinese").Activate
Dim i As Integer
i = ActiveDocument.Sections(1).Range.Paragraphs.Count

For j = 1 To i
Windows("chinese").Activate
ActiveDocument.Paragraphs(j).Range.Select
Selection.Copy
Windows("merge").Activate
Selection.PasteAndFormat (wdPasteDefault)
Selection.TypeParagraph
Windows("english").Activate
ActiveDocument.Paragraphs(j).Range.Select
Selection.Copy
Windows("merge").Activate
Selection.PasteAndFormat (wdPasteDefault)
Selection.TypeParagraph
Next j

End Sub

问题补充的回答：
想了一天，没想出好的办法，除非能够找到一个函数能够判断表格的起始位置(我还没找到)，那样还有可能