Macro for adding Custom Property

Does anyone know how to write a macro that can add thefollowing custom property to a drawing.

Drawing - Text - \$PRP:"SW-File Name"

Template Size - Text - \$PRP:"SW-Template Size(Template Size)"

Sheet Size - Text - \$PRP:"SW-Sheet Scale"

Current Sheet - Text - \$PRP:"SW-Current Sheet"

Total Sheets - Text - \$PRP:"SW-Total Sheets" - Total Sheet

ThanksSolidworksApi macros