could try this one. Just edit the numbers in the code to match your needs
Sub numberGen() Dim s As Shape Dim n&, i&, dSpace#, dVal# Dim iFirst&, iLast& ActiveDocument.Unit = cdrInch dVal = 0 dSpace = 0.5 iFirst = 100 iLast = 1 For i = iLast To iFirst Set s = ActiveLayer.CreateArtisticText(0, dVal, i) dVal = dVal - dSpace Next iEnd Sub
Thanks for your time, but this macro just types numbers from 1 to 100 in a form of a list. I am looking for a macro that works like a "Numbering" feature (Numbered List) of MS Word. I am attaching a image of MS Word.PLEASE, I really need a macro that can do this job. HELP PLEASE!!!!
Instead of word you might try excel. At least then you could write a formula to input your numbers then save as pdf for use within cd
thanks,I know all these things. but I just need a macro for that.