在Mary的办公室中，他们通常从Word文档创建PDF文件。

他们通过使用“另存为”并选择将文档另存为PDF文件来实现此目的。对于Mary来说，这似乎是“密集的单击”，因此她想知道Word中是否存在将文档另存为PDF文件的快捷方式。

您可以通过两种方法来完成此任务。首先，您可以向`link：/ wordribbon-Adding_Tools_to_the_Quick_Access_Toolbar [快速访问工具栏]`添加命令：

。显示“ Word选项”对话框。 （在Word 2007中，单击Office按钮，然后单击Word选项。在Word 2010和更高版本中，显示功能区的“文件”选项卡，然后单击“选项”。）

。选择对话框左侧的“自定义”选项（Word 2007）或“快速访问工具栏”选项（Word 2010及更高版本）。

。使用“从以下位置选择命令”下拉列表，选择“文件”选项卡。这将显示功能区的“文件”选项卡上的所有命令。

（请参见图1。）

。滚动浏览可用命令列表，然后选择“发布为PDF或XPS”。

。单击添加按钮。该命令将移至对话框右侧的列表中。

。单击确定。现在，新命令将显示在快速访问工具栏上。

单击此工具后，将显示一个非常类似于“另存为”对话框的对话框。您所需要做的就是提供要用于PDF文件的名称，还可以选择选择要保存文件的文件夹。

如果需要，可以通过使用宏采取类似的方法。

不同之处在于该方法实际上会显示“另存为”对话框。

Sub SaveAsPDF1()

With Dialogs(wdDialogFileSaveAs)

.Format = wdExportFormatPDF         .Show     End With End Sub

与所有宏一样，您可以将其添加到快速访问工具栏或创建快捷键来调用它。

到目前为止讨论的两种方法都显示一个对话框，您必须在其中输入文件名并为PDF文件选择一个位置。如果要完全跳过对话框，则可以使用其他宏方法。

Sub SaveAsPDF2()

Dim sName As String     Dim sPath As String

With ActiveDocument         sName = Left(.Name, InStr(.Name, ".") - 1)

sName = sName & ".pdf"

sPath = .Path & "\"



.ExportAsFixedFormat _           OutputFileName:=sPath & sName, _           ExportFormat:=wdExportFormatPDF     End With End Sub

该宏会找出当前打开的文档的文件夹，然后使用与文档相同的名称将PDF保存到该文件夹​​中。

因此，例如，如果您正在处理名为“ MyDoc.docx”的文档，

然后该宏会将PDF保存为“ MyDoc.pdf”。没有显示对话框； PDF文件只是创建和保存。

如果您希望将PDF文件保存在其他文件夹中，则只需将该文件夹的完整路径分配给sPath变量。例如，假设您希望将所有PDF文件保存在一个公用文件夹中。只需替换此行：

sPath = .Path & "\"

用与该行相似的线，针对您所需的路径进行了修改：

sPath = "c:\mypath\pdfs\"

注意：

如果您想知道如何使用此页面（或_WordTips_网站上的任何其他页面）中描述的宏，我准备了一个包含有用信息的特殊页面。

点击此处在新的浏览器标签中打开该特殊页面。

_WordTips_是您进行经济有效的Microsoft Word培训的来源。

（Microsoft Word是世界上最流行的文字处理软件。）本技巧（12240）适用于Microsoft Word 2007、2010、2013和2016。