如何编写VBA宏提取Word文档项目符号内容至Excel工作表

功能说明 #

该宏运行于Word VBA环境，可自动识别当前Word文档中的所有标准项目符号段落，将每条内容按提取顺序写入关联Excel文件的A列连续独立单元格中，自动按行向下排列。

前置配置 #

• 打开目标Word文档，按Alt + F11调出VBA编辑器
• 依次点击「工具」→「引用」，在列表中勾选对应版本的Microsoft Excel Object Library（如Office 2019/365对应16.0版本）
• 右键当前文档项目→「插入」→「模块」，将下方代码粘贴到模块编辑区

宏代码 #

Sub 提取项目符号到Excel()
    Dim excelApp As Excel.Application
    Dim excelWb As Excel.Workbook
    Dim ws As Excel.Worksheet
    Dim para As Paragraph
    Dim rowNum As Integer
    Dim excelFilePath As String
    Dim content As String
    
    ' 配置关联Excel文件路径，默认与当前Word文档同目录，命名为“项目符号提取结果.xlsx”
    excelFilePath = ThisDocument.Path & "\项目符号提取结果.xlsx"
    
    ' 初始化Excel对象
    On Error Resume Next
    Set excelApp = GetObject(, "Excel.Application")
    If Err.Number <> 0 Then
        Set excelApp = New Excel.Application
    End If
    excelApp.Visible = False
    On Error GoTo 0
    
    ' 打开或新建关联Excel文件
    If Dir(excelFilePath) <> "" Then
        Set excelWb = excelApp.Workbooks.Open(excelFilePath)
    Else
        Set excelWb = excelApp.Workbooks.Add
        excelWb.SaveAs Filename:=excelFilePath
    End If
    Set ws = excelWb.Sheets(1)
    ' 定位到A列第一个空行开始写入
    rowNum = ws.Cells(ws.Rows.Count, "A").End(-4162).Row + 1
    If rowNum = 2 And IsEmpty(ws.Range("A1")) Then rowNum = 1
    
    ' 遍历所有段落提取项目符号内容
    For Each para In ThisDocument.Paragraphs
        If para.Range.ListFormat.ListType <> wdListNoBullets Then
            ' 去除段落末尾的回车符
            content = Replace(para.Range.Text, Chr(13), "")
            ' 跳过空内容条目
            If Trim(content) <> "" Then
                ws.Cells(rowNum, "A") = content
                rowNum = rowNum + 1
            End If
        End If
    Next para
    
    ' 保存文件并清理内存对象
    excelWb.Save
    excelWb.Close
    excelApp.Quit
    Set ws = Nothing
    Set excelWb = Nothing
    Set excelApp = Nothing
    
    MsgBox "提取完成，共提取" & rowNum - 1 & "条项目符号内容"
End Sub

使用方式 #

• 回到Word文档界面，按Alt + F8调出宏窗口
• 选中提取项目符号到Excel宏，点击「运行」即可
• 提取结果将自动存入与Word同目录的项目符号提取结果.xlsx文件A列中

注意事项 #

• 仅识别Word自带项目符号功能生成的段落，手动输入的特殊字符+空格格式的伪项目符号不会被提取
• 若需要修改关联Excel的存储路径，修改代码中excelFilePath变量的赋值即可
• 多次运行宏时，新提取的内容会自动追加到Excel已有内容的下方，不会覆盖原有数据

内容的提问来源于stack exchange，提问作者Samir