一个有大量文本框和图形的页面，如何整页复制到另一个word文档中？

phezzan

我不添加附件了，因为遇到的情况比较多，我想知道这类问题的综合解决方法。

1、word中用图形制作的流程图。如何完整复制出来？
2、含有大量文本框的一个页面。如何完整复制出来？

图形少的时候，我可以按着crtl挨个点击，形成一个组合。但是图形非常多的时候，很容易有漏下的。如何把这种流程图或者文本框做成一个固定的大组合，整页复制？

vbee

选择--所有对象

vbee

Sub 宏1()

   ActiveDocument.Shapes.SelectAll
   Selection.ShapeRange.Group
   

End Sub

leikaiyi123

绘图工具栏有个类似鼠标箭头的工具，点一下后再在此页拖选，拖选范围内的所有图形就被选择了。

phezzan

leikaiyi123 发表于 2018-10-13 16:12
绘图工具栏有个类似鼠标箭头的工具，点一下后再在此页拖选，拖选范围内的所有图形就被选择了。

谢谢。这个工具能选上绝大部分图标，我一直在用。但是总有几个遗漏的。有时候是在最下面，有时候是在中间，这是怎么回事？？

phezzan

vbee 发表于 2018-10-13 15:21
选择--所有对象

谢谢。这个工具能选上绝大部分图标，我一直在用。但是总有几个遗漏的。有时候是在最下面，有时候是在中间，这是怎么回事？？

phezzan

vbee 发表于 2018-10-13 15:41
Sub 宏1()

   ActiveDocument.Shapes.SelectAll

谢谢，我去试一下。

leikaiyi123

phezzan 发表于 2018-10-13 16:20
谢谢。这个工具能选上绝大部分图标，我一直在用。但是总有几个遗漏的。有时候是在最下面，有时候是在中间 ...

没选中完，一定是鼠标拖动没有完全框选到，试试将页面显示比例改为50%或更小，再框选，只能选浮动的图形，不能选嵌入式的哟。或用下面vba也行：
Sub 选中当前页图形()
　　ActiveDocument.Bookmarks("\page").Range.ShapeRange.Select
End Sub