Results 1 to 2 of 2
  1. #1
    New Lounger
    Join Date
    Jan 2002
    Thanked 0 Times in 0 Posts

    Document Formating getting lost (WORD)

    I have a word template that creates a WORD mail merge document and then saves each page of the document as a separate file.
    The code to break apart the merge doc and saves as separate files is:

    Private Sub SaveAsFiles()
    Dim i As Long
    Dim Source As Document
    Dim Target As Document
    Dim Letter As Range
    i = 1

    Set Source = ActiveDocument

    Set Letter = Source.Sections(i).Range
    Letter.End = Letter.End - 1

    Set Target = Documents.Add

    Target.Range = Letter
    Target.SaveAs FileName:="H:CmsMergerDocs" & strDocFolderName & "" & aryMailToAddress(i) & "_" & i
    i = i + 1
    Loop Until i > lngNumRecs
    End Sub

    This works great, except for the fact that the resulting saved files have lost the font and formatting of the original mail merge document. How can I change this code to keep the formatting?

    Thanks in advance.

  2. #2
    Plutonium Lounger
    Join Date
    Mar 2002
    Thanked 31 Times in 31 Posts

    Re: Document Formating getting lost (WORD)

    See Individual merge letters or this newsgroup thread for some alternatives.

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts