如何将Word文档的UpdateAllFields添加到Excel中的VBA宏？

Sub UpdateWordFields()
    Dim wordApp As Object
    Dim wordDoc As Object
    
    ' 创建Word应用程序对象
    Set wordApp = CreateObject("Word.Application")
    
    ' 打开Word文档
    Set wordDoc = wordApp.Documents.Open("C:\Path\To\Your\Word\Document.docx")
    
    ' 更新所有字段
    wordDoc.Fields.Update
    
    ' 关闭Word文档
    wordDoc.Close
    
    ' 退出Word应用程序
    wordApp.Quit
    
    ' 释放对象引用
    Set wordDoc = Nothing
    Set wordApp = Nothing
End Sub