深入探索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格式的便利。使用方法简单，同时还支持多种语言和批处理操作，使用起来更加高效和便捷。