Hi Doug,
I sent the email over to you did you ever receive it??
:
You have to remove the obvious from it so that you would be left with
dkr[at]mvps.org
--
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
what is your email address?
:
Thanks a million Doug! I emailed it to you! You are saving me lots
of
time!
:
Do you have a folder named My Documents in the Z: drive.
If you email the document created by executing the merge to a new
document
to me, I will split it up for you - No Charge.
--
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
How much do you charge, I need to get this done today. It is
driving
me
crazy and I am wastling a lot of time trying to figure this
out.
It
seems
as
though your soulution is perfect, I just can't seem to get it
to
work
for
me.
:
Sub SubSplitter()
'
' SubSplitter Macro
' Macro created 6/4/2008 by CLawrence
Dim mask As String
Selection.EndKey Unit:=wdStory
Letters = Selection.Information(wdActiveEndSectionNumber)
mask = "ddMMyy"
Selection.HomeKey Unit:=wdStory
Counter = 1
While Counter < Letters
DocName = "Z:\My Documents\" & Format(Date, mask) _
& " " & LTrim$(Str$(Counter)) & ".doc"
ActiveDocument.Sections.First.Range.Cut
Documents.Add
With Selection
.Paste
.EndKey Unit:=wdStory
.MoveLeft Unit:=wdCharacter, Count:=1
.Delete Unit:=wdCharacter, Count:=1
End With
(THE LINE BELOW IS HIGHLIGHTED YELLOW AS AN ERROR IN VBA, WHAT
SHOULD I
DO?)
ActiveDocument.SaveAs FileName:=DocName,
FileFormat:=wdFormatDocument
ActiveWindow.Close
Counter = Counter + 1
Wend
End Sub
:
do I need to create the macro? since it does not give me the
prompt?
:
The one you have down loaded is the latest (we keep
tweaking
it).
After you
install it in the Start up folder, you must restart Word
and
whenever
you
start Word, it must be started before Outlook (if you use
Word
as the
editor
in Outlook) and it must be started from the Windows Start
menu
and
not by
double clicking, or right clicking on a Word document on
the
desktop
or in
Windows Explorer.
--
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
message
Hi doug!
Your site states that I need to extract the
MMtoDocRevnn.DOT
template but
when i clicked on the word add-in template it gave me
MMtoDocRev28.DOT.
So I
used it and put it in start up but when I did the merge
the
macro
code did
not take over to offer the choice of merging to separate
documents
or
continuing with a merge to a single document. even
though
it
did
actually
seperate them to different pages within one document. I
assume
that I
need
most recent MMtoDocRevnn.DOT template so I can get that
prompt.
Where do
i
need to go to get it??
The latest version of this code is available for
download
as a
Word
add-in
template. Extract the MMtoDocsRevnn.DOT template (where
nn
is
the
latest
revision number) to the Word startup folder - its
location
defined
in Word
at
Tools > Options > File Locations > Startup
:
If you want to send the letters as attachments to an
email
message, 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.
and then for the emailing of them, see the article
"Mail
Merge to
E-mail
with Attachments" at
http://word.mvps.org/FAQs/MailMerge/MergeWithAttachments.htm
Otherwise, as mentioned by Cathyall, you can execute
the
merge to
email,
in
which case, your letter will be inserted into the body
of
each
email
message.
--
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
in
message
I have succesfully merged my document, now I want to
save
them as
seperate
documents but it will only allow me to save it as one
huge
one.
Once
saved
seperately, I then need to email them using the email
address on
each
letter
as an email merge. Can this be done or am I asking
for
too
much??
