Macro for Custom Properties

Hello ...
Although I've been using SW for a number of years, I've never been
asked to write or define Macro's. However, since I've become in
charge of setting up different parameters with regards to SW like part
& drawing templates, also setting up a PDM Vault, etc. I find it
necessary to delve into this field.
I'm looking for help in either writing a macro or borrowing someone's
macro in helping to insert/edit the custom properties of SW drawing
files.
What I would like to achieve is rather than open the Custom Property
dialog box in SW and select a property, edit it, then click on modify,
and continue down the list, I would love to be able to run a macro and
open a dialog box with all the custom properties there (i.e. Drawn By;
Checked By; Approved By; Drawing Title; Drawing Number; etc) and enter
the information there, click ONE button and all the information is
then saved to the Custom Property of the drawing and fills in the
Title Block.
Does anyone have any suggestions on how to accomplish this ???
Thanks for your time.
Brian