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

Question

我使用以下代码将活动的Word文档快速转换为PDF并保存到桌面。 效果很好，但是当我之后立即退出文档时，它总是询问我是否要进行更改，何时不应该进行更改。

有没有一种方法可以防止它对文档进行这些无形的更改，以便使其立即退出（例如，如果它是在导出之前保存的）。

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

可以使用以下任一代码关闭文档：

ActiveDocument.Close SaveChanges:= False
End Sub

或在代码末尾再次保存文档：

ActiveDocument.Save
End Sub

将其中任何一项放在最后。

这不能完全回答您的问题，但是可以防止关闭文档时弹出窗口出现（通过第一种方法中的代码或第二种方法中的手动）。

Answer 2

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