如何禁用Excel VBA打开Word文档时推荐的只读功能

Sub DisableReadOnlyMode()
    Dim wdApp As Object
    Dim wdDoc As Object
    
    ' 创建Word应用程序对象
    Set wdApp = CreateObject("Word.Application")
    wdApp.Visible = True ' 可见性设置为True，方便调试
    
    ' 打开Word文档
    Set wdDoc = wdApp.Documents.Open("C:\Path\To\Your\Word\Document.docx")
    
    ' 取消只读模式
    wdDoc.ReadOnlyRecommended = False
    
    ' 保存并关闭文档
    wdDoc.Save
    wdDoc.Close
    
    ' 退出Word应用程序
    wdApp.Quit
    
    ' 释放对象资源
    Set wdDoc = Nothing
    Set wdApp = Nothing
End Sub