microsoft.public.word.vba.general

See the "Individual Merge Letters" item on fellow MVP Graham Mayor's website
at:

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

If you are using Word XP or later, the "Add-in to Merge Letters to Separate
Files" that I have written and that can be downloaded from that site will
allow you to create each letter as a separate file with a filename taken
from a field in the data source with a minimum of fuss.


--
Hope this helps.

Please reply to the newsgroup unless you wish to avail yourself of my
services on a paid consulting basis.

Doug Robbins - Word MVP

"rog982001" wrote in message
news:3251C5AC-69D5-4FA8-A889-F5538522032F@microsoft.com...
>I got MS Word to write a macro for me. It didn't work. The macro should
> perform the following tasks on a merged document. The document is merged
> with
> an Excel spreadsheet and an MS Word template. The fields on the Word
> document
> are filled-in with the data from Excel. This part works just fine and
> creates
> approximately 3,800 letters!
>
>
>
> The MS Word macro must:
>
>
>
> 1. Save each letter in a separate file.
>
> a. Pull the control number from each document.
>
> b. Save each file as "CB xxx.doc" where xxx is the control number.
>
> 2. Advance to the next letter in the file.
>
> 3. Repeat steps (1) and (2).
>
>
>
> This is the code that I have so far. If some one could expand on the hard
> coded line:
>
>
>
> RESEARCH_BEGINNING_DATE = "101"
>
>
>
> The number 101 should be a variable not a constant.
>
>
>
> Roger
>
>
>
> Sub Macro2()
> '
> ' Macro2 Macro
> ' Macro recorded 3/28/2008 by Customer Services
> '
> Set myRange = ActiveDocument.Range(Start:=0, End:=1)
> RESEARCH_BEGINNING_DATE = "101"
> FileName = "Charge Back" & RESEARCH_BEGINNING_DATE & ".doc"
> ActiveDocument.SaveAs FileName, FileFormat:= _
> wdFormatDocument, LockComments:=False, Password:="",
> AddToRecentFiles:= _
> True, WritePassword:="", ReadOnlyRecommended:=False,
> EmbedTrueTypeFonts:= _
> False, SaveNativePictureFormat:=False, SaveFormsData:=False, _
> SaveAsAOCELetter:=False
> Selection.MoveDown Unit:=wdScreen, Count:=4
> Selection.HomeKey Unit:=wdLine
> End Sub
>
>
>
> --
> Roger