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

Question

两个word文档，一个中文一个英文，段落内容是对应的。我需要实现将中文内容一段段对应复制到英文内容下面。英文和中文之间用软回车隔开。
像这样：
English paragraph one
中文第一段
English paragraph two
中文第二段

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

Answer 1

同时打开三个文件：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

问题补充的回答：
想了一天，没想出好的办法，除非能够找到一个函数能够判断表格的起始位置(我还没找到)，那样还有可能同时判断段落和表格，否则很难实现。

Answer 2

http://so.xunlei.com/search?search=WORD%E5%AE%8F%E6%95%99%E7%A8%8B&id=3
Word宏应用实例
一、宏的录制

在这里举一实例。例如，在Word 97中，要插入字符，则往往要到符号框中查找半天。对于一些常用的符号，如“￥”，便可以使用宏来使工作简化。

1.单击“工具”选单中“宏”子选单，再单击“录制新宏”选项。

2.给宏取名为“Yuan”，再单击“键盘”。

3.在弹出的对话框中指定快捷键，可指定为“Ctrl＋Y”，再关闭该对话框回到“录制宏”对话框。单击“确定”按钮启动记录器。

4.运行“插入”选单中的“符号”子选单，从弹出的“符号”框中选择“￥”，插入后再关闭。另外，也可以指定到工具栏，从弹出的“自定义”对话框中的“命令”栏中把“Normal.NewMacro1.Yuan”拖放到工具栏中。

5.单击“停止录制”工具栏中的“停止录制”按钮。

6.单击“工具”选单中“宏”子选单，再单击“宏”命令。

7.选择第二步中的宏名称，再单击“编辑”按钮。

这时我们可以从中看到以下代码：

Sub Yuan()

Selection.InsertSymbol Font:=〃楷体—GB2312〃,CharacterNumber:=－27,Unicode:=True

End Sub

以后，当你需要插入字符“￥”时，只需按下快捷键“Ctrl＋Y”，或者是在工具栏点击“Normal.NewMacrol.Yuan”便可以了。

二、宏的编辑

宏录制器将以上宏操作翻译为Visual Basic代码。但是，录制宏时会受到一些限制。许多复杂的宏，例如，要用到循环语句，便无法录制。为了提高录制的宏的功能，就可能需要修改录制到模块中的代码。

具体操作为：单击“工具”选单中“宏”子选单，再单击“宏”命令。选择第二步中的宏名称，再单击“编辑”按钮。

然后便加载Visual Basic编辑器，我们可以看到所录制的宏自动生成的Visual Basic代码。

例如，在C:\My Document中有200个Word文档，依次命名为“1.doc”，“2.doc”，“3.doc”，…“200.doc”，我们需要把文件格式改变为文本文件，即txt文件。

先以1.doc为例，录制一个宏，打开文档，另存为txt文件，再关闭该活动文档。生成的Visual Basic代码如下：

Sub Macro1()

ChangeFileOpenDirectory 〃C:\My document〃

Documents.Open FileName:=〃1.doc〃

ActiveDocument.SaveAs FileName:=〃1.txt〃,FileFormat:=wdFormatText

ActiveWindow.Close

End Sub

下一步便进行编辑，用一个循环语句依次打开各个文件，转化后再关闭。代码如下：

Sub Macro1()

dim i

for i=1 to 200

ChangeFileOpenDirectory 〃C:\My document〃

Documents.Open FileName:=i ＆ 〃.doc〃

ActiveDocument.SaveAs FileName:

=i ＆ 〃.txt〃,

FileFormat:=wdFormatText

ActiveWindow.Close

next i

End Sub

再次运行该宏，便可以轻松完成任务。宏的作用由此可略见一斑