使用VBA以Word格式另存为PDF会导致文档更改

Question

I use the following code to quickly convert an active word document to PDF and save to desktop. It works very well but when I go to exit the document immediately afterwards it always asks if I want to make changes, when none should have been made.

Is there a way I can prevent it making these invisible changes to the document so that it will just immediately quit (if it was saved just before the export, for example).

Sub PdfToDesktop()
'
'
Dim DeskTop As String
DeskTop = CreateObject("WScript.Shell").SpecialFolders("Desktop")

Dim fileNameOnly As String
Dim fileNameDot As Integer
fileNameDot = InStr(1, ActiveDocument.Name, ".")

fileNameOnly = Left(ActiveDocument.Name, fileNameDot - 1)

    ActiveDocument.ExportAsFixedFormat OutputFileName:= _
        DeskTop & "\" & fileNameOnly & ".pdf", ExportFormat:=wdExportFormatPDF, _
        OpenAfterExport:=True, OptimizeFor:=wdExportOptimizeForPrint, Range:= _
        wdExportAllDocument, From:=1, To:=1, Item:=wdExportDocumentContent, _
        IncludeDocProps:=True, KeepIRM:=True, CreateBookmarks:= _
        wdExportCreateNoBookmarks, DocStructureTags:=True, BitmapMissingFonts:= _
        True, UseISO19005_1:=False
    ChangeFileOpenDirectory DeskTop
End Sub

Answer 1

Either have the code close the document with:

ActiveDocument.Close SaveChanges:= False
End Sub

Or save the document again at the end of the code:

ActiveDocument.Save
End Sub

Put either of these right at the end.

This doesn't entirely answer your question, but will prevent the pop-up window from appearing when you close the document (either through code in the first method or manually later in the second).

Answer 2

我不想保存文档或将其作为PDF生成的一部分关闭，因此我在代码的开头使用了这一行。 If ActiveDocument.Saved = True Then fileSaved = True来保存保存状态，然后在结束还原， If fileSaved = True Then ActiveDocument.Saved = True