Results 1 to 8 of 8
  1. #1
    New Lounger
    Join Date
    Mar 2004
    Posts
    7
    Thanks
    0
    Thanked 0 Times in 0 Posts

    envelopes w/USA (Word2002 SP2)

    When you select an address from an Outlook address book for your envelope, USA always shows at the end of the address. Is there a way to not show USA on any envelopes?

  2. #2
    Gold Lounger Rebel's Avatar
    Join Date
    Jul 2001
    Location
    Canada
    Posts
    3,024
    Thanks
    0
    Thanked 1 Time in 1 Post

    Re: envelopes w/USA (Word2002 SP2)

    You probably have selected USA as the Country/Region when setting up the address. In Contacts, double click on one of the contacts and then click on the Business, Home or Other address and you will see that the last field is the Country/Region field. If you have selected a country, then it will be included in the envelope address.
    John
    A Child's Mind, Once Stretched by Imagination...
    Never Regains Its Original Dimensions

  3. #3
    New Lounger
    Join Date
    Mar 2004
    Posts
    7
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Re: envelopes w/USA (Word2002 SP2)

    Thanks. Is there a way to remove this from all contacts or do you have to go into each one?

  4. #4
    Gold Lounger Rebel's Avatar
    Join Date
    Jul 2001
    Location
    Canada
    Posts
    3,024
    Thanks
    0
    Thanked 1 Time in 1 Post

    Re: envelopes w/USA (Word2002 SP2)

    Each one I'm afraid.
    John
    A Child's Mind, Once Stretched by Imagination...
    Never Regains Its Original Dimensions

  5. #5
    New Lounger
    Join Date
    Mar 2004
    Posts
    7
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Re: envelopes w/USA (Word2002 SP2)

    Well, it was worth a try.

  6. #6
    Uranium Lounger
    Join Date
    Dec 2000
    Location
    Los Angeles Area, California, USA
    Posts
    7,453
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Re: envelopes w/USA (Word2002 SP2)

    Wait. One of the WMVPs gave me a macro a couple years ago that changed all the Outlook address formats. Now if I could just find it. Also, there is a way to modify the address format that Word uses from Outlook. I will look for it.

    Take a look at this article for modifying the address layout in Word.

    It was <!profile=JScher2000>JScher2000<!/profile> who devised the macro. I'm still looking for the post.

    OK. Found it. Take a look at <post#=59608>post 59608</post#>.

  7. #7
    Super Moderator jscher2000's Avatar
    Join Date
    Feb 2001
    Location
    Silicon Valley, USA
    Posts
    23,112
    Thanks
    5
    Thanked 93 Times in 89 Posts

    Re: envelopes w/USA (Word2002 SP2)

    Thanks, Phil. Probably faster than I would have found it. <img src=/S/grin.gif border=0 alt=grin width=15 height=15>

  8. #8
    Super Moderator
    Join Date
    Jan 2001
    Location
    Melbourne, Victoria, Australia
    Posts
    3,852
    Thanks
    4
    Thanked 259 Times in 239 Posts

    Re: envelopes w/USA (Word2002 SP2)

    Years ago, Woody included in a newsletter a macro method to selectively remove the Country when you were inserting it into Word rather than iterating through your Outlook contacts and removing the data there. Naturally, I bastardised Woody's good work in setting the macro to work on my machine so this is the macro I use.
    <pre>Sub InsertAddressFromOutlook()
    Dim strCode, strAddress As String
    Dim iDoubleCR As Integer

    'Set up the formatting codes in strCode
    strCode = "<PR_DISPLAY_NAME>" & vbCr
    strCode = strCode & "<PR_COMPANY_NAME>" & vbCr
    strCode = strCode & "<PR_STREET_ADDRESS>" & vbCr
    strCode = strCode & "<PR_LOCALITY>, <PR_STATE_OR_PROVINCE> <PR_POSTAL_CODE>" & vbCr
    strCode = strCode & "<PR_COUNTRY>" & vbCr

    'Let the user choose the name in Outlook
    strAddress = Application.GetAddress("", strCode, False, 1, 1, , True, True)
    'Strip away the final "Australia", if any
    If Right(strAddress, 10) = "Australia" & vbCr Then
    strAddress = Left(strAddress, Len(strAddress) - 10)
    End If

    '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</pre>

    Andrew Lockton, Chrysalis Design, Melbourne Australia

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •