0

Webサイトに公開するためのドキュメントを設定しようとしているので、リストアイテムの前後にいくつかの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
4

1 に答える 1

1

代わりに以下を使用してみてくださいpara.Range.InsertAfter "</li>"

para.Range.Select
Selection.EndKey Unit:=wdLine
Selection.TypeText Text:="</li>"
于 2013-02-12T17:51:44.380 に答える