從郵件合併中導出單個文檔

Question

如何從郵件合併而不是由Microsoft Office中的郵件合併功能輸出的一個大文件創建個人文件？

我希望能夠保存每個字母不是作爲合併域之一的名字被創建，但我一直沒能找到到目前爲止，以直觀的方式...

Answer 1

爲我的經驗，沒有選擇保存單個文件，而是可以使用宏來吐出文件並將其單獨保存爲您想要的特定名稱。我已經嘗試過並且想要成功。希望下面的代碼可以幫助你實現你的目標。

Sub BreakOnSection() 
    'Used to set criteria for moving through the document by section. 
    Application.Browser.Target = wdBrowseSection 

    'A mailmerge document ends with a section break next page. 
    'Subtracting one from the section count stop error message. 
    For i = 1 To ((ActiveDocument.Sections.Count) - 1) 

     'Select and copy the section text to the clipboard 
     ActiveDocument.Bookmarks("\Section").Range.Copy 

     'Create a new document to paste text from clipboard. 
     Documents.Add 
     'To save your document with the original formatting' 
     Selection.PasteAndFormat (wdFormatOriginalFormatting) 

     'Removes the break that is copied at the end of the section, if any. 
     Selection.MoveUp Unit:=wdLine, Count:=1, Extend:=wdExtend 
     Selection.Delete Unit:=wdCharacter, Count:=1 

     ChangeFileOpenDirectory "C:\" 
     DocNum = DocNum + 1 
     ActiveDocument.SaveAs FileName:="test_" & DocNum & ".doc" 
     ActiveDocument.Close 
     'Move the selection to the next section in the document 
     Application.Browser.Next 
    Next i 
    ActiveDocument.Close savechanges:=wdDoNotSaveChanges 
End Sub 

請恢復我的任何澄清。

Answer 2

最近我遇到過類似的情況，我想以pdf格式保存單個文件，而不是保存郵件合併功能創建的一個大文件。我已經寫下這個小函數來保存PDF格式的單個文件。

Sub SaveAsPDF() 
Dim CouncilName As String 
    With ActiveDocument.MailMerge 
     .Destination = wdSendToNewDocument 
     .SuppressBlankLines = True 
     For SectionCount = 1 To .DataSource.RecordCount 
      With .DataSource 
       'FirstRecord and LastRecords defines how many data records needs to be merge in one document. 
       'createing pdf file for each data record so in this case they are both pointing to ActiveRecord. 
       .FirstRecord = ActiveDocument.MailMerge.DataSource.ActiveRecord 
       .LastRecord = ActiveDocument.MailMerge.DataSource.ActiveRecord 

       'get the council name from data source 
       CouncilName = .DataFields("Council").Value 

       'move to next datasource record. 
       If .ActiveRecord <> .RecordCount Then 
        .ActiveRecord = wdNextRecord 
       End If 
      End With 

      'Get path and file name 
      PDFPathAndName = ActiveDocument.Path & Application.PathSeparator & "FINAL - " & CouncilName & ".pdf" 

      ' Merge the document 
      .Execute Pause:=False 

      ' Save resulting document. 
      Set PDFFile = ActiveDocument 
      PDFFile.ExportAsFixedFormat PDFPathAndName, wdExportFormatPDF 
      PDFFile.Close 0 
     Next 
    End With 
End Sub 

Answer 3

試試這個 - 它爲我工作 - 出口的單詞和pdf

http://www.gmayor.com/individual_merge_letters.htm

Answer 4

我修改Parth的答案，因爲它沒有爲我工作。

Sub SaveAsFileName() 
Dim FileName As String 
With ActiveDocument.MailMerge 
    .Destination = wdSendToNewDocument 
    .SuppressBlankLines = True 

    For SectionCount = 1 To .DataSource.RecordCount 
     With .DataSource 
      ActiveDocument.MailMerge.DataSource.ActiveRecord = SectionCount 
      ActiveDocument.MailMerge.DataSource.FirstRecord = SectionCount 
      ActiveDocument.MailMerge.DataSource.LastRecord = SectionCount 

      ' replace Filename with the column heading that you want to use - can't have certain symbols in the name 
      FileName = .DataFields("Filename").Value 
     End With 

     'Get path and file name 
     FullPathAndName = ActiveDocument.Path & Application.PathSeparator & FileName & ".docx" 

     ' Merge the document 
     .Execute Pause:=False 

     ' Save resulting document. 
     ActiveDocument.SaveAs (FullPathAndName) 
     ActiveDocument.Close False 
    Next 
End With 
End Sub