时间戳

首页 > 解决方案 > 使用 Excel VBA 在 Word 中删除项目符号段落

vba - 使用 Excel VBA 在 Word 中删除项目符号段落

问题描述

我在word文档中有以下文本：

Total Amount Owed: <<Payment>>
Dates Mowed:
•   2/6/2019
•   2/14/2019
•   <<Mowing1>>

如何<<Mowing1>>使用 VBA 完全删除包含字符串的行的文本和项目符号？

先感谢您！

标签： vbaselectionbullet

解决方案

可以试试

Sub test()
Dim Pg As Paragraph,PgTxt as String

    For Each Pg In ActiveDocument.Paragraphs
        If Not Pg.Range.ListFormat.List Is Nothing Then  'Process only bulleted list
        PgTxt = Pg.Range.Text
            If InStr(1, PgTxt, "<<Mowing1>>") > 0 Then
            Pg.Range.Delete
            End If
        End If
    Next
End Sub

推荐阅读