如何查找Word文档中是否使用了控件

[liyong11111]

Selection.InlineShapes.AddOLEControl ClassType:="Forms.CommandButton.1"
Selection.InlineShapes.AddOLEControl ClassType:="Forms.ListBox.1"

例如WORD文档中添加了以上两个控件，通过什么方式能查找到？

[龍过鸡年]

Dim doc As Document
Set doc = ActiveDocument

Dim shp As InlineShape

For Each shp In doc.InlineShapes
    MsgBox shp.Type
Next

WdInlineShapeType 枚举
wdInlineShapeChart 12 内嵌图表。
wdInlineShapeDiagram 13 内嵌关系图。
wdInlineShapeEmbeddedOLEObject 1 嵌入的 OLE 对象。
wdInlineShapeHorizontalLine 6 横线。
wdInlineShapeLinkedOLEObject 2 链接的 OLE 对象。
wdInlineShapeLinkedPicture 4 链接的图片。
wdInlineShapeLinkedPictureHorizontalLine 8 带有横线的链接图片。
wdInlineShapeLockedCanvas 14 锁定的内嵌形状画布。
wdInlineShapeOLEControlObject 5 OLE 控件对象。
wdInlineShapeOWSAnchor 11 OWS 锁定标记。
wdInlineShapePicture 3 图片。
wdInlineShapePictureBullet 9 用作项目符号的图片。
wdInlineShapePictureHorizontalLine 7 带有横线的图片。
wdInlineShapeScriptAnchor 10 脚本定位标记。指与文档一起存储的脚本块的定位标记位置。

OLE 编程标识符
Office 2003完整教程

[liyong11111]

谢谢~