Results 1 to 5 of 5
  1. #1
    Lounger
    Join Date
    Jun 2008
    Location
    Cork, Ireland, Republic of
    Posts
    35
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Word mail merge (Word - Office 2003)

    Hi guys
    I have a mail merge to complete on 2 letters from an excel sheet with about 150 people... I've added sample letters here - the thing is there will be 3 company logos on top of the letters (i've put them in columns - didn't know if 3 logos could be inserted in a header) and I've marked all the fields that have to be changed in purple. Could anyone help with a macro? The letters will need to be saved as letter1_name1, letter1_name2 etc for both letters.

    thanks!
    Attached Files Attached Files

  2. #2
    Super Moderator
    Join Date
    May 2002
    Location
    Canberra, Australian Capital Territory, Australia
    Posts
    5,054
    Thanks
    2
    Thanked 417 Times in 346 Posts

    Re: Word mail merge (Word - Office 2003)

    Hi Shiela,

    I can't see anything about your document that suggests a standard mailmerge (using Word's mailmerge tools - see under Tools|Mailmerge) wouldn't do the job or that a macro would be needed.

    As for the logos, you can indeed insert 3 (or more) into the document header. For a 1-page mailmerge letter, though, that's probably unnecessary.
    Cheers,

    Paul Edstein
    [MS MVP - Word]

  3. #3
    Lounger
    Join Date
    Jun 2008
    Location
    Cork, Ireland, Republic of
    Posts
    35
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Re: Word mail merge (Word - Office 2003)

    Thanks Paul. I need to merge (I know how to use tools/mail merge to do that) but I need to save all the 150 letters with each individuals details in each letter. So i was hoping for a macro that would do that. Apologies if i didn't explain that properly!

  4. #4
    Super Moderator
    Join Date
    May 2002
    Location
    Canberra, Australian Capital Territory, Australia
    Posts
    5,054
    Thanks
    2
    Thanked 417 Times in 346 Posts

    Re: Word mail merge (Word - Office 2003)

    Hi Shiela,

    Try the following macro on your merged document:
    Sub SplitMergedDocument()
    Dim i As Integer
    Dim j As Integer
    Dim FilePath As String
    Dim MergeDocName As String
    MergeDocName = "MergeFile"
    j = ActiveDocument.Sections.Count
    Selection.HomeKey Unit:=wdStory
    i = 1
    While i < j
    With ActiveDocument
    FilePath = .Path
    .Sections.First.Range.Cut
    End With
    Documents.Add
    With ActiveDocument
    Selection.Paste
    .Sections(2).PageSetup.SectionStart = wdSectionContinuous
    .SaveAs FileName:=FilePath & "" & MergeDocName & i, _
    FileFormat:=wdFormatDocument, AddToRecentFiles:=False
    .Close
    End With
    i = i + 1
    Wend
    End Sub
    Cheers,

    Paul Edstein
    [MS MVP - Word]

  5. #5
    Lounger
    Join Date
    Jun 2008
    Location
    Cork, Ireland, Republic of
    Posts
    35
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Re: Word mail merge (Word - Office 2003)

    Thank you so much for this Paul - i'm sure it'll be a great help and save me major heartache of trying to save each letter separately. I'll let you know how it goes ;o)

Posting Permissions

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