Есть таблица с данными Excel "export (19)" и связанный файл Word "Ответ об отказе срок_" который автоматически заполняется через поле слияния (MERGEFIELD)
- Задача с помощью макроса сохранить Word файл в формате .pdf с определённым именем (добавить к имени файла № претензии который подгружается в поле слияния { MERGEFIELD Номер_претензии })
- Нашел макрос похожего действия, но он добавляет текст к названию из поля со списком.
- Как сделать ссылку на поле слияния (MERGEFIELD) нигде не нашел.
Скрытый текст |
---|
Sub vPDF() ' ' сохранить в PDF Макрос Dim path As String, DocName As String, ContControl As ContentControl '1. Запись в переменную пути, где надо сохранить файл. ' На конце слеш не указывайте. path = "U:\Users\atkachev\Downloads" '2. Запись в переменную "DocName" имени активного файла без расширения. DocName = ActiveDocument.Name DocName = Left(DocName, InStrRev(DocName, ".") - 1) '3. Присваиваем имя "ContControl" элементу управления с тегом "список". For Each ContControl In ActiveDocument.ContentControls If ContControl.Tag = "список" Then Exit For End If Next ContControl '4. Сохранение файла в pdf-формате. ActiveDocument.ExportAsFixedFormat _ OutputFileName:=path & "\" & _ DocName & "_" & Format(Date, "mmdd") & "_" & _ ContControl.Range.Text & ".pdf", _ ExportFormat:=wdExportFormatPDF End Sub |