使用 VBA 在 word 中另存为 PDF 会导致文档发生更改

Question

我使用以下代码快速将活动的 word 文档转换为 PDF 并保存到桌面。它工作得很好，但是当我之后立即退出文档时，它总是询问我是否要进行更改，而 none 应该在什么时候进行。

有什么方法可以阻止它对文档进行这些不可见的更改，以便它立即退出（例如，如果它是在导出之前保存的）。

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

将其中一个放在最后。

这并不能完全回答您的问题，但会阻止弹出窗口 window 在您关闭文档时出现（通过第一种方法中的代码或稍后在第二种方法中手动）。

Answer 2

我不想保存文档或将其作为 PDF 生成的一部分关闭，所以我在代码开头使用了这一行 If ActiveDocument.Saved = True Then fileSaved = True 来存储保存状态，然后这一行位于最后恢复那个If fileSaved = True Then ActiveDocument.Saved = True

使用 VBA 在 word 中另存为 PDF 会导致文档发生更改

Saving as PDF in word using VBA causes changes to the document

pdf

vba

ms-word