Question

通过vb把文本替换到固定word格式并打印出来。但在退出时希望word不提示保存并默认为不保存更改

.save 改成什么

Answer 1

Private Sub CommandButton1_Click()
    Dim wordObj
    Set wordObj = CreateObject("Word.application")
    With wordObj.documents.Open("F:\shiyan.docx")
        .Content.Find.Execute "xxx", , , , , , , , , Text1.Text, 2
        wordObj.Visible = False
        wordObj.PrintPreview = False
        wordObj.PrintOut
        .Close False
    End With
    wordObj.Quit
End Sub

Answer 2

你可以删掉.save试试。还可以在“帮助”里搜索相关参数

追答

.quit 也许有参数

追问

这个不可以 刚刚试了试

追答

这么简单的输出为什么不用报表，或者用word模板。

就替换几个字，打开word再关太麻烦了

追问

谢谢你