Select Lists or List.ListParagraphs of bulleted text

TheBigBoss · #3 02-19-2023, 12:51 AM

So the solution here would be to:

a) To loop through each paragraph, verify it is a paragraph with levels (list), create an array of paragraph index when level is the third level

Code:

For Each para In ActiveDocument.ListParagraphs
        If para.Range.ListFormat.ListType <> wdListNoNumbering Then

b) To use the macro above, but if lvl.Index is found in array, then don't change to Times New Roman.

Code:

For Each lev In ActiveDocument.ListTemplates
        For Each lvl In lev.ListLevels
           If lvl.Index (found in array) Then

It seems it is possible to determine the level of the list using ListLevels or ListTemplates.
The only way to know level of list is through ListFormat properties (.ListLevelNumber, .ListString and .ListValue)

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
autoformat bulleted lists	tlstaylorgirl	Word	1	09-17-2015 12:12 PM
Bulleted Lists in Notebook Layout	beatles1291	Word	0	01-25-2012 08:52 PM
Adjust list indents for all bulleted text (of different bullets)	ghumdinger	Word	13	09-21-2011 12:59 AM
Bulleted and Numbered Lists	peret944	Word	0	03-25-2011 01:08 PM
Bulleted Lists - Changing Font	mhartman09	Word	2	12-10-2010 12:18 PM