読み取り専用Word文書（VBA）を編集する方法

Question

Word文書をさまざまなクライアントから定期的に取得していて、時にはそれらを「読み取り専用」モードで私に送信します。 'View> Edit Document'を手作業で行っても大したことではありませんが、VBAコード内でこれを行う方法はわかりません。

文書を編集可能な状態で開くか、開いた状態で編集可能な状態に切り替えることで、自分のニーズに十分対応できます。

「readOnly = false」で、「readOnly recommended」（Document.OpenのMS manページを読んでいる）に設定されているように、ドキュメントを開くことができないことに注意してください。

CONTEXT： ドキュメントが既定で開いていた「読み取りモード」をオフにすると、問題が発生しました。私はこの質問と回答hereを投稿しました。

Answer 1

以下のコードは、プロシージャに指定された引数に応じてReadOnly属性をTrueまたはFalseに設定して、クローズファイルのReadOnly属性を変更します。

Private Sub SetReadOnlyProperty(Fn As String, _ 
           ByVal ReadOnly As Boolean) 
    ' 21 Nov 2017 

    Dim Fso As Object 
    Dim Doc As Object 

    Set Fso = CreateObject("Scripting.FileSystemObject") 
    Set Doc = Fso.GetFile(Fn) 

    If (Doc.Attributes And vbReadOnly) <> Abs(Int(ReadOnly)) Then 
     Doc.Attributes = Doc.Attributes Xor vbReadOnly 
    End If 
End Sub 

この手順を実行するには、MS Scripting Runtime DLLが必要です。このアクセスを有効にするには、[VBE]ウィンドウの[ツール]> [参照]からボックスMiscrosoft Scripting Runtimeをオンにします。以下は、関数を呼び出す方法の例です。提供されたファイルが存在しない場合、エラーが発生することに注意してください。

Private Sub TestReadOnly() 
    SetReadOnlyProperty "H:\Test Folder\Test File.docx", False 
End Sub