如何用vba接受所有包含形状对象的修订？

xiaoyouxi01 · 发表于 2018-8-29 19:32

本帖最后由 xiaoyouxi01 于 2018-8-30 08:34 编辑

傲游截图20180829192120.png

如上图所示，文档中有6个修订，其中3个修订中包含有形状对象（这些形状对象是我随便画的线条，然后开启修订，再删除这些线条）。

想请问一下，在一个文档中，如果包含有N个修订，其中一些修订中包含有形状对象，如何用vba接受这些特定修订，其余的修订不动（即对附件文档运行后，标注红框的3个修订被接受，其余3个修订则保持不变）。

本想遍历修订，如包含形状对象则接受，但不知道vba该怎么写。

Dim oRevision As Revision
For Each oRevision In ActiveDocument.Revisions
If 包含形状对象 Then
oRevision.Accept
End If
Next

复制代码

用find好像不能查找这种形状对象，只能查找图形（^g）。

或者反一下思路，遍历文档中的所有形状对象，如果在修订中，则接受，这样也可以。

特来请教一下高手，有无解决办法？

test.rar (15.18 KB, 下载次数: 4)

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

[求助] 如何用vba接受所有包含形状对象的修订？