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

Guessed · #1 04-11-2019, 11:52 PM

It can be hard to identify which listtemplate you are trying to harness so it makes sense to go direct to the source and identify the right listtemplate by interrogating the list template associated with Heading 1.

I assume you already have the correct template attached so there is a faster way to import the styles from the attached template too.

Code:

Sub ScheduleUpdateStylesFromTemplate()
  Dim x As Long, aLT As ListTemplate
  
  Set aLT = ActiveDocument.Styles("Heading 1").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