Word 自动化：不可编辑

Question

我正在使用 Access 将数据发送到我在 Word 中创建的模板。成功发送数据后，我需要使打开的 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 对象有一个 Saved 属性，如果进行任何更改，该属性通常会更改为 False。如果您将此属性设置为 True，则关闭文档时不会提示您保存文档，但您仍然可以手动保存它（通过 Save 或 另存为...）如果你愿意的话。

您可以使用 Document 对象的 Protect 方法来限制用户可以进行的更改。例如，您可以使用参数 wdAllowOnlyReading 来调用它，这意味着不能进行任何类型的更改。您可能还需要查看保护文档的密码，以防止用户再次简单地取消保护它

Answer 2

这应该可以满足您的需要。从 Excel 测试，而不是 Access，因此您需要修复模板路径

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