Applying a new style to a multi-level list resets all the indenting

Guessed · #10 03-24-2021, 02:43 PM

Are you looking for a vba solution to this problem? You can identify the list level relatively easily along with a style name. Those two bits of information will allow you to restyle according to level.

Code:

Sub TestLevels()
  Dim aPar As Paragraph, sNum As String
  For Each aPar In ActiveDocument.Paragraphs
    If aPar.Style = "List Paragraph" Then
      Debug.Print aPar.Range.ListFormat.ListLevelNumber
      If aPar.Range.ListFormat.ListLevelNumber > 1 Then
        aPar.Style = "List " & aPar.Range.ListFormat.ListLevelNumber
      Else
        aPar.Style = "List"
      End If
    End If
  Next
End Sub

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Applying New Multi-Level List to Existing Document with Manual Numbering and Existing Styles	stanley	Word	4	12-15-2020 10:59 AM
Delete Multi-Level List Style in Word 2016	rziegler	Word	2	05-03-2020 10:47 AM
Saving Multi-level List Style (Bullet Points)	Nuishi333	Word	1	07-29-2014 08:28 PM
Customise Normal style with multi-level bullets	meileetan	Word	4	08-28-2012 08:23 AM
Applying Line Spacing at different level in a multilevel list	James_8	Word	3	08-07-2012 11:27 PM