Bizhub C203/FS519 - Mailmerge-stapling

[Techno Sid]

When trying to do a mailmerge from MS Word & the address list is in Excel, the whole set is stapled as one, instead of individual sets. I beleive that this is an issue within Word & a macro needs to be embedded in the document. Customer is using Word 2000 & 2003. Does anyone have a copy of the macro, or know where to get it from?

[Mr Spock]

This is a mail merge issue. Do a search on the Microshaft website and you should see several solutions depending on which version you are using. I have also seen a post on a website on how to write the macro as well. Just google mail merge and you should be able to find it.

Here is one such site.

MSWord Mail Merge

[Kbros]

I hope this helps in mail merge

Applying printer finishing options in a Microsoft Word Mail Merge






Sub Mail_Merge_Print()
'
' Mail_Merge_Print Macro
' Macro written 05/08/00 by Len Hoyt
lhoyt@ikon.com
'
Application.ScreenUpdating = False

Rem Selection.HomeKey Unit:=wdStory

Selection.Find.ClearFormatting

With Selection.Find
.Forward = True
.Wrap = False
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With

Do
Selection.Extend
Selection.Find.Execute FindText:="^b"
If Selection.Find.Found = False Then Exit Do
Selection.MoveUp Unit:=wdLine, Count:=1, Extend:=wdExtend
Application.PrintOut Range:=wdPrintSelection, Background:=False
Selection.MoveDown Unit:=wdLine, Count:=2, Extend:=False
Loop

End Sub










position.

[4evertech]

Re: I hope this helps in mail merge

This macro appears to be cutting off a few lines and the bottom of our mail merged letter and the footer when the job prints in MS Word 2010. Do you have any ideas why?

Applying printer finishing options in a Microsoft Word Mail Merge






Sub Mail_Merge_Print()
'
' Mail_Merge_Print Macro
' Macro written 05/08/00 by Len Hoyt
lhoyt@ikon.com
'
Application.ScreenUpdating = False

Rem Selection.HomeKey Unit:=wdStory

Selection.Find.ClearFormatting

With Selection.Find
.Forward = True
.Wrap = False
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With

Do
Selection.Extend
Selection.Find.Execute FindText:="^b"
If Selection.Find.Found = False Then Exit Do
Selection.MoveUp Unit:=wdLine, Count:=1, Extend:=wdExtend
Application.PrintOut Range:=wdPrintSelection, Background:=False
Selection.MoveDown Unit:=wdLine, Count:=2, Extend:=False
Loop

End Sub










position.

[TheOwl]

Re: Bizhub C203/FS519 - Mailmerge-stapling

Try this one. I have been giving this to customers to use for years. It is for older versions of Word, but the pricipal should be the same.

Mail Merge.pdf