标题: word用宏语句实现两个文档的段落合并成一个文档 [打印本页] 作者: frankfu9687 时间: 2009-10-12 11:13 标题: word用宏语句实现两个文档的段落合并成一个文档 请参考：
Sub haifeistar()
'本程序将中文段落插入英文段落之后
n = 1
For Each cp In Documents("f:\中文.doc").Paragraphs 'cp代表中文段落
cp.Range.End = cp.Range.End - 1
Set ep = ActiveDocument.Paragraphs(n).Range 'ep代表英文段落
ep.Start = ep.End - 1
ep.Select
Selection.TypeText Text:=Chr(11) & cp.Range.Text
n = n + 1
Next
End Sub