MS-Word VBA参考标识

Question

我试图从第三方调整宽度和高度的大小时，在Microsoft Word中有一个自定义内容控件。 通过VBA进行的常规内容控件选择无效，因为该控件没有标题或标签。 但是，如果我手动选择对象并使用“ Selection.ShapeRange.Height = x”或ShapeRange.Width以编程方式调整其大小，则它确实可以工作。 因此，要以编程方式完成所有操作，我需要确定“选择”的名称，而不必手动选择它。

有没有一种方法可以“检查”对当前所选对象的完整引用，因此我们可以在VBA中获得一个使用它的起点？

Answer 1

很难知道您要处理的对象类型。 我通过插入空白的ActiveX图像控件，选择它并运行宏来进行了测试。 该代码有两种方法，但其中一种已被注释掉。

Sub FindName()
    MsgBox (Selection.Fields.Item(1).OLEFormat.ClassType)

    'MsgBox (Selection.InlineShapes.Item(1).OLEFormat.ClassType)

    MsgBox (Selection.InlineShapes.Item(1).Field.Index)
    MsgBox (Selection.InlineShapes.Item(1).AlternativeText)

    'Show current name
    MsgBox (Selection.Fields.Item(1).OLEFormat.Object.Name)

    'Set new name
    Selection.Fields.Item(1).OLEFormat.Object.Name = "Image5"

    'Re-display name to show that it changed
    MsgBox (Selection.Fields.Item(1).OLEFormat.Object.Name)
End Sub

---

结果是这样的：