Outline numbering 2nd level lost

[Jean Pereira]

Dear Bruce,

Below I have tried to answer all your points - I was
trying to condense my original question which is why I
didn't mention that I had created 6 individual styles for
numbering each level and that the one style containing 6
levels of numbering which doesn't convert in XP was in
addition to this.

1) - Most of the docs do have TOC's and so I created 6
individual styles (called A1-A6) for the main body
numbering. We use A1 style in the TOC only.

In our schedules at the end of most docs, we wanted to use
legal auto numbering but the style had to be slightly
different in that it wouldn't have a heading (like A1) and
should not go into the TOC (like A1). Hence the creation
of A1 Sched, and this is the main reasoning behind having
one style covering six levels for our schedule numbering
in addition to styles A1-A6.

When I created them nearly 4 years ago, I didn't know
enough about Word and how to use/modify styles etc. as we
had just moved from WordPerfect, (which, I have to admit,
handled auto numbering brilliantly). I didn't use Heading
1-9 because I was unsure how this would appear on clients
pc's if they were using Heading 1-9 - didn't also
understand concept of templates at the time as WordPerfect
didn't use them.

Next step, you need to tell us the following details:

1) Do these documents have a table of contents? If
so . . .

* Which numbering levels are captured in the TOC?

Answer: 1) - Most of the docs do have TOC's. We use A1
style in the TOC only as it has a heading (See styles
listing below).

* Or do the headings end with a paragraph mark, with
text always
following on the line below?

1. Specifications

The following specifications . . .

Answer: Style A1 ends with a para mark and the following
para is normally body text indented to 0.8 with no number
against it.

N.B. Sometimes, we include a square bracket [ before auto
number. I wrote a little macros which goes into the style
and puts it there - or deletes it accordingly)

2) For each numbering level, we have to know:

* Font attributes (if any) of the number and the text
that follows
it; and
* Exact position of number relative to left margin.
ANSWER:
These are the 6 individual styles we use - which convert
over fine in XP
Answer: Level 1 (A1):
Number pos: on left margin. Indent 0.8" for text
Has heading for TOC.
Number bold. Text bold and caps. (Times New Roman
12pt)
Spacing after para 12 pt
Following para is always in body text with no
number
Answer: Level 2: (A2)
Number pos: on left margin. Indent 0.8" for text
Number and Text regular. (Times New Roman 12pt)
Spacing after para 12 pt
Answer: Level 3: - A3 Based on A2 +
Number pos: on left margin. Indent 0.8" for text
Number and Text regular. (Times New Roman 12pt)
Spacing after para 12 pt
Answer: Level 4: A4 based on level A2
Number pos: aligned at 0.8" from left margin.
Indent 1.6" for text
Number and Text regular. (Times New Roman 12pt)
Spacing after para 12 pt
Answer: Level 5: A5 based on A2 +
Number pos: aligned at 1.6" from left margin.
Indent 2.4" for text
Number and Text regular. (Times New Roman 12pt)
Spacing after para 12 pt
Answer: Level 6: A6 based on A2 +
Number pos: aligned at 2.4" from left margin.
Indent 3.0" for text
Number and Text regular. (Times New Roman 12pt)
Spacing after para 12 pt

Levels 1-4 use legal style numbering, levels 5 and 6 use
(a) and (i) respectively.

3)

The important thing is that YOU NEED A *DIFFERENT* HEADING
STYLE FOR EACH LEVEL in order to have full control over
your outline numbering.
Your problem, I'm guessing, came about because you
apparently had only *one* style linked to a list template,
and somehow that list template loses its settings for
levels higher than 1 when switching over to XP.

When you apply a different Heading style to each level,
you will still be able to promote/demote levels with
Tab/Shift Tab.

Answer: Because most of the docs do have TOC's I had to
create a style in addition to A1-A6 for the schedule
numbering only (A1 Sched) which would not be included in
the TOC and didn't have a heading.

A1 Sched - (the offending style)is made up as follows:

Level 1 Bold Number, positioned at margin, indent of 0.8"
for text
Level 2 regular Number, positioned at margin, indent of
0.8" for text
Level 3 regular Number, positioned at margin, indent of
0.8" for text
Level 4 regular Number, aligned at 0.8" from margin,
indent of 1.6" text
Level 5 regular Number, aligned at 1.6" from margin,
indent of 2.4" text
Level 6 regular Number, aligned at 2.4" from margin,
indent of 3.0" text

Levels 1-4 use legal style numbering, levels 5 and 6 use
(a) and (i) respectively.

I agree that the problem is XP losing the settings when
there is only style covering several levels of numbering.
What I can't understand is why if the macro you sent me
recognises the level of the number, why doesn't it
appear?

