Help with Envelope Macro

[mcp6453]

This macro takes text that has been copied to the
clipboard and pastes it as unformatted text to the
address portion of a business envelope.

Documents.Add Template:= _
"C:\Documents and
Settings\Administrator\Application
Data\Microsoft\Templates\Envelope.dot" _
, NewTemplate:=False, DocumentType:=0
Selection.PasteSpecial Link:=False,
DataType:=wdPasteText, Placement:= _
wdInLine, DisplayAsIcon:=False

What I would like to add is a test that if there is no
text on the clipboard, the macro does not do a paste.
There may not be a solution unless there is a way to tell
the macro that the text in the clipboard is actually the
address for the letter.

Any suggestions for achieving this objective would be
appreciated.

 

[Jonathan West]

Hi mcp6453

This article tells you how you can check and modify the text on the cipboard

Manipulating the clipboard using VBA
http://www.mvps.org/word/FAQs/MacrosVBA/ManipulateClipboard.htm

--
Regards
Jonathan West - Word MVP
MultiLinker - Automated generation of hyperlinks in Word
Conversion to PDF & HTML
http://www.multilinker.com