VBA从Excel更新Word中的书签-只运行一次？

Sub UpdateWordBookmark()
    Dim wdApp As Object
    Dim wdDoc As Object
    
    ' 创建Word应用程序对象
    Set wdApp = CreateObject("Word.Application")
    
    ' 打开Word文档
    Set wdDoc = wdApp.Documents.Open("C:\Path\To\Your\Word\Document.docx")
    
    ' 更新书签内容
    With wdDoc
        .Bookmarks("BookmarkName").Range.Text = ThisWorkbook.Sheets("Sheet1").Range("A1").Value
        ' 这里的"BookmarkName"是你要更新的书签名称，"Sheet1"是你的Excel工作簿中的工作表名称，"A1"是你要从Excel中获取数据的单元格位置
    End With
    
    ' 保存并关闭Word文档
    wdDoc.Save
    wdDoc.Close
    
    ' 退出Word应用程序
    wdApp.Quit
    
    ' 释放对象变量
    Set wdDoc = Nothing
    Set wdApp = Nothing
End Sub