Probs with Outline Numbering...Still

[Ed Jobe]

I've tried to set up list templates and heading styles like Dave Rado
suggested, but I still have problems with formatting. In my code I frst set
all style, style.Font and Style.ParagraphFormat properties. The main thing I
want to set here is LeftIndent=0. Then I set the list format. After running
the macro LeftIndent =5.8" for H1 and larger for H2-H9.

The other problem I have is that the first two sections will not be
numbered, and I want to skip chapter 5 (which are rules), not restart
numbering, i.e. Section 1 is a cover page that doesn't show up in TOC,
Section 2 is the TOC with an H1 that will show up in the TOC and document
map, Sections 3-6 are labeled Rules 1-4 and Sections 7-23 are labeled Rules
6-22.

 

[Word Heretic]

G'day "Ed Jobe" <[email protected]>,

indents and tabs are controlled by the list template. Ensure you have
the list template settings set correctly and all will be well.



Steve Hudson - Word Heretic
Want a hyperlinked index? S/W R&D? See WordHeretic.com

steve from wordheretic.com (Email replies require payment)


Ed Jobe reckoned:

 

[Ed Jobe]

Thanks for the reply, but I'm afraid all is not well. Here is the list
settings for level 1.

With ActiveDocument.Styles("Heading 1")
.AutomaticallyUpdate = False
.BaseStyle = "Normal"
.NextParagraphStyle = "Normal"
End With
With ActiveDocument.Styles("Heading 1").Font
.Name = "Times New Roman"
.Size = 10
.Bold = True
.Italic = False
.Underline = wdUnderlineNone
.UnderlineColor = wdColorAutomatic
.StrikeThrough = False
.DoubleStrikeThrough = False
.Outline = False
.Emboss = False
.Shadow = False
.Hidden = False
.SmallCaps = False
.AllCaps = False
.Color = wdColorAutomatic
.Engrave = False
.Superscript = False
.Subscript = False
.Scaling = 100
.Kerning = 16
.Animation = wdAnimationNone
End With
With ActiveDocument.Styles("Heading 1").ParagraphFormat
.LeftIndent = InchesToPoints(0)
.RightIndent = InchesToPoints(0)
.SpaceBefore = 12
.SpaceBeforeAuto = False
.SpaceAfter = 3
.SpaceAfterAuto = False
.LineSpacingRule = wdLineSpaceSingle
.Alignment = wdAlignParagraphCenter
.WidowControl = True
.KeepWithNext = True
.KeepTogether = False
.PageBreakBefore = False
.NoLineNumber = False
.Hyphenation = True
.FirstLineIndent = InchesToPoints(0)
.OutlineLevel = wdOutlineLevel1
.CharacterUnitLeftIndent = 0
.CharacterUnitRightIndent = 0
.CharacterUnitFirstLineIndent = 0
.LineUnitBefore = 0
.LineUnitAfter = 0
End With

With MyList.ListLevels(1)
.NumberFormat = "Electric Serice Rule %1 "
.TrailingCharacter = wdTrailingNone
.NumberStyle = wdListNumberStyleArabic
.NumberPosition = InchesToPoints(0)
.Alignment = wdListLevelAlignLeft
.TextPosition = InchesToPoints(0)
.TabPosition = wdUndefined
.ResetOnHigher = 0
.StartAt = 1
With .Font
.Bold = True
.Italic = False
.StrikeThrough = wdUndefined
.Subscript = wdUndefined
.Superscript = wdUndefined
.Shadow = wdUndefined
.Outline = wdUndefined
.Emboss = wdUndefined
.Engrave = wdUndefined
.AllCaps = wdUndefined
.Hidden = wdUndefined
.Underline = wdUndefined
.Color = wdUndefined
.Size = 10
.Animation = wdUndefined
.DoubleStrikeThrough = wdUndefined
.Name = "Times New Roman"
End With
.LinkedStyle = "Heading 1"
End With

Everything is set to 0, but I still get Style ("Heading 1").ParagraphFormat
ending up with 5.8".

