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

yjwdjfqb · 发表于 2018-7-24 10:20

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

在WORD中，怎样用VBA实现选定当前页所有的图形
请老师们帮写个VBA代码，谢谢老师们了！

ming0018 · 发表于 2018-7-24 11:29

ActiveDocument.Shapes.SelectAll

duquancai · 发表于 2018-7-24 21:30

逻辑不清：1、当前页指的是光标说在的这页吗？2、当前页的所有图形：指的是shapes集合吗？
话说：为何要选定？遍历当前页的图形进行处理，不行吗？

yjwdjfqb · 发表于 2018-7-25 08:26

duquancai 发表于 2018-7-24 21:30
逻辑不清：1、当前页指的是光标说在的这页吗？2、当前页的所有图形：指的是shapes集合吗？
话说：为何要选 ...

谢谢老师，就是，选择，光标所在页面的shapes集合，麻烦老师帮我写下！

yjwdjfqb · 发表于 2018-7-25 08:27

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

老师你好，我运行后，选择了整个文件的图形，我想，只选择，光标所在页面的图形。
谢谢老师了！

ming0018 · 发表于 2018-7-25 08:48

yjwdjfqb 发表于 2018-7-25 08:27
老师你好，我运行后，选择了整个文件的图形，我想，只选择，光标所在页面的图形。
谢谢老师了！

为什么要选当前页的所有图形，选完后你要干什么？

yjwdjfqb · 发表于 2018-7-25 08:54

ming0018 发表于 2018-7-25 08:48
为什么要选当前页的所有图形，选完后你要干什么？

可以快速的选择光标所在，页面的所有图形，然后组合
一个一个的选择太慢了
方便做流程图

ming0018 · 发表于 2018-7-25 09:40

yjwdjfqb 发表于 2018-7-25 08:54
可以快速的选择光标所在，页面的所有图形，然后组合
一个一个的选择太慢了
方便做流程图

duquancai · 发表于 2018-7-25 09:48

本帖最后由 duquancai 于 2018-7-25 12:24 编辑

yjwdjfqb 发表于 2018-7-25 08:26
谢谢老师，就是，选择，光标所在页面的shapes集合，麻烦老师帮我写下！

我真不明白你为啥要选中？哎！为了满足你的特殊需求，我写个代码给你。不过这样写的代码实在是没意思！！！

Sub main()
Dim t&, p&, doc As Document
Selection.Range.Select '光标所在页面
Set doc = ActiveDocument: p = doc.ComputeStatistics(2)
t = Selection.Information(1)
With doc.Range(doc.GoTo(1, 1, t).End, IIf(t < p, doc.GoTo(1, 1, t + 1).Start, doc.Content.End))
If .ShapeRange.Count > 0 Then .ShapeRange.Select
End With
End Sub

复制代码

yjwdjfqb · 发表于 2018-7-25 10:21

duquancai 发表于 2018-7-24 21:30
逻辑不清：1、当前页指的是光标说在的这页吗？2、当前页的所有图形：指的是shapes集合吗？
话说：为何要选 ...

请老师帮我写一句这个，谢谢你了老师！

		自动登录	找回密码
密码			免费注册

[求助] Word中利用VBA选定当前页所有图形