Karen,
Send the two files to me. You need to remove the uppercase letters
(REMOVETHIS) from my email address.
--
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
"Karen Jernigan" wrote in message
...
Hi Doug,
I really appreciate your help, but it's just not working and I need to get
this done. How do I contract with you directly?
Thanks,
kj
"Doug Robbins - Word MVP" wrote:
What do you get if you put the command
MsgBox sourcea.PageSetup.LeftMargin
in front of that line of code.
--
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
"Karen Jernigan" wrote in
message
news
I fixed the file names and am still getting errors. First I get a small
pop
up that says 450 (the number of records) and an OK button. Then both
files
launch. When I click the OK button I get the following MS VB popup.
Run-time
error '5149': the measurement must be between 0 pt and 1584 pt. I can
choose
end, debug or help. End stops the process. Debug takes me to the Macro
and
the following line is highlighted: target.PageSetup.LeftMargin =
sourcea.PageSetup.LeftMargin
"Doug Robbins - Word MVP" wrote:
Inside the " " in place of the ... you need to type the
drive:\path\filename.doc of the document that you created.
Similarly for the Set souceb
--
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
"Karen Jernigan" wrote in
message
...
Now I get an error message that it can't find the file. I've never
worked
with Macros before so I'm not really sure what to look for.
Here's the Macro string pertaining to the file name.
Set sourcea = Documents.Open(FileName:="...")
"Doug Robbins - Word MVP" wrote:
The code that you have shown needs to be prefaced by Sub
Something()
e.g
Sub CombineDocs()
code
End Sub
--
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
"Karen Jernigan" wrote in
message
news
Hi Doug,
I followed the instructions and am getting the following error
when
I
try
to
run the Macro - Compile Error. Invalid Outside Procedure. Thanks
so
much
for
your help!
Here's how the Macro looks:
Dim sourcea As Document, sourceb As Document, target As Document,
Pages
As
Integer, Counter As Integer, targetrange As Range 'targetrange
added
Dim
evenpage As Range
Set sourcea = Documents.Open(FileName:="...")
sourcea.Repaginate Pages =
ActiveDocument.BuiltInDocumentProperties(wdPropert yPages)
MsgBox Pages
Set sourceb = Documents.Open(FileName:="...")
Set target = Documents.Add
target.PageSetup.LeftMargin = sourcea.PageSetup.LeftMargin
target.PageSetup.RightMargin = sourcea.PageSetup.RightMargin
target.PageSetup.TopMargin = sourcea.PageSetup.TopMargin
target.PageSetup.BottomMargin = sourcea.PageSetup.BottomMargin
target.AcceptAllRevisions
Counter = 0
While Counter Pages
sourcea.Activate
ActiveDocument.Bookmarks("\page").Range.Copy
Set targetrange = target.Range
targetrange.Start = targetrange.End
targetrange.Paste
ActiveDocument.Bookmarks("\page").Range.Cut
sourceb.Activate 'Assumed to be the document containing the even
pages
Selection.EndKey Unit:=wdStory 'Line of code added to start from
the
end
of
the document
ActiveDocument.Bookmarks("\page").Range.Copy
Set targetrange = target.Range
targetrange.Start = targetrange.End
targetrange.Paste
targetrange.Start = targetrange.End
targetrange.InsertBreak Type:=wdPageBreak
Set evenpage = ActiveDocument.Bookmarks("\page").Range
evenpage.Start = evenpage.Start - 1
evenpage.Delete
Counter = Counter + 1
Wend
sourcea.Close wdDoNotSaveChanges
sourceb.Close wdDoNotSaveChanges
Sub MergeDocs()
'
' MergeDocs Macro
' Macro created 6/29/2006 by Karen Jernigan
'
End Sub
"Doug Robbins - Word MVP" wrote:
see http://www.gmayor.com/installing_macro.htm
--
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
"Karen Jernigan" wrote
in
message
...
I'm afraid I don't know where to begin to run the macro.
"Doug Robbins - Word MVP" wrote:
Execute each merge to a new document, save (I would call one
"front"
and
the
other "back") and close each one, then run the macro and it
will
ask
you
to
open each one in turn.
--
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
"Karen Jernigan"
wrote
in
message
...
Thanks, Doug! From where do I begin this process?
"Doug Robbins - Word MVP" wrote:
The following code was put together for someone who wanted
to
compile
a
document by taking alternate pages from separate files.
If
you
were
to
execute two separate mail merges to individual documents,
you
could
use
this
code to then combine them into one.
Dim sourcea As Document, sourceb As Document, target
As
Document,
Pages
As Integer, Counter As Integer, targetrange As Range
'targetrange
added
Dim evenpage As Range
Set sourcea = Documents.Open(FileName:="...")
sourcea.Repaginate
Pages =
ActiveDocument.BuiltInDocumentProperties(wdPropert yPages)
MsgBox Pages
Set sourceb = Documents.Open(FileName:="...")
Set target = Documents.Add
target.PageSetup.LeftMargin =
sourcea.PageSetup.LeftMargin
target.PageSetup.RightMargin =
sourcea.PageSetup.RightMargin
target.PageSetup.TopMargin =
sourcea.PageSetup.TopMargin
target.PageSetup.BottomMargin =
sourcea.PageSetup.BottomMargin
target.AcceptAllRevisions
Counter = 0
While Counter Pages
sourcea.Activate
ActiveDocument.Bookmarks("\page").Range.Copy
Set targetrange = target.Range
targetrange.Start = targetrange.End
targetrange.Paste
ActiveDocument.Bookmarks("\page").Range.Cut
sourceb.Activate 'Assumed to be the document
containing
the
even
pages
Selection.EndKey Unit:=wdStory 'Line of code added
to
start
from
the
end of the document
ActiveDocument.Bookmarks("\page").Range.Copy
Set targetrange = target.Range