Select Lists or List.ListParagraphs of bulleted text

TheBigBoss · #1 02-17-2023, 08:56 AM

Hello,

I struggle to select the numbered items of a custom list (1., 2., (a), etc.).

The aim here is to select all numbers items and change font to Times New Roman.
.dotm is attached to test

I tried this but it fails

Code:

Public Sub ChineseChar()
    Dim oD As Object, i As Integer, lstp As List
    Set oD = ActiveDocument
    If (Selection.Type <> wdSelectionIP) Then
        Selection.Font.Name = "Times New Roman"
        MsgBox "Times New Roman has been applied to the selected text"
    Else
        oD.Select
        Selection.WholeStory
        Selection.Font.Name = "Times New Roman"
       
        For Each lstp In oD.Lists
            lstp.Range.Font.Name = "Times New Roman"
        Next lstp
    End If
    Exit Sub
End Sub

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