vba 宏如何获取 alt 文本标题引用/属性

Question

在 VBA 中，如何获取对替代文本的 TITLE 部分的引用？它不是 img.AlternativeText，而是描述。并且 img.Title 给出“<应用程序定义或对象定义的错误>”，我无法获取或设置它。如果我尝试获取或设置它，我会得到“运行时错误 445：对象不支持此操作”，即使它显示在属性列表中。

wdDoc.ActiveWindow.Document.InlineShapes(1).Title = "test"

笔记根据此处的官方文档，我应该能够编辑此字段：

https://docs.microsoft.com/en-us/office/vba/api/word.inlineshape.title

这是 VBA 中 Title 属性的显示内容：

代码：

Set wdDoc = Documents.Open(FileName:=doc, AddToRecentFiles:=False, Visible:=False)
For Each sh In wdDoc.ActiveWindow.Document.InlineShapes 
    msgbox sh.Title
Next sh

得出的结果为：

在试图显示标题的那一行。

Answer 1

这对我有用。

'This displays the existing Alt Text Title.
MsgBox ActiveDocument.InlineShapes(1).Title
'So does this.
MsgBox ActiveWindow.Document.InlineShapes(1).Title

'This changes the Alt Text Title.
ActiveDocument.InlineShapes(1).Title = "New!"

'This displays the new Alt Text Title.
MsgBox ActiveDocument.InlineShapes(1).Title

（Word 2013）