如何一次性选定word文档中的所有图片

如何一次性选定word文档中的所有图片

原发布者:qqyezhipeng

Word怎样同时选中所有图片word中很多时候都会用到选中多个图片的功能，这个功能并没有出现在常用工具栏中，需要我调用出来。下面的具体步骤就包括调出这个命令，同时示范咋样使用这个命令。该命令选中图片的时候要求图片是非嵌入式的任何的文字环绕方式，同时要求word文件的后缀名是doc而不是docx。如果你的文档是docx，那么只需要另存为doc格式就可以了。步骤/方法为了能够同时选中多个图片，我们需要首先调出打开word开始菜单，我们必须首先调出“选择多个对象”的按钮。我们首先打开word的开始菜单，然后选择“word选项”步骤阅读2在word选项中，我们点击自定义，在自定义的面板中，点击图示中的红色箭头所示的小三角，这样可以打开一个下拉菜单。步骤阅读在下拉菜单中，我们选择所有命令步骤阅读4在下面的所有命令中，找到“选择多个对象”这个命令，然后单击选中它，点击添加，这样这个命令就添加到了word的菜单中。步骤阅读设置完成以后，点击确定，保存设置。步骤阅读“选择多个对象”的命令就会出现了这个红色箭头指向的位置。步骤阅读当word中有多个图片，并且图片的文字环绕方式不是嵌入式的时候，我们可以点击这个命令。步骤阅读弹出了一个对话框，我们们点击下面的全选按钮就能选中所有的图片，我们也可以单独都勾选自己想要选中的图片。步骤阅读接着我们点击图片工具——格式，这样就能对图片进行批量的格式设置了。步骤阅读END

利用word中的宏可以解决这个问题。 打开VB编辑器，将这个过程分为两个宏来处理： 1.将所有inlineshapes转变为shapes类型； for each ishapes in selection.inlineshapes ishapes.converttoinlineshape next ishapes 2.将所有转化的shapes类型放大一定倍数然后还原为inlineshapes类型： selection.shaperange.shapewidth 3,false selection.shaperange.shapeheight 3,false for each n in selection.shaperanges n.converttoinlineshape next n 上式中的两个三代表将长和宽分别扩大三倍。其他的性质可以自己探索~~最后选中图形执行宏就行了！

用宏一次性选定文中的所有表格： sub 宏1() dim mytable as table application.screenupdating = false for each mytable in activedocument.tables mytable.range.editors.add wdeditoreveryone next activedocument.selectalleditableranges (wdeditoreveryone) activedocument.deletealleditableranges (wdeditoreveryone) application.screenupdating = true end sub