1

使用 MS Word 2010 我希望 Mailmerge 使用宏运行，将每条记录保存为单独的文件，以 PDF 格式使用其中一个字段作为文件名。这将为我节省大量时间。

我遇到的问题是格式完全丢失了，就好像它只是复制文本并将其粘贴到新文档中一样。有什么办法可以保护格式，因为没有它它是徒劳的......

提前致谢。

Sub splitter()

Dim i As Integer
Dim Source As Document
Dim Target As Document
Dim Letter As Range
Dim oField As Field
Dim FileNum As String

Set Source = ActiveDocument

ActiveDocument.MailMerge.DataSource.ActiveRecord = wdLastRecord

For i = 1 To ActiveDocument.MailMerge.DataSource.ActiveRecord
    ActiveDocument.MailMerge.DataSource.ActiveRecord = i
    Set Letter = Source.Range
        For Each oField In Letter.Fields
        If oField.Type = wdFieldMergeField Then
            If InStr(oField.Code.Text, "INV_ID") > 0 Then
            FileNum = oField.Result
            End If
        End If
        Next oField
    Set Target = Documents.Add
    Target.Range = Letter
    Target.SaveAs2 "C:\BACS\INVOICING\INVOICES\Word Export\" & FileNum, 17
    Target.Close
    Next i
End Sub
4

2 回答 2

0

如何使用保存？

此示例代码循环遍历邮件合并文档中的每个邮件合并项目，将项目作为字母打开，并使用 DataSource 中的字段作为文件名将其保存为 PDF。没有错误编码，也没有尝试检查重复的文件名。这是一个片段。

Dim iRec As Integer
Dim docMail As Document
Dim docLetters As Document


Set docMail = ActiveDocument

''There is a problem with the recordcount property returning -1
''http://msdn.microsoft.com/en-us/library/office/ff838901.aspx
docMail.MailMerge.DataSource.ActiveRecord = wdLastRecord
iRec = docMail.MailMerge.DataSource.ActiveRecord

docMail.MailMerge.DataSource.ActiveRecord = wdFirstRecord

For i = 1 To iRec
    With docMail.MailMerge
        .Destination = wdSendToNewDocument
        .SuppressBlankLines = True
        With .DataSource
            .FirstRecord = i
            .LastRecord = i
            '' This will be the file name
            '' the test data source had unique surnames
            '' in a field (column) called Surname
            sFName = .DataFields("Surname").Value
        End With
        .Execute Pause:=False
        Set docLetters = ActiveDocument
    End With
    docLetters.ExportAsFixedFormat OutputFileName:= _
        "Z:\docs\" & sFName & ".pdf", ExportFormat:= _
        wdExportFormatPDF, OpenAfterExport:=False, OptimizeFor:= _
        wdExportOptimizeForPrint, Range:=wdExportAllDocument, From:=1, To:=1, _
        Item:=wdExportDocumentContent, IncludeDocProps:=True, KeepIRM:=True, _
        CreateBookmarks:=wdExportCreateNoBookmarks, DocStructureTags:=True, _
        BitmapMissingFonts:=True, UseISO19005_1:=False
    docLetters.Close False

    docMail.MailMerge.DataSource.ActiveRecord = wdNextRecord
Next
于 2013-02-01T10:57:04.073 回答
0

首先让我在应得的地方给予赞扬，因为我对编写宏一无所知。事实上，这是我第一次尝试使用宏，更不用说修改代码了。只有 24 岁的 Basic 知识（是原始知识，不是 Visual Basic）和 Fortran（不是穿孔卡 Fortan，但非常接近）我从http://raduner.ch/blog/microsoft-获取了 Mr.Raduner 宏word-mail-merge-into-single-documents， Remou 用于生成上述 pdf 的宏代码，以及其他一些，并结合了不同方面和 PRESTO ！！！我显然很幸运，但它适用于 MS Word 2010。希望它也适用于其他所有人。我正在加载单个 pdf 创建者和单个 word 文件创建者。我希望了解 Visual Basic 的人能将其清理干净，并使其对其他人更加用户友好。

单个字文件宏（请注意，您的 Excel 数据源中必须有一个“文件名”列）：

Sub SaveIndividualWordFiles()
Dim iRec As Integer
Dim docMail As Document
Dim docLetters As Document
Dim savePath As String

Set docMail = ActiveDocument
''There is a problem with the recordcount property returning -1
''http://msdn.microsoft.com/en-us/library/office/ff838901.aspx

savePath = ActiveDocument.Path & "\"

docMail.MailMerge.DataSource.ActiveRecord = wdLastRecord
iRec = docMail.MailMerge.DataSource.ActiveRecord
docMail.MailMerge.DataSource.ActiveRecord = wdFirstRecord

For i = 1 To iRec
 With docMail.MailMerge
    .Destination = wdSendToNewDocument
    .SuppressBlankLines = True
    With .DataSource
        .FirstRecord = i
        .LastRecord = i
        '' This will be the file name
        '' the test data source had unique surnames
        '' in a field (column) called FileName
        sFName = .DataFields("FileName").Value
    End With
    .Execute Pause:=False
    Set docLetters = ActiveDocument
  End With

' Save generated document and close it after saving
        docLetters.SaveAs FileName:=savePath & sFName
        docLetters.Close False

  docMail.MailMerge.DataSource.ActiveRecord = wdNextRecord
Next
End Sub
于 2013-12-06T12:16:47.117 回答