Word中利用VBA选定当前页所有图形

duquancai

yjwdjfqb 发表于 2018-7-25 10:21
请老师帮我写一句这个，谢谢你了老师！

我没这个本事，写一句就能完成！不过我写了很多句，代码在审核中，请等待。

yjwdjfqb

duquancai 发表于 2018-7-25 10:30
我没这个本事，写一句就能完成！不过我写了很多句，代码在审核中，请等待。

好的，好的，谢谢老师了！

yjwdjfqb

duquancai 发表于 2018-7-25 09:48
我真不明白你为啥要选中？哎！为了满足你的特殊需求，我写个代码给你。不过这样写的代码实在是没意思！！ ...

谢谢老师，很好用！非常的感谢老师！

topsaying

duquancai 发表于 2018-7-25 09:48
我真不明白你为啥要选中？哎！为了满足你的特殊需求，我写个代码给你。不过这样写的代码实在是没意思！！ ...

神奇的高手，赞赞赞。多谢多谢！ “这样写的代码实在是没意思！” 您太谦虚了。这样写的代码实在大大大的有意思啦！！
配合Ctrl+enter临时分页，非常方便好用。造福大家的功德啊。

haopw123

duquancai 发表于 2018-7-25 09:48
我真不明白你为啥要选中？哎！为了满足你的特殊需求，我写个代码给你。不过这样写的代码实在是没意思！！ ...

大佬啊 借楼咨询个东西 能不能把这个改成选择文档内所有的图片  我有一个合同里面的图片都是乱弄的 现在目录没办法提取出来

fengjuntai

duquancai 发表于 2018-7-25 09:48
我真不明白你为啥要选中？哎！为了满足你的特殊需求，我写个代码给你。不过这样写的代码实在是没意思！！ ...

厉害了，如何能选择当前页与下一页，复制到新的文档里面。

prcstone

ming0018 发表于 2018-7-24 11:29
ActiveDocument.Shapes.SelectAll

出错，“拒绝的权限”

过客fppt

prcstone 发表于 2024-1-21 14:42
出错，“拒绝的权限”

代码是没问题的，但是ActiveDocument.Shapes.SelectAll只能选择所有浮动式图片，对嵌入式图片选不了

dongdonggege

过客fppt 发表于 2024-1-23 15:48
代码是没问题的，但是ActiveDocument.Shapes.SelectAll只能选择所有浮动式图片，对嵌入式图片选不了

...

可以这样，能选择，能组合。

1. Sub test()
   
2.     'Set shp1 = ActiveDocument.Shapes(1)
   
3.     'Set shp2 = ActiveDocument.Shapes(2)
   
4.     Set shp1 = ActiveDocument.Shapes.AddShape(msoShapeRectangle, 130, 170, 119#, 102#)
   
5.     Set shp2 = ActiveDocument.Shapes.AddShape(msoShapeOval, 326#, 170, 96, 96)
   
6.     ActiveDocument.Shapes.Range(Array(shp1.Name, shp2.Name)).Group
   
7. End Sub

复制代码

楼主变通一下，也可以试试。

常扬帆

duquancai 发表于 2018-7-25 09:48
我真不明白你为啥要选中？哎！为了满足你的特殊需求，我写个代码给你。不过这样写的代码实在是没意思！！ ...

谢谢，能够实现，不过，粘贴后没有居中，靠右了。