Hope you're still optimistic!!

Jean

 

[Bruce Brown]

Ah ha, the plot thickens. We're dealing with schedules at the end of
the doc.

OK, Jean, this is Plan A -

* Find out which outline numbered list template A1 Sched is linked to,
if any
* If not linked to any list template, create a linkage
* Modify all levels of the list template according to your specs
* Cross fingers, run the macro A1Sched below.

Note where it says '.TabPosition = As recorded by you in XP

That means although this particular setting came out right for me the
first time in XP, it did not come out right later in Word 2002. So
rather than take any chances, the best thing is for you to record a
macro in which you fill in all the Align at, Tab space after and
Indent at settings manually.

Then use those settings in the A1Sched macro below *without changing
anything else*. If you put in, for example,

With ListGalleries(wdOutlineNumberGallery).ListTemplates(6).ListLevels(5)

.. . . that'll ruin it but good.

If Plan A doesn't work, we go to the slightly more complex Plan B,
which is to create five more styles - A1 Sched 2, A1 Sched 3, etc. -
then link those styles to the higher levels of the A1 Sched list
template, then modify the template as below, then apply each new style
to the appropriate paragraph in the schedules section as determined by
its numbering level.

Remember: no guarantees, just isolated pockets of hope.

Am I still optimistic? I'm having too much feeble-minded fun to be
pessimistic. - Bruce

P.S. It would probably be an excellent idea to name the list template
too, which can easily be added to the code.


Function GetLT() As ListTemplate
Dim L As ListTemplate, LinkageFound As Boolean
For Each L In ActiveDocument.ListTemplates
If L.ListLevels(1).LinkedStyle = "A1 Sched" Then
LinkageFound = True
Set GetLT = L
Exit For
End If
Next
If LinkageFound Then Exit Function
Dim k As Byte
For Each L In ActiveDocument.ListTemplates
If L.OutlineNumbered = True And L.Name = "" And _
L.ListLevels(1).LinkedStyle = "" Then
L.ListLevels(1).LinkedStyle = "A1 Sched"
For k = 2 To 9
L.ListLevels(k).LinkedStyle = ""
Next
Set GetLT = L
Exit For
End If
Next
End Function



Sub A1Sched()
Dim L As ListTemplate, k As Byte
Set L = GetLT
For k = 1 To 9
With L.ListLevels(k)
Select Case k
Case 1
.NumberFormat = "%1."
.NumberStyle = wdListNumberStyleArabic
.NumberPosition = InchesToPoints(0)
'.TabPosition = As recorded by you in XP
.Font.Bold = True
.TrailingCharacter = wdTrailingTab
Case 2
.NumberFormat = "%1.%2"
.NumberStyle = wdListNumberStyleArabic
.NumberPosition = InchesToPoints(0)
'.TabPosition = As recorded by you in XP
.TrailingCharacter = wdTrailingTab
Case 3
.NumberFormat = "%1.%2.%3"
.NumberStyle = wdListNumberStyleArabic
.NumberPosition = InchesToPoints(0)
'.TabPosition = As recorded by you in XP
.TrailingCharacter = wdTrailingTab
Case 4
.NumberFormat = "%1.%2.%3.%4"
.NumberStyle = wdListNumberStyleArabic
.NumberPosition = InchesToPoints(0.8)
'.TabPosition = As recorded by you in XP
.TrailingCharacter = wdTrailingTab
Case 5
.NumberFormat = "(%5)"
.NumberStyle = wdListNumberStyleLowercaseLetter
.NumberPosition = InchesToPoints(1.6)
'.TabPosition = As recorded by you in XP
.TrailingCharacter = wdTrailingTab
Case 6
.NumberFormat = "(%6)"
.NumberStyle = wdListNumberStyleLowercaseRoman
.NumberPosition = InchesToPoints(2.4)
'.TabPosition = As recorded by you in XP
.TrailingCharacter = wdTrailingTab
Case 7
.NumberFormat = ""
.NumberStyle = wdListNumberStyleNone
.NumberPosition = InchesToPoints(0)
.TextPosition = InchesToPoints(0)
.TabPosition = InchesToPoints(0)
.TrailingCharacter = wdTrailingNone
Case 8
.NumberFormat = ""
.NumberStyle = wdListNumberStyleNone
.NumberPosition = InchesToPoints(0)
.TextPosition = InchesToPoints(0)
.TabPosition = InchesToPoints(0)
.TrailingCharacter = wdTrailingNone
Case 9
.NumberFormat = ""
.NumberStyle = wdListNumberStyleNone
.NumberPosition = InchesToPoints(0)
.TextPosition = InchesToPoints(0)
.TabPosition = InchesToPoints(0)
.TrailingCharacter = wdTrailingNone
End Select
End With
Next
End Sub

