0

我有一个有趣的问题，但在某处找不到答案。我需要打印大约 2000 封信，当然我会使用 Mail Merge 来完成。问题：我需要每一个都以 pdf 格式打印出来。我发现我必须在 Word 中使用 VBA 宏来获取单个字母（而不是在一个文档中获取全部字母），这已经有效。但我不知道如何将它们自动转换成 pdf。

有没有人有想法可以帮助我？我感谢您的帮助。

到目前为止我得到了什么（通过邮件合并制作单个文档）：

    Sub EinzelDatei() 

    Dim actpath As String, Dateiname As String 
    Dim fs As Object 
    Dim LetzterRec As Long 


    Const path As String = "D:\Test\" 

    On Error GoTo 0 

    Application.ScreenUpdating = False 
    Application.Visible = False 

    ActiveDocument.MailMerge.DataSource.ActiveRecord = wdLastRecord 
    LetzterRec = Word.ActiveDocument.MailMerge.DataSource.ActiveRecord 

    ActiveDocument.MailMerge.DataSource.ActiveRecord = wdFirstRecord 

    With ActiveDocument.MailMerge 
        .DataSource.ActiveRecord = wdFirstRecord 
        Do 
            If .DataSource.ActiveRecord > 0 Then 
                .Destination = wdSendToNewDocument 
                .SuppressBlankLines = True 

               With .DataSource 

                    actpath = path & "\"          'Der aktuelle Pfad wird zusammengesetzt 

                    Set fs = CreateObject("Scripting.FileSystemObject") 
                    If fs.folderexists(actpath) = False Then MkDir (actpath) 'Wenn der Pfad         noch nicht existiert wird er jetzt erstellt 


                    .FirstRecord = .ActiveRecord 
                    .LastRecord = .ActiveRecord 

                Dateiname = actpath & _ 
                    .DataFields("No").Value & "-" & _ 
                    .DataFields("Surname").Value & "," & _ 
                    .DataFields("First_Name").Value & ".docx"                  'Dateiname =                 Name, Vorname.doc 
                End With 
                .Execute Pause:=False 

                ActiveDocument.SaveAs FileName:=Dateiname                   '
                ActiveDocument.Close False 
            End If 

        If .DataSource.ActiveRecord < LetzterRec Then 
             .DataSource.ActiveRecord = wdNextRecord 
          Else 
             Exit Do 
          End If 
       Loop 


    End With 


    MsgBox ("Erledigt") 
    Application.Visible = True 
    Application.ScreenUpdating = True 

    End Sub

先感谢您！！！

4

3 回答 3

1

利用

ActiveDocument.SaveAs FileName:=Dateiname, FileFormat:=wdsaveformat.wdFormatPDF

或者可能

ActiveDocument.SaveAs2 文件名：=日期名称，文件格式：=wdsaveformat.wdFormatPDF

但它只能在 Word 2007 SP2（我认为）及更高版本中工作。

于 2013-01-09T10:07:08.657 回答
1

在 Word 2007 中，导出功能可以将文件另存为 pdf：

ActiveDocument.ExportAsFixedFormat OutputFileName:= _
        "Path to PDF", ExportFormat:= _
        wdExportFormatPDF
于 2015-10-01T16:49:53.843 回答
0

有点简单，但您可以将默认打印机设置为 PDF 创建器，然后使用打印功能。在 2010 年，一旦您完成合并，您将获得打印或编辑选项。

于 2013-12-16T21:43:44.530 回答