文字自动化：不可编辑

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 object 具有Saved属性，如果进行任何更改，该属性通常会更改为False 。 如果将此属性设置为True ，则在关闭文档时不会提示您保存文档，但如果您愿意，您仍然可以手动保存（通过Save或Save As... ）。

您可以使用Document object 的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