excel - 通过 Excel VBA 打开 Word 文档时如何禁用只读推荐

Question

我在下面有这个子例程，它从 Excel 中打开一个 Word 文档。

Sub openword()

Set WordApp = CreateObject("word.Application")
    WordApp.documents.Open Filename:="C:..."      'File name
   
    WordApp.Visible = True

    
End Sub

但是，每次我运行它时，它都会以“只读”模式打开 word doc。我已经尝试了一切来禁用它，包括:

ReadOnly=False

但到目前为止还没有成功。
这显然是 Microsoft 公认的问题，他们建议采用以下解决方案: https://support.microsoft.com/en-us/topic/word-document-opens-as-read-only-when-you-try-to-programmatically-open-the-document-4cab20a5-89f5-9834-9c66-247076cb72e8
不幸的是，我不确定如何在我的代码中实现它而不会遇到错误。
我试过这个:

Sub openword()


Set WordApp = CreateObject("word.Application")
    WordApp.documents.Open Filename:="C:...."
   
    WordApp.Visible = True
    
WordBasic.FileOpen Name:="C:..."

    
End Sub

和 WordBasic.FileOpen Name:="C:..."返回一个
“运行时错误‘424’:
所需对象”
任何帮助将不胜感激，谢谢!

Answer 1

您共享的链接准确显示了如何使用它。将参数放在文件名之后。

Option Explicit

Public Sub openword()
    Dim WordApp As Object
    Set WordApp = CreateObject("Word.Application")
    WordApp.documents.Open Filename:="C:...", ReadOnly:=False         
    WordApp.Visible = True 
End Sub