Using MS-Word Macro between several application

[Mieora]

Hello,

I am a complete newbie in macro / vba stuff. I am trying to do the following:
- Given an open document, I need to create few separate copies,
differentiate by having a watermark. For example, I have a word document
opened, and then I need to create let say 5 copies of that document, where
each copy contains different watermark text.
- For each of watermarked copy, I need to save to / print to pdf, using
different name (here the name of the file can be the same as the text in
watermark).
- Get each of the pdf file and send it to separate email. For example, file
with watermark text "Jon", will have jon.pdf (or jon_date.pdf), to be sent to
jon@his_email.com by MS Outlook.

Is there a way to automate these steps? Is there a way to automate these
steps within MS Word by using macro(s)?

Any idea is appreciated.

 

[Graham Mayor]

Which Word version and which PDF creation tool are you intending to use.

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


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

 

[Mieora]

Office 2003
Adobe Acrobat 5 (I know ... it is old)
Windows XP service pack 2

 

[Graham Mayor]

Sadly due to a death in the family I may not be able to attend to this for
some time. Hopefully someone else will pick it up in the meantime.

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


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

 

[Doug Robbins - Word MVP]

If you were to set up a Watermark that consisted of a {DOCVARIABLE WMARK }
field formatted appropriately, and you were to run a macro containing the
following code

Dim source As Document
Dim i As Long
Set source = ActiveDocument
With source
For i = 1 To 5
.Variables("WMARK").Value = "Item" & i
.Sections(1).Headers(wdHeaderFooterPrimary).Range.Fields.Update
.SaveAs "Item" & i
.PrintOut
Next i
End With

when you have the Adobe Printer as the active printer, it would make 5
copies of the document with the watermarks

Item1
Item2
Item3
Item4
Item5

--
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, originally posted via msnews.microsoft.com