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

以下是使用VBA从Excel更新Word中的书签的解决方案，仅运行一次：

Sub UpdateWordBookmark()
    ' 声明 Word 对象变量
    Dim wordApp As Object
    Dim wordDoc As Object
    Dim bookmark As Object
    
    ' 创建 Word 应用程序对象
    Set wordApp = CreateObject("Word.Application")
    
    ' 打开 Word 文档
    Set wordDoc = wordApp.Documents.Open("C:\Path\To\Your\Word\File.docx")
    
    ' 更新书签内容
    Set bookmark = wordDoc.Bookmarks("YourBookmarkName")
    bookmark.Range.Text = ThisWorkbook.Sheets("Sheet1").Range("A1").Value
    
    ' 保存并关闭 Word 文档
    wordDoc.Save
    wordDoc.Close
    
    ' 退出 Word 应用程序
    wordApp.Quit
    
    ' 释放对象变量
    Set bookmark = Nothing
    Set wordDoc = Nothing
    Set wordApp = Nothing
End Sub

请注意，您需要将文件路径和书签名称更改为您自己的文件路径和书签名称。在上面的示例中，我们假设要更新的单元格位于Sheet1的A1单元格中。

要运行此代码，请在Excel中按下Alt + F11打开VBA编辑器。然后，将代码复制粘贴到一个新的模块中，并按下F5键运行代码。

这将打开 Word 文档、更新指定的书签内容、保存并关闭 Word 文档，并退出 Word 应用程序。完成后，您可以在 Word 文档中验证书签内容是否已更新。