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

Thread Tools
Show Printable Version Email this Page
Display Modes
Switch to Linear Mode Switch to Hybrid Mode Threaded Mode

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