Wordオートメーション：編集不可

Question

私はWordで作成したテンプレートにデータを送信するためにAccessを使用しています。データが正常に送信されたら、開いているWord文書を編集不可能にする必要があります。

また、ドキュメントを作成した後、保存を促すことに気付きました。このプロンプトを削除することは可能ですが、保存する機能を許可します。

これは私は、Wordのオートメーションを行うために使用していたコードです：

' Create a Word document from template. 
Dim WordApp As Word.Application 
Dim strTemplateLocation As String 
Dim myVariable As String 
myVariable = “TEST!!” 

' Specify location of template 
strTemplateLocation = Left(CurrentDb.Name, InStrRev(CurrentDb.Name, "\")) & "test.dot" 

Set WordApp = CreateObject("Word.Application") 

WordApp.Visible = True 
WordApp.WindowState = wdWindowStateMaximize 
WordApp.Documents.Add Template:=strTemplateLocation, NewTemplate:=False 


' Replace each bookmark with field contents. 
WordApp.Selection.GoTo what:=wdGoToBookmark, Name:="myBookmark" 
WordApp.Selection.TypeText myVariable 

DoEvents 
WordApp.Activate 
Set WordApp = Nothing 

Answer 1

これはあなたが必要なものを行う必要があります。あなたはDocumentオブジェクトが何らかの変更が行われた場合、通常はFalseに変わりSaved性質を持っているテンプレートパス

Sub Tester() 
    ' Create a Word document from template. 
    Dim WordApp As Word.Application 
    Dim strTemplateLocation As String 
    Dim myVariable As String 

    myVariable = "TEST!!" 
    ' Specify location of template 
    strTemplateLocation = ThisWorkbook.Path & "\test.dotx" 
    Set WordApp = CreateObject("Word.Application") 
    With WordApp 
     .Visible = True 
     .WindowState = wdWindowStateMaximize 
     .Documents.Add Template:=strTemplateLocation, NewTemplate:=False 

     ' Replace each bookmark with field contents. 
     .Selection.GoTo what:=wdGoToBookmark, Name:="myBookmark" 
     .Selection.TypeText myVariable 

     DoEvents 

     With .ActiveDocument 
      .Protect Type:=wdAllowOnlyReading, Password:="blah" 
      .Saved = True 
     End With 

     .Activate 
    End With 

    Set WordApp = Nothing 

End Sub 

Answer 2

を修正する必要がありますので、エクセルではなく、Accessからテスト済み。このプロパティをTrueに設定すると、文書を閉じるときにその文書を保存するように求めるメッセージは表示されませんが、手動で保存することもできます（SaveまたはSave As...）。

DocumentオブジェクトのProtectメソッドを使用して、ユーザーが行う変更を制限することができます。たとえば、パラメータwdAllowOnlyReadingで呼び出すことができます。これは、何らかの変更を加えることができないことを意味します。また、ユーザーが単に保護を解除しないようにするために、文書をパスワードで保護する必要があるかもしれません。