Mail merger graphics and individual letters - Gmayor

[Boss]

Hi,

I am using mail merger graphis and mail merger individual letter from some
quite sometime now.

I use details and code in the below mentioned path.

http://www.gmayor.com/individual_merge_letters.htm
http://www.gmayor.com/mail_merge_graphics.htm

First i meger the graphics and then i create individual letters. Only
problem i face is that the individual letters which are created during the
process have the view as normal and i want them in print view.

I tried creating splitmerget.dot and changed the view of normat.dot but
failed.
What changes should i do in the code to get the files in printview.

Please help. Thanks!
Boss

 

[Graham Mayor]

Have you downloaded the most recent version of the add-in?

--
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>
Graham Mayor - Word MVP


<>>< ><<> ><<> <>>< ><<> <>>< <>><<>

 

[Boss]

Yes i am using the most recent verison of the Add-in. I prepare close to 3000
doucments every week.

I change the format of the word files using this code, which is very time
consuming.

Sub AutoOpen()
ActiveWindow.Caption = ActiveDocument.FullName
ActiveWindow.View.Type = wdPrintView

Selection.TypeText Text:="a"
ActiveDocument.Save
Selection.TypeBackspace

ActiveDocument.Save
ActiveDocument.close
End Sub

I put this code in word and run the selected files. I can do bit of coding
in excel and access but really new in word. Please help me solve this. Thanks!

Boss

 

[Graham Mayor]

The macro should not change the view and doesn't here, but if you open the
add-in in Word and in the Class Module > Merge Application
locate:-

Private Sub app_MailMergeAfterMerge(ByVal Doc As Document, ByVal DocResult
As Document)

and in that routine, locate the lines:

If System.PrivateProfileString(SettingsFile, "MacroSettings", "Template") =
"True" Then
Set NewDoc = Documents.Add(Template:=DocTemplate,
Visible:=False)
Else
Set NewDoc = Documents.Add(Visible:=False)
End If

and immediately afterwards add

NewDoc.ActiveWindow.View = wdPrintView

Let me know if that fixes it, via the link on m web site home page.

--
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>
Graham Mayor - Word MVP


<>>< ><<> ><<> <>>< ><<> <>>< <>><<>