numbering

cjcant · June 21st, 2011, 09:21 AM

Hi,

I have been entering data through the use of bookmarks. During this process I apply the standard word styles.

However, I also want to apply a numbering style (1, 1.1, 1.2, 2, 2.1, etc) to the paragraphs. I know I can just go up to the ribbon and apply it that way but I would really like it to be automated using VBA.

Is this possible?

Thanks

Shasur · June 22nd, 2011, 01:19 AM

Hi

Are you applying the heading style or the normal paragraph style?

Try for the options in Selection.Range.ListFormat.

This can help you

Cheers
Shasur

cjcant · June 22nd, 2011, 04:12 AM

Hi,

Both, I want to make a report so that there are different levels of headings (heading style) and then body text (normal paragraph style). Numbering for the style are as follows:
heading style 1 = 1, 2, 3
heading style 2 = 1.1, 1.2, 2.1, 2.2
paragraph style = no number

These will then be put into a table of contents (hence why I am using Word's built in styles).

Quote:

Try for the options in Selection.Range.ListFormat.

I am fairly new to VBA and I do not know how this can know that the selection is the bookmark. Also, I have been looking on the internet and I got the impression that you need to know the name of the specific list style. If so what is the name of the above style (it is just a standard Word list style).

Also, it is to be applied to the whole document (if that is easier to do).

Thanks
Christine

P.S. I think I am closer to the selection code but I cannot quite get it right. This is what I have come up with so far:

Code:

Private Sub btnFormat2_Click()

Range("para1").Select
Selection.range.ListFormat.ApplyListTemplateWithLevel(listTemplate, level1)

End Sub