Keeping or restoring "Start at" value for heading list after updating styles from a template

Guessed · #6 04-14-2019, 09:59 PM

Ahh, I see you have used a List style and applied it to Heading 1 (so Heading 1 list's settings are effectively being overridden by the list style). I never use list styles because of the extra layer of complexity, but since you have used it, the code needs to be addressing that ListTemplate instead

Code:

Sub ScheduleUpdateStylesFromTemplate()
  Dim x As Long, aLT As ListTemplate  
  Set aLT = ActiveDocument.Styles("Numbered Headings").ListTemplate
  x = aLT.ListLevels(1).StartAt
    ActiveDocument.UpdateStyles             'reimports styles from the attached template
  aLT.ListLevels(1).StartAt = x
End Sub

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Custom Template, Multi-List Heading Numbers Reverting to Template Rather than Keeping Local Change	whsnow	Word	2	03-24-2018 06:57 AM
Heading styles come "unlinked" from Multi-level list levels after save.	spthomas	Word	3	11-27-2013 03:55 PM
2 "autonumbers" in 1 list heading?	christie	Word	0	08-01-2011 08:24 AM
How to choose a "List" for certain "Heading" from "Modify" tool?	Jamal NUMAN	Word	2	07-03-2011 03:11 AM
Word 2007 template "Restart at 1" changes styles	BuzzyG	Word	0	06-10-2011 01:19 PM