Dear Bruce,

Below I have tried to answer all your points - I was
trying to condense my original question which is why I
didn't mention that I had created 6 individual styles for
numbering each level and that the one style containing 6
levels of numbering which doesn't convert in XP was in
addition to this.

1) - Most of the docs do have TOC's and so I created 6
individual styles (called A1-A6) for the main body
numbering. We use A1 style in the TOC only.

In our schedules at the end of most docs, we wanted to use
legal auto numbering but the style had to be slightly
different in that it wouldn't have a heading (like A1) and
should not go into the TOC (like A1). Hence the creation
of A1 Sched, and this is the main reasoning behind having
one style covering six levels for our schedule numbering
in addition to styles A1-A6.

When I created them nearly 4 years ago, I didn't know
enough about Word and how to use/modify styles etc. as we
had just moved from WordPerfect, (which, I have to admit,
handled auto numbering brilliantly). I didn't use Heading
1-9 because I was unsure how this would appear on clients
pc's if they were using Heading 1-9 - didn't also
understand concept of templates at the time as WordPerfect
didn't use them.

Next step, you need to tell us the following details:

1) Do these documents have a table of contents? If
so . . .

* Which numbering levels are captured in the TOC?

Answer: 1) - Most of the docs do have TOC's. We use A1
style in the TOC only as it has a heading (See styles
listing below).

* Or do the headings end with a paragraph mark, with
text always
following on the line below?

1. Specifications

The following specifications . . .

Answer: Style A1 ends with a para mark and the following
para is normally body text indented to 0.8 with no number
against it.

N.B. Sometimes, we include a square bracket [ before auto
number. I wrote a little macros which goes into the style
and puts it there - or deletes it accordingly)

2) For each numbering level, we have to know:

* Font attributes (if any) of the number and the text
that follows
it; and
* Exact position of number relative to left margin.
ANSWER:
These are the 6 individual styles we use - which convert
over fine in XP
Answer: Level 1 (A1):
Number pos: on left margin. Indent 0.8" for text
Has heading for TOC.
Number bold. Text bold and caps. (Times New Roman
12pt)
Spacing after para 12 pt
Following para is always in body text with no
number
Answer: Level 2: (A2)
Number pos: on left margin. Indent 0.8" for text
Number and Text regular. (Times New Roman 12pt)
Spacing after para 12 pt
Answer: Level 3: - A3 Based on A2 +
Number pos: on left margin. Indent 0.8" for text
Number and Text regular. (Times New Roman 12pt)
Spacing after para 12 pt
Answer: Level 4: A4 based on level A2
Number pos: aligned at 0.8" from left margin.
Indent 1.6" for text
Number and Text regular. (Times New Roman 12pt)
Spacing after para 12 pt
Answer: Level 5: A5 based on A2 +
Number pos: aligned at 1.6" from left margin.
Indent 2.4" for text
Number and Text regular. (Times New Roman 12pt)
Spacing after para 12 pt
Answer: Level 6: A6 based on A2 +
Number pos: aligned at 2.4" from left margin.
Indent 3.0" for text
Number and Text regular. (Times New Roman 12pt)
Spacing after para 12 pt

Levels 1-4 use legal style numbering, levels 5 and 6 use
(a) and (i) respectively.

3)

The important thing is that YOU NEED A *DIFFERENT* HEADING
STYLE FOR EACH LEVEL in order to have full control over
your outline numbering.
Your problem, I'm guessing, came about because you
apparently had only *one* style linked to a list template,
and somehow that list template loses its settings for
levels higher than 1 when switching over to XP.

When you apply a different Heading style to each level,
you will still be able to promote/demote levels with
Tab/Shift Tab.

Answer: Because most of the docs do have TOC's I had to
create a style in addition to A1-A6 for the schedule
numbering only (A1 Sched) which would not be included in
the TOC and didn't have a heading.

A1 Sched - (the offending style)is made up as follows:

Level 1 Bold Number, positioned at margin, indent of 0.8"
for text
Level 2 regular Number, positioned at margin, indent of
0.8" for text
Level 3 regular Number, positioned at margin, indent of
0.8" for text
Level 4 regular Number, aligned at 0.8" from margin,
indent of 1.6" text
Level 5 regular Number, aligned at 1.6" from margin,
indent of 2.4" text
Level 6 regular Number, aligned at 2.4" from margin,
indent of 3.0" text

Levels 1-4 use legal style numbering, levels 5 and 6 use
(a) and (i) respectively.

I agree that the problem is XP losing the settings when
there is only style covering several levels of numbering.
What I can't understand is why if the macro you sent me
recognises the level of the number, why doesn't it
appear?

Hope you're still optimistic!!

Jean