Найти все элементы списка через VBA

Question

Я пытаюсь настроить документ для публикации на веб-сайте, поэтому необходимо добавить несколько тегов HTML до и после элементов списка. Тем не менее, это не собирание пунктов списка. Кто-нибудь может помочь? Благодарю.

    sub format_list()

            Dim para as Paragraph
            Dim is_list_item as Boolean

            is_list_item = False

            For Each para In ActiveDocument.Paragraphs

                    If para.Range.ListFormat.ListType = WdListType.wdListBullet Then

                            is_list_item = True
                            para.Range.InsertBefore "<li>"
                            para.Range.InsertAfter "</li>"

                    End If

            Next

    End Sub

Answer 1

Попробуйте использовать следующее вместо para.Range.InsertAfter "</li>"

para.Range.Select
Selection.EndKey Unit:=wdLine
Selection.TypeText Text:="</li>"