У меня есть задачка по созданию макроса в word - никто не берется решить.
Есть документ, в котором 800 страниц. Необходимо сохранить каждую его страницу отдельным документом в формате PDF. Для такого макроса у меня есть код. Но вот как сделать так, чтобы каждый новый документ назывался по первой строчке, расположенной на каждой странице? В данном коде файлу присваивается имя порядкового номера страницы. Не знаю, как исправить
Код:
Есть идея реализовать это следующим образом: сначала макросом разделить файл на вордовские документы с любыми именами, а затем запустить второй макрос, чтобы эти документы переименовали себя по первой строчке на странице и сохранились в pdf.Sub PrintEveryPageAsPdf()
ActiveDocument.Repaginate
Dim pages
pages = ActiveDocument.BuiltInDocumentProperties(wdPropertyPages)
For i = 1 To pages Step 1
ChangeFileOpenDirectory _
"c:\pdffolder"
ActiveDocument.ExportAsFixedFormat OutputFileName:= _
"c:\pdffolder\fname" & i & ".pdf" _
, ExportFormat:=wdExportFormatPDF, OpenAfterExport:=False, OptimizeFor:= _
wdExportOptimizeForPrint, Range:=wdExportFromTo, From:=i, To:=i, Item:= _
wdExportDocumentContent, IncludeDocProps:=True, KeepIRM:=True, _
CreateBookmarks:=wdExportCreateNoBookmarks, DocStructureTags:=True, _
BitmapMissingFonts:=True, UseISO19005_1:=False
Next i
End Sub
Буду дико признательна вам за помощь! Вопрос срочный, а 800 документов пересохранять в PDF - это чудовищно долго!
Заранее спасибо всем откликнувшимся!
