How to Identify and Tag Numbered Lists using VBA

Submitted by Support on Tue, 01/31/2012 - 03:09

How to Identify and Tag Bullet Lists using VBA

Following snippet identifies a Bulleted List and Tags all Bullet List items and the Bulletted List as a whole

Sub Tag_Lists()

Dim oBL As ListFormat
Dim oList As List
Dim oLI

For Each oList In ActiveDocument.Lists
If oList.Range.ListFormat.ListType = WdListType.wdListBullet Then
For Each oLI In oList.ListParagraphs
oLI.Range.InsertBefore "

  • " oLI.Range.InsertAfter "

    • "
    Next oLI
    oList.Range.InsertBefore "

      " oList.Range.InsertAfter "

    "
    End If
    Next oList

    End Sub