525
Creating Envelopes and Labels
`Eliminate blank lines by looking for two carriage returns in a row
iDoubleCR = InStr(strAddress, vbCr & vbCr)
While iDoubleCR <> 0
strAddress = Left(strAddress, iDoubleCR - 1) & Mid(strAddress, iDoubleCR + 1)
iDoubleCR = InStr(strAddress, vbCr & vbCr)
Wend
`Insert the modified address at the current insertion point
Selection.TypeText strAddress
End Sub
19
NOTE
WOPR 2003 includes a utility called the Popup Contacts List that lets you right-click in a
document and insert any name and address from your Outlook Contacts. See Appendix
B, “What’s on Que’s WOPR CD,” for details.
Creating Envelopes and Labels
Word includes an extensive ...