使用Excel VBA删除Word中的项目符号段落

Sub DeleteBulletPointsInWord()
    Dim objWord As Object
    Dim objDoc As Object
    Dim objPara As Object
    
    ' 创建并打开Word应用程序
    Set objWord = CreateObject("Word.Application")
    objWord.Visible = True
    
    ' 打开一个现有的Word文档
    Set objDoc = objWord.Documents.Open("C:\Path\To\Your\Word\File.docx")
    
    ' 遍历文档中的每个段落
    For Each objPara In objDoc.Paragraphs
        ' 检查段落是否是项目符号段落
        If objPara.Range.ListFormat.ListType = 2 Then
            ' 删除项目符号段落
            objPara.Range.Delete
        End If
    Next objPara
    
    ' 关闭并保存Word文档
    objDoc.Close SaveChanges:=True
    
    ' 退出Word应用程序
    objWord.Quit
    
    ' 释放对象变量
    Set objPara = Nothing
    Set objDoc = Nothing
    Set objWord = Nothing
End Sub