Vbscript 设置内容控件标题

我在使用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。有一个错误：

对象不支持此属性或方法：“docObj.SelectContentControlsByTitle”

---

有没有其他办法来实现这一点？我查看了一下，但找不到任何合适的方法。

问题是您将Word.Application分配给变量docObject。SelectContentControlsBytle是文档的成员，而不是应用程序对象。你需要更像

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

---

完成以下操作：

设置docObject=wordApp.Documents。打开（“C:\Users\User\Desktop\test.docx”）

，然后选择

docObject。选择ContentControlsByTitle（“Title”）.Item（1）。Range.Text=“test Title”

。但是，一切都没有改变。没有任何错误，但没有改变。好吧，这解决了原来的问题，是吗？错误信息消失了。现在您有了一个新问题，您应该将其作为新问题发布，这样代码就可以清晰地格式化，讨论就不会变得如此复杂。然而，我想到了两个测试：1）对SelectContentControlsBytle进行一次.计数，看看它是否返回1；2） 在Word UI中的内容控件中写入一些文本，然后查看是否可以阅读这些文本。