在excelvba中word复制插入整页

试试下面的代码，在网上找的 Sub 宏1() Dim wordapp As Object Dim mydoc Dim mypath$, myname$ Dim wdRng As Object Dim pos1%, pos2% '定义找到的字段的首位位置 Application.DisplayAlerts = False Set wordapp = CreateObject("word.application") mypath = ThisWorkbook.Path &"" myname = Dir(mypath &"*.doc*") Set mydoc = wordapp.Documents.Open(mypath &myname) Set wdRng = mydoc.Range wdRng.Find.Execute ("（一）") pos1 = wdRng.Start Set wdRng = mydoc.Range wdRng.Find.Execute ("五、") pos2 = wdRng.Start mydoc.Range(pos1, pos2).Copy '选中找到的两个字段中间的内容 mydoc.Close False wordapp.Quit Worksheets("Sheet2").Select Range("A1").Select ActiveSheet.Paste Application.ScreenUpdating = True Application.DisplayAlerts = TrueEnd Sub

插入的步骤如下：

1、Word不能像Excel一样实现一页的移动复制到别的Word当中，只能够使用光标选择需要移动的文件，复制一下；

2、在需要插入的Word当中，点击右键选择【保留原格式】粘贴，一般能够尽可能的按照原本的格式迁移到新的Word当中；

3、点击的【选择性粘贴】还可以在【WPS文字 文件 对象】，【带格式文本（HTML）】、【无格式文本】等。

添加语句：

Selection.InsertBreak Type:=wdPageBreak

你也可以通过手动插入分页符，录制宏来获取这个语句。

这也是个不错的学习方法。

---