В офисе Мэри обычно создают файлы PDF из документов Word.

Они делают это, используя команду «Сохранить как» и выбирая сохранение документа в виде файла PDF. Марии это кажется довольно «интенсивным щелчком», поэтому она задается вопросом, есть ли в Word ярлык для сохранения документа в виде файла PDF.

Вы можете подойти к этой задаче двумя способами. Во-первых, вы можете добавить команду в link: / wordribbon-Adding_Tools_to_the_Quick_Access_Toolbar [Панель быстрого доступа]:

  1. Откройте диалоговое окно «Параметры Word». (В Word 2007 нажмите кнопку «Office», а затем — «Параметры Word». В Word 2010 и более поздних версиях откройте вкладку «Файл» на ленте, а затем нажмите «Параметры».)

  2. Выберите параметр «Настроить» (Word 2007) или параметр «Панель быстрого доступа» (Word 2010 и более поздние версии) в левой части диалогового окна.

  3. В раскрывающемся списке «Выбрать команды из» выберите вкладку «Файл». Это отображает все команды, которые находятся на вкладке «Файл» ленты.

(См. Рис. 1.)

  1. Прокрутите список доступных команд и выберите Опубликовать как PDF или XPS.

  2. Щелкните кнопку Добавить. Команда перемещается в список в правой части диалогового окна.

  3. Щелкните ОК. Новая команда теперь отображается на панели быстрого доступа.

При нажатии этого инструмента отображается диалоговое окно, очень похожее на диалоговое окно «Сохранить как». Все, что вам нужно сделать, это указать имя, которое вы хотите использовать для файла 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), я подготовил специальную страницу, содержащую полезную информацию.

link: / wordribbon-WordTipsMacros [Щелкните здесь, чтобы открыть эту специальную страницу в новой вкладке браузера].

WordTips — ваш источник экономичного обучения работе с Microsoft Word.

(Microsoft Word — самая популярная программа для обработки текстов в мире.) Этот совет (12240) относится к Microsoft Word 2007, 2010, 2013 и 2016.