Reply
 
Thread Tools Display Modes
  #1   Report Post  
George M. Lutz
 
Posts: n/a
Default Merge multiple documents?

I am a bankruptcy attorney who practices in an "electronic" court.
That is, all filing with the court is done electronically.

I have designed merges for almost all of the usual filings. A typical
filing consists of three separate documents: the motion itself, the
notice, and a proposed order. Each merge I have designed is one
document. I merge that document with a data file, respond to the
prompts, and the result is the three items I need, strung together as
one. I then have to cut two of the documents out, and paste them into
a new document, to get three separate documents to file.

If I created three separate merge forms, I would have to run a merge
for each of them, respond to the prompts for each of them, etc.

Is there a way that I could run a merge exercise one time, with the
result being three separate Word documents?

Thanks for your input.

Best Regards,

George Lutz
  #2   Report Post  
Doug Robbins
 
Posts: n/a
Default

If the length of each document is not more than a single page, you could use
the following macro:

Sub splitter()

'

' splitter Macro

' Macro created 16-08-98 by Doug Robbins to save each page of a document

' as a separate file with the name Page#.DOC

'

Selection.HomeKey Unit:=wdStory

Pages = ActiveDocument.BuiltInDocumentProperties(wdPropert yPages)

Counter = 0

While Counter Pages

Counter = Counter + 1

DocName = "Page" & Format(Counter)

ActiveDocument.Bookmarks("\Page").Range.Cut

Documents.Add

Selection.Paste

ActiveDocument.SaveAs FileName:=DocName, FileFormat:= _

wdFormatDocument, LockComments:=False, Password:="",
AddToRecentFiles:= _

True, WritePassword:="", ReadOnlyRecommended:=False,
EmbedTrueTypeFonts:= _

False, SaveNativePictureFormat:=False, SaveFormsData:=False, _

SaveAsAOCELetter:=False

ActiveWindow.Close

Wend



End Sub

If that is not the case, use a section break to separate the individual
documents and then use:

Sub splitter()

' splitter Macro

' Macro created by Doug Robbins to save each letter created by a mailmerge
as a separate file.

Dim i As Long, Source as Document, Target as Document, Letter as Range
Set Source = ActiveDocument
For i = 1 to Source.Sections.Count
Set Letter = Source.Sections(i).Range
Letter.End=Letter.End-1
Set Target = Documents.Add
Target.Range=Letter
Target.SaveAs FileName:="Letter" & i
Target.Close
Next i

End Sub


--
Please respond to the Newsgroup for the benefit of others who may be
interested. Questions sent directly to me will only be answered on a paid
consulting basis.

Hope this helps,
Doug Robbins - Word MVP
"George M. Lutz" wrote in message
om...
I am a bankruptcy attorney who practices in an "electronic" court.
That is, all filing with the court is done electronically.

I have designed merges for almost all of the usual filings. A typical
filing consists of three separate documents: the motion itself, the
notice, and a proposed order. Each merge I have designed is one
document. I merge that document with a data file, respond to the
prompts, and the result is the three items I need, strung together as
one. I then have to cut two of the documents out, and paste them into
a new document, to get three separate documents to file.

If I created three separate merge forms, I would have to run a merge
for each of them, respond to the prompts for each of them, etc.

Is there a way that I could run a merge exercise one time, with the
result being three separate Word documents?

Thanks for your input.

Best Regards,

George Lutz



Reply
Thread Tools
Display Modes

Posting Rules

Smilies are On
[IMG] code is On
HTML code is Off

Forum Jump

Similar Threads
Thread Thread Starter Forum Replies Last Post
Sending Mail Merge to Email to Multiple Recipients in the Same Mes Mark V Mailmerge 13 April 21st 23 05:06 PM
How to do a mail merge with an Excel workbook that has multiple w. Erica M. Mailmerge 1 February 14th 05 08:05 PM
removing styles across multiple documents jd_editor Microsoft Word Help 1 January 20th 05 09:41 PM
Using Back Arrow when hyperlinking - multiple documents O. Hardin Microsoft Word Help 0 January 13th 05 09:09 PM
Need multiple Ifs in Merge Fields Pat Cortez Mailmerge 1 November 30th 04 01:11 AM


All times are GMT +1. The time now is 12:51 PM.

Copyright ©2000 - 2023, Jelsoft Enterprises Ltd.
Copyright 2004-2023 Microsoft Office Word Forum - WordBanter.
The comments are property of their posters.
 

About Us

"It's about Microsoft Word"