vbscript - 设置内容控件标题

Question

我在使用 VBS 设置内容控制值时遇到问题。这是我正在做的事情：

Sub saveToWord
    Set docObj = CreateObject("Word.Application")
    docObj.visible =true
    docObj.Documents.open "C:\Users\User\Desktop\test.docx"
    docObj.SelectContentControlsByTitle("Title").Item(1).Range.Text = "Test title"
End Sub

它在 VBA 中完美运行，但不适用于 VBScript。有一个错误：

Object doesn't support this property or method: 'docObj.SelectContentControlsByTitle'

有没有其他方法可以实现这一目标？我查看了ContentControls Object Docu，但找不到任何合适的方法。

Answer 1

问题是您将 Word.Application 分配给变量 docObject。SelectContentControlsByTitle 是 DOCUMENT 的成员，而不是 Application 对象。你需要更多类似的东西

 Set wdApp = CreateObject("Word.Application")
 wdApp.Visible = true
 Set docObject = Documents.Open(fileName)
 'Etc.