Word XP to PDF

[JustJay]

OK - this might be a tough one...but a challenge nonetheless....

The Situation...

I have a client for which I create a newsletter for each week, however this client consists of 14 individuals that each have a different name, email address, and phone number that has to be put on each newsletter. So in effect each newsletter is completely personalised for them. That's the easy part (mail merge..blah blah blah )

The Challenge....

The final product needs to be in PDF...sure no problem...where the problem lies..is here....

Is it possible....to have Word print to either PDF or Distiller but automatically do it each page into a separtate file....

At present I am doing this by clicking FILE PRINT (choosing Printer) CURRENT PAGE over and over and over again....(Oh yeah did I mention that each copy is done in Color and then Black and White....)

So it takes me almost as long (if not longer) to tranform to PDF than it does to just create the newsletter....

Clear as mud?? Any1 got any Ideas??

Thanks,

[smurfy]

Hmmm, not really other than trying a macro.

Use the Macro recorder and record one instance of printing current page to B&W PDF and colour PDF and then select next page and stop recorder.
Create a custom toolbar button and assign the macro to the button and select first page of newsletter, run the macro and (hopefully) at the end you'll be at the next page and ready to press one button again to repeat the process.
If it works, 14 button click will finish the output.

[JustJay]

Works great! Thanks for the suggestion! Now I just wish it would automatically name the files for me! I know I know...I am asking for too much!

Thanks again!

[smurfy]

Now I just wish it would automatically name the files for me! I know I know...I am asking for too much!

Not at all, if you are saving to the same location each time... I'll test the syntax and method tonight if I have time and post back instructions (I don't do a lot of Word VBA so need to test 1st).

[smurfy]

OK dammit, I guess the success of this depends on how you export to PDF.

On mine (using old version of PDF export print driver thingy) I have PDF output as a print option and the macro recorder only records "print" and no further details of file name or path.

JustJay, can you copy and paste the VBA module that Word created into a reply here. To find it, open the document then Tools>Macro>Visual Basic Editor.

I'll then take a look and see if file name change is possible.

[ 07 February 2002: Message edited by: smurfy ]

[JustJay]

Is this what you were talking about???

Sub Macro4()
'
' Macro4 Macro
' Macro recorded 2/3/2002 by ME
'
ActivePrinter = "\\Server\HP DeskJet 810C"
ActivePrinter = "Acrobat PDFWriter"
Application.PrintOut FileName:="", Range:=wdPrintCurrentPage, Item:= _
wdPrintDocumentContent, Copies:=1, Pages:="", PageType:=wdPrintAllPages, _
ManualDuplexPrint:=False, Collate:=True, Background:=True, PrintToFile:= _
False, PrintZoomColumn:=0, PrintZoomRow:=0, PrintZoomPaperWidth:=0, _
PrintZoomPaperHeight:=0
End Sub
Sub Macro1()
'
' Macro1 Macro
' Macro recorded 2/3/2002 by ME
'
Selection.Find.ClearFormatting
With Selection.Find
.Text = ""
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Application.PrintOut FileName:="", Range:=wdPrintCurrentPage, Item:= _
wdPrintDocumentContent, Copies:=1, Pages:="", PageType:=wdPrintAllPages, _
ManualDuplexPrint:=False, Collate:=True, Background:=True, PrintToFile:= _
False, PrintZoomColumn:=0, PrintZoomRow:=0, PrintZoomPaperWidth:=0, _
PrintZoomPaperHeight:=0
End Sub

[ 07 February 2002: Message edited by: JustJay ]

[JustJay]

BTW - WordXP & Adobe 5.0 can either print to Acrobat PDFWriter or Acrobat Distiller....

Hope that sheds some light...

Oh yeah one thing...you can call me Jay (just Jay...)