请参考:
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