--
--
Ed
--

G'day "Ed Jobe" <[email protected]>,

indents and tabs are controlled by the list template. Ensure you have
the list template settings set correctly and all will be well.



Steve Hudson - Word Heretic
Want a hyperlinked index? S/W R&D? See WordHeretic.com

steve from wordheretic.com (Email replies require payment)


Ed Jobe reckoned:

 

[Ed Jobe]

I found the bug for this part. It is fond here:
http://word.mvps.org/FAQs/Numbering/NumberingExplained/ApplyingNumbering/Sty
leTemplateConflicts.htm
<blockquote>A second bug is that when you define List Template formatting,
it transposes some of the measurements. The paragraph has a left margin, an
indent, and a first-line indent. The List Template has no left margin, it
has a position and a hanging indent. Whenever you adjust the formatting of a
List Template, it will transpose its hanging indent measurement into the
style's left margin setting. You need to remember to go back and correct the
formatting of the style each time you adjust a List Template.</blockquote>
I just moved my Style code after the LisyTemplate code and problem solved.
As for the numbering problem, I am just going to insert a blank section for
Rule 5.

--
--
Ed
--

Thanks for the reply, but I'm afraid all is not well. Here is the list
settings for level 1.

With ActiveDocument.Styles("Heading 1")
.AutomaticallyUpdate = False
.BaseStyle = "Normal"
.NextParagraphStyle = "Normal"
End With
With ActiveDocument.Styles("Heading 1").Font
.Name = "Times New Roman"
.Size = 10
.Bold = True
.Italic = False
.Underline = wdUnderlineNone
.UnderlineColor = wdColorAutomatic
.StrikeThrough = False
.DoubleStrikeThrough = False
.Outline = False
.Emboss = False
.Shadow = False
.Hidden = False
.SmallCaps = False
.AllCaps = False
.Color = wdColorAutomatic
.Engrave = False
.Superscript = False
.Subscript = False
.Scaling = 100
.Kerning = 16
.Animation = wdAnimationNone
End With
With ActiveDocument.Styles("Heading 1").ParagraphFormat
.LeftIndent = InchesToPoints(0)
.RightIndent = InchesToPoints(0)
.SpaceBefore = 12
.SpaceBeforeAuto = False
.SpaceAfter = 3
.SpaceAfterAuto = False
.LineSpacingRule = wdLineSpaceSingle
.Alignment = wdAlignParagraphCenter
.WidowControl = True
.KeepWithNext = True
.KeepTogether = False
.PageBreakBefore = False
.NoLineNumber = False
.Hyphenation = True
.FirstLineIndent = InchesToPoints(0)
.OutlineLevel = wdOutlineLevel1
.CharacterUnitLeftIndent = 0
.CharacterUnitRightIndent = 0
.CharacterUnitFirstLineIndent = 0
.LineUnitBefore = 0
.LineUnitAfter = 0
End With

With MyList.ListLevels(1)
.NumberFormat = "Electric Serice Rule %1 "
.TrailingCharacter = wdTrailingNone
.NumberStyle = wdListNumberStyleArabic
.NumberPosition = InchesToPoints(0)
.Alignment = wdListLevelAlignLeft
.TextPosition = InchesToPoints(0)
.TabPosition = wdUndefined
.ResetOnHigher = 0
.StartAt = 1
With .Font
.Bold = True
.Italic = False
.StrikeThrough = wdUndefined
.Subscript = wdUndefined
.Superscript = wdUndefined
.Shadow = wdUndefined
.Outline = wdUndefined
.Emboss = wdUndefined
.Engrave = wdUndefined
.AllCaps = wdUndefined
.Hidden = wdUndefined
.Underline = wdUndefined
.Color = wdUndefined
.Size = 10
.Animation = wdUndefined
.DoubleStrikeThrough = wdUndefined
.Name = "Times New Roman"
End With
.LinkedStyle = "Heading 1"
End With

Everything is set to 0, but I still get Style ("Heading 1").ParagraphFormat
ending up with 5.8".