Разделение документа Word на страницы и сохранение с именами файлов на основе поля разработчика на каждой странице - PullRequest
Новая
       33

Разделение документа Word на страницы и сохранение с именами файлов на основе поля разработчика на каждой странице

0 голосов
/ 25 октября 2019

В настоящее время я пытаюсь получить работающий макрос, который разделит документ слияния на отдельные страницы, а затем сохранит их в формате PDF с именем файла на основе полей на этой странице.

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

Вот код для сохранения: 

  Sub FileName()
'
' FileName Macro
'
'
Dim strOrder As String, strDate As String, strName As String

strOrder = ActiveDocument.SelectContentControlsByTitle("Order ID")(1).Range.Text
strDate = ActiveDocument.SelectContentControlsByTitle("Date")(1).Range.Text
strName = ActiveDocument.SelectContentControlsByTitle("buyername")(1).Range.Text

Dim strFilename As String
strFilename = strOrder & "_" & Format(strDate, "ddmmyyyy") & "_" & strName & ".pdf"

ThisDocument.SaveAs strFilename

Dim strPath As String
    strPath = Environ("USERPROFILE") & "\Desktop\"
    ActiveDocument.ExportAsFixedFormat _
            OutputFileName:=strPath & strFilename, _
            ExportFormat:=wdExportFormatPDF, _
            OpenAfterExport:=False, _
            OptimizeFor:=wdExportOptimizeForPrint, _
            Range:=wdExportAllDocument, _
            Item:=wdExportDocumentContent, _
            IncludeDocProps:=False, _
            KeepIRM:=True, _
            CreateBookmarks:=wdExportCreateNoBookmarks, _
            DocStructureTags:=True, _
            BitmapMissingFonts:=True, _
            UseISO19005_1:=False
End Sub

У кого-нибудь есть идеи? Я был бы так благодарен!

M

...