设置内容控件标题

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.