Home | Contact Us | FAQ | Search & Site Map | Link to Us
Sign In | Join | Other 45 Sites in Network
Home
DiscussionsAccessExcelInfoPathOutlookPowerPointPublisherWord
DirectoryUser Groups
Related Topics
Outlook ExpressInternet ExplorerWindowsMS Server ProductsMore Topics ...

MS Office Forum / Word / Mailmerge and Fax / March 2006

Tip: Looking for answers? Try searching our database.

Header text is missing after using Splitter Macros from D. Robbins/G. Mayor.

Thread view: 
Enable EMail Alerts  Start New Thread
Thread rating: 
RRR_News - 23 Mar 2006 23:00 GMT
First of want to thank all the Word MVP's for all their help, and all their
websites. I have learned allot about MS Word, that I did not know before.

My problem is that after I do a mail merge, and create a single "merged"
document. When I use either the "Splitter" or "MergeSplitter" Macros. The
resulting single documents get saved with none of the text in the header. I have
my letterhead & {printdate} field in there. I would like to leave it there if I
can. Am I doing something wrong? Any help in this matter would be appreciated.

I have a

Signature

Have A Good Day
Rich/rerat

Add MS to your News Reader: news://msnews.microsoft.com
(RRR News)    <message rule>
<<Previous Text Snipped to Save Bandwidth When Appropriate>>

Doug Robbins - Word MVP - 24 Mar 2006 06:02 GMT
The following should retain the header/footer information in the individual
documents:

Sub splitter()
' splitter Macro
' Macro created by Doug Robbins to save each letter created by a mailmerge
' as a separate file, retaining the header and footer information.
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
   Set Target = Documents.Add
   Target.Range = Letter
   Target.Sections(1).PageSetup.SectionStart = wdSectionContinuous
   Target.SaveAs FileName:="Letter" & i
   Target.Close
Next i
End Sub

Signature

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

> First of want to thank all the Word MVP's for all their help, and all
> their
[quoted text clipped - 10 lines]
>
> I have a
RRR_News - 24 Mar 2006 18:57 GMT
Doug,
Thank-you for all your help. There must be something wrong in my documents, that
this does not work. I will have to redo them. And again thank-you.

Signature

Have a Good Day,
Rich/rerat

(RRR News)    <message rule>
<<Previous Text Snipped to Save Bandwidth When Appropriate>>

The following should retain the header/footer information in the individual
documents:

Sub splitter()
' splitter Macro
' Macro created by Doug Robbins to save each letter created by a mailmerge
' as a separate file, retaining the header and footer information.
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
   Set Target = Documents.Add
   Target.Range = Letter
   Target.Sections(1).PageSetup.SectionStart = wdSectionContinuous
   Target.SaveAs FileName:="Letter" & i
   Target.Close
Next i
End Sub

Signature

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

> First of want to thank all the Word MVP's for all their help, and all
> their
[quoted text clipped - 10 lines]
>
> I have a
Doug Robbins - Word MVP - 24 Mar 2006 19:25 GMT
Sorry, the code should have been:

Sub splitter()
' splitter Macro
' Macro created by Doug Robbins to save each letter created by a mailmerge
' as a separate file, retaining the header and footer information.
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
   Set Target = Documents.Add
   Target.Range = Letter
   Target.Sections(2).PageSetup.SectionStart = wdSectionContinuous
   Target.SaveAs FileName:="Letter" & i
   Target.Close
Next i
End Sub

Signature

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

> Doug,
> Thank-you for all your help. There must be something wrong in my
[quoted text clipped - 36 lines]
>>
>> I have a
RRR_News - 24 Mar 2006 22:15 GMT
Doug,
Thank-you, I will try this over the weekend. As I have said, it might be the way
I constructed the templates in the first place. Still learning Word.

Signature

Have a Good Day,
Rich/rerat

(RRR News)    <message rule>
<<Previous Text Snipped to Save Bandwidth When Appropriate>>

Sorry, the code should have been:

Sub splitter()
' splitter Macro
' Macro created by Doug Robbins to save each letter created by a mailmerge
' as a separate file, retaining the header and footer information.
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
   Set Target = Documents.Add
   Target.Range = Letter
   Target.Sections(2).PageSetup.SectionStart = wdSectionContinuous
   Target.SaveAs FileName:="Letter" & i
   Target.Close
Next i
End Sub

Signature

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

> Doug,
> Thank-you for all your help. There must be something wrong in my
[quoted text clipped - 36 lines]
>>
>> I have a
RRR_News - 28 Mar 2006 20:22 GMT
Doug,
Again I want to thank-you for all you help in this matter. With a little
experimentation over the weekend, I found that your Macros of "Splitter" and
"SplitMerge" seem to be right that are posted on G. Mayors site. It appears that
my documents are not constructed properly. During the splitting process, it
appears that the header from the next page is saved with the first page, and so
on. Which also means that the header for the third page is saved with for the
header of the second page, etc.

So if I have no header for the second page, there will be no header saved on the
first page, after the split. I need to get better understanding on using headers
& footers, and section breaks. So that I can properly use the Macros that you've
created. Can you recommend, any online tutorials, or books, that can assist me
in this matter.

Again thank-you for all your help!

--
Have A Good Day
Rich/rerat

Add MS to your News Reader: news://msnews.microsoft.com
(RRR News)    <message rule>
<<Previous Text Snipped to Save Bandwidth When Appropriate>>

Doug,
Thank-you, I will try this over the weekend. As I have said, it might be the way
I constructed the templates in the first place. Still learning Word.

<<Previous Text Snipped to Save Bandwidth When Appropriate>>

>> First of want to thank all the Word MVP's for all their help, and all
>> their
[quoted text clipped - 11 lines]
>>
>> I have a
Doug Robbins - Word MVP - 28 Mar 2006 20:53 GMT
Maybe you have a <<Next Record>> field in the header that should not be
there.

Signature

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

> Doug,
> Again I want to thank-you for all you help in this matter. With a little
[quoted text clipped - 47 lines]
>>>
>>> I have a
 
Sign In
Join
My Latest Posts
My Monitored Threads
My Blog
My Photo Gallery
My Profile
My Homepage

Start New Thread
Enable EMail Alerts
Rate this Thread



©2008 Advenet LLC   Privacy Policy - Terms of Use
This website includes both content owned or controlled by Advenet as well as content owned or controlled by third parties.