Excel VBA插入文本前嵌入的word文档书签为空

Sub InsertTextToWordBookmark()
    Dim wordApp As Object
    Dim wordDoc As Object
    Dim bookmarkRange As Object
    
    ' 创建Word应用程序对象
    Set wordApp = CreateObject("Word.Application")
    
    ' 打开Word文档
    Set wordDoc = wordApp.Documents.Open("C:\Path\To\Your\Word\Document.docx")
    
    ' 激活Word文档
    wordDoc.Activate
    
    ' 获取书签的范围
    Set bookmarkRange = wordDoc.Bookmarks("BookmarkName").Range
    
    ' 在书签范围内插入文本
    bookmarkRange.Text = "要插入的文本"
    
    ' 保存并关闭Word文档
    wordDoc.Save
    wordDoc.Close
    
    ' 退出Word应用程序
    wordApp.Quit
    
    ' 释放对象变量
    Set bookmarkRange = Nothing
    Set wordDoc = Nothing
    Set wordApp = Nothing
End Sub