Selected address to envelope & print envelope

[JohnV]

This macro will copy & paste the addressee’s address that you have selected in a letter to an envelope and print the envelope. My limited testing indicates that it will work with a simple typed address, an address made up of data source fields or one made up of user fields.

It assumes you have:
1) Created an envelope template file that works correctly with your printer.
2) That this template contains an empty text frame intended to hold the recipient's address and that the name of the frame is “Addressee” (this is the default name of the appropriate frame in an envelope created using Insert > Envelope when you choose the New Doc option), and
3) That you will edit the macro to provide the correct path to your envelope template.

EDITED 6-23-05 to allow user to enter the address directly in the envelope if no address is selected, i.e., the envelope is just opened and the macro quits.

[Oropi]

Great macro that comes in very handy.
Just a question though, is there a way to change the macro to PASTE the address into the ADDRESSEE field in PASTE UNFORMATTED form? For some reason I loose formatting of the template as the PASTE function of the source overrides the template.

Cheers,
Oropi

[JohnV]

Try substituting these lines:
dim args2(0) as new com.sun.star.beans.PropertyValue
args2(0).Name = "SelectedFormat"
args2(0).Value = 1
dispatcher.executeDispatch(oEnvFrame, ".uno:ClipboardFormatItems", "", 0, args2())

for this line:
dispatcher.executeDispatch(oEnvFrame, ".uno:Paste", "", 0, Array())

[Oropi]

GREAT stuff.
Works like a charm.

Many thanks,
Oropi

[gokee2]