深入探索saveaspdfandxps

一、簡介

saveaspdfandxps是一款微軟開發的Office插件，用於將Office文檔保存為PDF或XPS格式，方便共享和傳遞。

該插件可以兼容Microsoft Office Word、Excel、PowerPoint和Visio四個應用程序，同時還支持多種語言，如英語、法語、西班牙語、德語、意大利語、荷蘭語、葡萄牙語、捷克語、波蘭語、俄語、土耳其語、簡體中文和繁體中文。

二、優點

1、保存為PDF或XPS格式具有跨平台性，可以在不同操作系統和設備上進行查看和打印。

2、保存為PDF或XPS格式可以節約存儲空間，降低文檔文件大小。

3、支持多種語言，更好地服務於全球用戶。

4、安裝方便，使用簡單，幾乎不需要操作指南。

三、使用方法

1、打開Office應用程序，如Word、Excel、PowerPoint或Visio。

2、選擇「文件」選項卡，點擊「另存為」按鈕。

3、在彈出的「另存為」對話框中，從「文件類型」下拉列表中選擇「PDF或XPS」。

4、指定保存位置和文檔名稱，點擊「保存」按鈕。

5、可根據需要進一步設置PDF或XPS選項，如頁面範圍、文件質量等。

四、代碼示例

Sub Save_As_PDF()

Dim MyFilePath As String

'Specify the file path you want to save the pdf file to.
MyFilePath = "C:\MyFolder\MyFile.pdf"

'Check if the file exists already. If it does, delete it.
If Dir(MyFilePath)  "" Then Kill MyFilePath

'Export the current document as a pdf file.
ActiveDocument.ExportAsFixedFormat OutputFileName:= _
MyFilePath, ExportFormat:=wdExportFormatPDF, _
OpenAfterExport:=False, OptimizeFor:=wdExportOptimizeForPrint, Range:= _
wdExportAllDocument, From:=1, To:=1, Item:=wdExportDocumentContent, _
IncludeDocProps:=True, KeepIRM:=True, CreateBookmarks:= _
wdExportCreateNoBookmarks, DocStructureTags:=True, BitmapMissingFonts:= _
True, UseISO19005_1:=False

End Sub

五、注意事項

1、不同的Office版本可能會有略微不同的界面和操作方式。

2、PDF和XPS都是用於文檔傳遞和打印的格式，但二者還是有一些差異，如XPS格式相對來說更為保守和穩健，可更好地維護文檔格式的完整性。

3、在使用代碼進行批量處理時，一定要確認好文件路徑和名稱，避免出現誤刪除或覆蓋現有文件的情況。

六、結語

saveaspdfandxps是Office應用程序中非常實用的一款插件，為用戶提供了保存文檔為PDF或XPS格式的便利。使用方法簡單，同時還支持多種語言和批處理操作，使用起來更加高效和便捷。