[Word] WORD 2007 Extracting Individual docs from a doc with sectionbreaks

[McKinnon, Bonnie F]

Ron,

Thanks, this too is very helpful.

Bonnie


________________________________
From: word-bounces at dcomp.com [mailto:word-bounces at dcomp.com] On Behalf Of Ron Solecki
Sent: Monday, January 25, 2010 7:38 PM
To: DailyWordTips
Subject: Re: [Word] WORD 2007 Extracting Individual docs from a doc with sectionbreaks

Oh, how about this, I just "tripped" over this related article:
http://support.microsoft.com/?kbid=216845


On Mon, Jan 25, 2010 at 19:48, McKinnon, Bonnie F <BMCKINNON at mccarthy.ca<mailto:BMCKINNON at mccarthy.ca>> wrote:
 If you go the site below there is an excellent free download for using to save merged files to separate files.  It is a little program that works great and is easy to install.


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

 Go down to and read "CreateEmailData.zip" and "Individual Merge Documents add-in".

Bonnie


________________________________
From: word-bounces at dcomp.com<mailto:word-bounces at dcomp.com> [mailto:word-bounces at dcomp.com<mailto:word-bounces at dcomp.com>] On Behalf Of Liz
Sent: Friday, January 22, 2010 6:11 AM
To: DailyWordTips
Subject: Re: [Word] WORD 2007 Extracting Individual docs from a doc with sectionbreaks

Seena...Word does this natively.  At some point in the Word mail merge process, you can choose to have Word create and save a file for each merged record, you have to choose which field to use to give the file name. I will look for some instructions for that.

Liz

From: Srinivasulu B<mailto:bhattarams at gmail.com>
Sent: Friday, January 22, 2010 2:38 AM
To: DailyWordTips<mailto:word at dcomp.com>
Subject: [Word] WORD 2007 Extracting Individual docs from a doc with sectionbreaks


Sub Splitter()
    Selection.EndKey Unit:=wdStory
    numlets = Selection.Information(wdActiveEndSectionNumber)
    If numlets > 1 Then numlets = numlets - 1
    Selection.HomeKey Unit:=wdStory


    BaseName = "c:\Let"
    For Counter = 1 To numlets
        DocName = BaseName & Right("000" & LTrim(Str(Counter)), 3)
        ActiveDocument.Sections.First.Range.Cut
        Documents.Add


        Selection.Paste
        Selection.MoveLeft Unit:=wdCharacter, Count:=1
        Selection.Delete Unit:=wdCharacter, Count:=1
        ActiveDocument.SaveAs FileName:=DocName
        ActiveWindow.Close


    Next Counter
End Sub

==============================

Using Mailmerge I could create a merged documents.
I was able to get a file with n pages (where n is the number of records in the data file)
I need a separate doc  file for each record.
WORD 2007 gives pages separated by section brakes.
In Allen's site I got this macro
But it does not work. I get an error (4605)
Is it possible to "repair" this macro a some macro is available to do this task.
I want a doc file for each record, after merging.
seena

===========================================================
This e-mail may contain information that is privileged, confidential and/or exempt from disclosure.
No waiver whatsoever is intended by sending this e-mail which is intended only for the named recipient(s).
Unauthorized use, dissemination or copying is prohibited. If you receive this email in error, please notify
the sender and destroy all copies of this e-mail. Our privacy policy is available at www.mccarthy.ca<http://www.mccarthy.ca> .


_______________________________________________
Word mailing list
Word at dcomp.com<mailto:Word at dcomp.com>
http://lists.dcomp.com/mailman/listinfo/word


-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://lists.dcomp.com/pipermail/word/attachments/20100126/1062e318/attachment.html