vba macro to punctuate addresses

[gibsongk55]

Hi,

Does anyone have a vba code to punctuate addresses?

Here is a small list i started, of course it would have to search for a space after each one so it does not punctuate if the characters are in the middle of a word.

pl -> Pl.
trl -> Trl.
ave -> Ave.
ct -> Ct.
st -> St.
ne -> N.E.
nw -> N.W.
se -> S.E.
sw -> S.W.
rd -> Rd.
apt -> Apt.
cir -> Cir.



Thanks,

Gibs

 

[tweedle]

If you would like to investigate dictionaries: Here's a couple links to assists:
http://www.mrexcel.com/forum/showpost.php?p=991091&postcount=2
RangeToDictionary here: http://www.cpearson.com/excel/CollectionsAndDictionaries.htm
Once a dictionary is defined; pretty easy to spell check them.

Here's a list of US street types dumped from one of my dbs:
ALY,AVE,BLVD,BND,BYP,CIR,CRES,CT,CV,DR,EXT,GLN,HOLW,HWY,KNL,LN,LNDG,LOOP,MEWS,PARK,PASS,PATH,PEWY,PKWY,PL,PLZ,PSGE,PT,RD,ROW,RUN,SQ,ST,STA,TER,TRCE,TRL,TURN,WALK,WAY,WYND,XING
[The USPS site seems down at this time (budget cuts I presume)]