Christopher Greaves |
|||
Christopher Greaves |
|||
If you are interested in applications please visit www.VBASolutions.ca .
If you are interested in end-user macros please visit www.TorontoMacros.com .
We record creation of a new style CG_Bullet1 and, without venturing into the List Gallery, note that no numbering information is recorded.
We record creation of a new style CG_Bullet2 and, venturing into the List Gallery, note that the recorded code includes:
ListGalleries(wdBulletGallery).ListTemplates(1), ListLevelNumber:=1
We should be able, immediately, to paste those lines into our first macro and achieve a bulleted effect.
We do so, after deleting all traces of CG_Bullet1 from our document and attached template (Normal.dot), but after re-running the first macro, augmented with a link to the List template, and applying the style, we see no bullet.
More, we note (Format, Style, Modify, Format, Numbering) that the List Gallery shows no association.
Puzzled, we record a third macro, this time to modify the first style by using the List Gallery to implement the same bullet.
We compare the code generated from the 2nd macro and pasted, ineffectually into the first, with the code generated for the third macro:
ListGalleries(wdBulletGallery).ListTemplates(1), ListLevelNumber:=1
ActiveDocument.Styles("CG_Bullet1").LinkToListTemplate ListTemplate:= _
ListGalleries(wdBulletGallery).ListTemplates(1), ListLevelNumber:=1
A Built-In Numbered Simple List