Thread: [Solved] VBA Change to correct Heading style
View Single Post
 
Old 07-16-2022, 03:37 PM
macropod's Avatar
macropod macropod is offline Windows 10 Office 2016
Administrator
  
Join Date: Dec 2010
Location: Canberra, Australia
Posts: 22,471
macropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond repute
Default
What is the value of i when you get the error message? Do you have a Schedule Level Style with that value?

PS: you seem to have overlooked my previous advice about changing:
.Font.Bold = Choose(i, 0, 0, 0, 0, 0, 0, 0, 0)
to:
.Font.Bold = False

Your left indents could also be handled more simply, via:
.ParagraphFormat.LeftIndent = InchesToPoints(Choose(i, 0.5, 1, 1.5, 2.25, 2.75, 3.25, 3.75))

Likewise, the varying first line indents could be handled via:
.ParagraphFormat.FirstLineIndent = -InchesToPoints(Choose(i, 0.5, 0.5, 0.5, 0.75, 0.5, 0.5, 0.5))
__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]
Reply With Quote