vba-向书签添加文本-运行时错误428

MsgBox（objDocProdTP.Bookmarks.Count）

返回19，这是LFPostTemplate.docx中书签的总数。 但是

objDocProdTP.TypeText（wbQuelle.Sheets（“Tabelle1”）.Cells（i，7））

返回Runtimeerror 428“此对象不支持的方法或属性”（我得到德语错误，因此可以自由翻译）

我想做的是替换标记为书签的文本

---

另一点是，我想将文本附加到书签中已有的文本中

TypeText

是一种选择方法，而不是文档。您会发现在Word VBA编辑器中测试表达式很有帮助，然后单击Word（方法或属性等），然后按F1键进入帮助系统

使用以下工具，您可以更轻松、更高效地设置和检索书签中的文本：

Dim AppWD As Object
Dim objDoc As Object
Dim objDocProdTP As Object
...
Set AppWD = CreateObject("Word.Application") 'Word als Object starten
AppWD.Visible = True
Set objDocProdTP = AppWD.documents.Open(workPath & "\vorlagen\LFPostTemplate.docx")
Set objDoc = AppWD.documents.Open(workPath & "\vorlagen\LFTemplate2.docx")
...
MsgBox (objDocProdTP.Bookmarks.Count)
...
objDocProdTP.Goto what:=-1, Name:="lblPos"
objDocProdTP.TypeText (wbQuelle.Sheets("Tabelle1").Cells(i, 7))

objDocProdTP.Bookmarks（“lblPos”）.Range.Text=“Hello”生成运行时错误5941请求的元素不在集合中

ActiveDocument.Bookmarks("bkTest").Range.Text = "Hello"

objDocProdTP.Bookmarks("lblPos").Range.Text = "Hello"

objDocProdTP.Bookmarks("lblPos").Range.Text = _ 
    objDocProdTP.Bookmarks("lblPos").Range.Text & " hello"