VBA - 添加文本到書籤 - Runtimeerror 428

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))

MsgBox (objDocProdTP.Bookmarks.Count)返回19，其是在書籤的LFPostTemplate.docx總數。但objDocProdTP.TypeText (wbQuelle.Sheets("Tabelle1").Cells(i, 7))回報Runtimeerror 428「方法或屬性不受此對象支持」（我得到了德國我的錯誤，所以它的自由翻譯）VBA - 添加文本到書籤 - Runtimeerror 428

我想要做的是替換標記爲書籤

文本其他的一點是，我想將文本追加到已經存在於書籤中的文本

來源

2013-07-21 user2228015

TypeText是Selection的一種方法，不是文檔的方法。您會發現在Word VBA編輯器中測試表達式很有幫助，然後單擊單詞（方法或屬性等）並按F1進入幫助系統。

您可以設置和檢索，在書籤文字更容易，並且更有效地，有：

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

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

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

來源

2013-07-21 12:57:23

objDocProdTP.Bookmarks（「lblPos」）Range.Text = 「你好」產生運行時錯誤。 5941請求的元素不在集合中 – user2228015

objDocProdTP.Bookmarks（「lblPos」）。Range.Text =「Hello」 – user2228015

VBA - 添加文本到書籤 - Runtimeerror 428

回答

相關問題