[chayanne]

Hi Doug,

I was out of the office, but I actually did not receive it. May the file
was too big. Did you send a macro or the seperated documents as an
attachment? Could you please send me the body of the email without the
attachments, so I can read what you sent to me?

Thanks!!!!!!!!!!!!!!!!

"Doug Robbins - Word MVP" wrote:

Yes, I did receive it and I sent something back to you on Friday.

--
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

"chayanne" wrote in message
...
Hi Doug,

I sent the email over to you did you ever receive it??

"Doug Robbins - Word MVP" wrote:

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

"chayanne" wrote in message
news what is your email address?

"chayanne" wrote:

Thanks a million Doug! I emailed it to you! You are saving me lots of
time!

"Doug Robbins - Word MVP" wrote:

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

"chayanne" wrote in message
...
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.

"chayanne" wrote:

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


"chayanne" wrote:

do I need to create the macro? since it does not give me the
prompt?

"Doug Robbins - Word MVP" wrote:

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

"chayanne" wrote in
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

"Doug Robbins - Word MVP" wrote:

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/...ttachments.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

"chayanne" wrote 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??

[Doug Robbins - Word MVP]

I have sent 4 new messages to you, one with the attachments in original
format (1mb), one with no attachments and one with the attachments in a zip
file (.5mb). Then I also forwarded all 3 messages from a different email
account, just in case your ISP has blocked mail from the account/server that
I had been sending them form )

You should also look in your Junk Mail folder to see if they have ended up
there.



--
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

"chayanne" wrote in message
...
Hi Doug,

I was out of the office, but I actually did not receive it. May the file
was too big. Did you send a macro or the seperated documents as an
attachment? Could you please send me the body of the email without the
attachments, so I can read what you sent to me?

Thanks!!!!!!!!!!!!!!!!

"Doug Robbins - Word MVP" wrote:

Yes, I did receive it and I sent something back to you on Friday.

--
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

"chayanne" wrote in message
...
Hi Doug,

I sent the email over to you did you ever receive it??

"Doug Robbins - Word MVP" wrote:

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

"chayanne" wrote in message
news what is your email address?

"chayanne" wrote:

Thanks a million Doug! I emailed it to you! You are saving me lots
of
time!

"Doug Robbins - Word MVP" wrote:

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

"chayanne" wrote in message
...
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.

"chayanne" wrote:

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


"chayanne" wrote:

do I need to create the macro? since it does not give me the
prompt?

"Doug Robbins - Word MVP" wrote:

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

"chayanne" wrote in
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

"Doug Robbins - Word MVP" wrote:

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/...ttachments.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

"chayanne" wrote
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??