Макрос VB в excel для сохранения активного документа в PDF с именем из ячейки

Я новичок в форуме, и я счастлив быть частью этого. У меня возникла эта проблема уже около трех недель.

То, что я пытаюсь сделать, – создать макрос, который автоматизирует функцию для меня. Я должен обрабатывать тонны контрактов все время и вменять информацию (например, имена, адреса и идентификационные номера) на каждый .doc, чем сохранять этот документ в формате PDF, занимающий много времени. Поэтому я пытаюсь создать таблицу excel, где я могу вменять ту информацию, которая автоматически сохраняется в .doc, эта копия + вставка выполняется с помощью специальной функции вставки (если я что-то меняю в excel, она меняет .doc, поэтому у меня есть целое контракт напечатан с некоторыми пробелами, которые заполняются, когда я печатаю в excel).

После заполнения ячеек в excel с соответствующей информацией мне нужно «сохранить как» этот документ как PDF с информацией из одной из ячеек (в этом случае конкретная ячейка – это то, где указано название компании), тогда мне нужно o скопируйте таблицу excel в новую вкладку, в которой будет указано название компании (той же ячейки, где был сохранен .doc).

Это то, что у меня есть до сих пор:

Sub Autocontratos() Set appWD = CreateObject("Word.Application") appWD.Visible = True appWD.Documents.Open Filename:="C:\Users\lguimaraes\Dropbox\Trabalho em equipe\Laurence\Contracts.docx" appWD.ActiveDocument.SaveAs Filename:= _ ThisWorkbook.Path & "/" & "Contratos" & Range("C2").pdf, ExportFormat:= _ wdExportFormatPDF, OpenAfterExport:=True, OptimizeFor:= _ wdExportOptimizeForPrint, Range:=wdExportAllDocument, From:=1, To:=1, _ Item:=wdExportDocumentContent, IncludeDocProps:=True, KeepIRM:=True, _ CreateBookmarks:=wdExportCreateNoBookmarks, DocStructureTags:=True, _ BitmapMissingFonts:=True, UseISO19005_1:=False ChangeFileOpenDirectory "C:\Users\lguimaraes\Dropbox\Trabalho em equipe\Laurence\Contratos" appWD.ActiveDocument.Close appWD.Quit End Sub 

Попробуйте изменить начало проблемной строки на:

 appWD.ActiveDocument.ExportAsFixedFormat Filename:= _ ThisWorkbook.Path & "\" & "Contratos" & Range("C2") & ".pdf", ExportFormat:= _ 

и сохраните другую часть.

EDIT после комментария:

Затем вернитесь к методу «сохранить как» и попробуйте следующее:

 appWD.ActiveDocument.SaveAs _ ThisWorkbook.Path & "\" & "Contratos" & Range("C2") & ".pdf", FileFormat:=17 

На этот раз попробуйте использовать новую инструкцию вместо вашего сложного метода .SaveAs.

  • из файла xlsx, содержащего ссылки / ссылки на файл необработанных данных xls
  • Сохранение больших xlsx-файлов pandas python
  • Workbook.save - «следующие функции не могут быть сохранены в книгах без макросъемки ...»
  • Формула python pandas для dataframe
  • Множественное использование SaveAs freeze Excel
  • Получите файлы XML и сохраните их копии в папку с помощью vba
  • Закрыть Excel без сохранения в PHP
  • Excel. Внесите переменную в модуль навсегда, если она найдена в электронной таблице в месте
  • Сохранить / загрузить конфигурационный файл настроек пользователя
  • Ошибка Excel 2007 при сохранении рабочей книги после запуска макроса
  • Сохранение копии VSTO в формате VSTO
  • Interesting Posts
    Давайте будем гением компьютера.