Can the Normal.dot override Listnums in a Template?

[Ann]

Re. my last message, could it be that the Normal.dot can
override a numbering scheme in a style which is embedded
in a document?

 

[Jezebel]

This is implied by Suzanne's answer. If you don't have separate styles set
up for each level of numbering, what you end up with will be determined by
the list gallery as defined in the user's normal.dot.

 

[Shauna Kelly]

Hi Ann

To add to Suzanne's and Jezebel's answers...

Have a look at the macro you're using. If it uses the word ListGalleries,
then you're in trouble. If the macro was created by using the Macro
Recorder, then it almost certainly does use ListGalleries.

"ListGalleries" is VBA's way to access settings that are stored in the Word
Data key in a machine's registry. Word changes the content of the
ListGalleries every time a user chooses a new format in the Format > Bullets
and Numbering dialog box. So the ListGalleries are (a) user-dependent, (b)
machine-dependent and (c) change at the drop of a hat.

This may explain why different users will see different numbering formats.

If none of the other suggestions solve your problem, post the code here and
we can have a look at it.

Hope this helps.

Shauna Kelly. Microsoft MVP.
http://www.shaunakelly.com/word

 

[Guest]

I am sending you a copy of my code as it does not mention
ListGalleries. As you will see the 5 levels of numbering
are set up in the Listnum called 'AutonosNew'. The
actual number is inserted using the ListNum field.

Sub InsertNumL1()
'
' InsertNumL1 Macro
' Macro recorded 11/05/2004 by Ann Proven
'
Selection.Style = ActiveDocument.Styles("Heading 2")
Selection.Fields.Add Range:=Selection.Range,
Type:=wdFieldEmpty, Text:= _
"LISTNUM AutonosNew\l 1",
PreserveFormatting:=False
Selection.TypeText Text:=vbTab
End Sub

Sub InsertNumL2Bold()
'
' InsertNumL2Bold Macro
' Macro recorded 11/05/2004 by Ann Proven
'
Selection.Style = ActiveDocument.Styles("Heading 3")
Selection.Font.Bold = wdToggle
Selection.Fields.Add Range:=Selection.Range,
Type:=wdFieldEmpty, Text:= _
"LISTNUM AutonosNew\l 2",
PreserveFormatting:=False
Selection.Font.Bold = wdToggle
Selection.TypeText Text:=vbTab
End Sub

Sub InsertNumL3()
'
' InsertNumL3 Macro
' Macro recorded 11/05/2004 by Ann Proven
'
Selection.Style = ActiveDocument.Styles("ind1")
Selection.Fields.Add Range:=Selection.Range,
Type:=wdFieldEmpty, Text:= _
"LISTNUM AutonosNew\l 2",
PreserveFormatting:=False
Selection.TypeText Text:=vbTab
End Sub

Sub InsertNumL4()
'
' InsertNumL4 Macro
' Macro recorded 11/05/2004 by Ann Proven
'
Selection.Style = ActiveDocument.Styles("ind2")
Selection.TypeText Text:=vbTab
Selection.Fields.Add Range:=Selection.Range,
Type:=wdFieldEmpty, Text:= _
"LISTNUM AutonosNew\l 3",
PreserveFormatting:=False
Selection.TypeText Text:=vbTab
End Sub

Sub InsertNumL5()
'
' InsertNumL5 Macro
' Macro recorded 11/05/2004 by Ann Proven
'
Selection.Style = ActiveDocument.Styles("ind3")
Selection.TypeText Text:=vbTab & vbTab
Selection.Fields.Add Range:=Selection.Range,
Type:=wdFieldEmpty, Text:= _
"LISTNUM AutonosNew\l 4",
PreserveFormatting:=False
Selection.TypeText Text:=vbTab
End Sub

Sub InsertNumL6()
'
' InsertNumL6 Macro
' Macro recorded 11/05/2004 by Ann Proven
'
Selection.Style = ActiveDocument.Styles("ind4")
Selection.TypeText Text:=vbTab & vbTab & vbTab
Selection.Fields.Add Range:=Selection.Range,
Type:=wdFieldEmpty, Text:= _
"LISTNUM AutonosNew\l 5",
PreserveFormatting:=False
Selection.TypeText Text:=vbTab
End Sub