别担心！我来给你几个实用的方法，都是跟着步骤就能做的，完全不需要超级用户权限~

方法一：用Word查找替换拆分后复制到Excel（新手友好） #

这个方法靠Word的通配符替换把标题编号和文本分开，再利用制表符让Excel自动分单元格：

• 打开你的Word文档，按下Ctrl+H打开查找和替换窗口
• 在「查找内容」框里输入：([0-9.]+) (.*)（这个通配符会匹配带小数点的编号、空格，以及后面的标题文本，括号是用来分组的）
• 点击窗口左下角的「更多」，勾选「使用通配符」选项
• 在「替换为」框里输入：\1^t\2（\1代表刚才匹配到的编号，^t是制表符，用来分隔内容，\2代表标题文本）
• 点击「全部替换」，此时所有标题的编号和文本就会用制表符隔开了
• 选中所有需要导出的内容（包括标题和对应的段落文本），复制后粘贴到Excel里，Excel会自动把制表符分隔的内容分到不同单元格
• 最后简单调整一下格式，把每个标题对应的文本和标题行对应好就完成了

方法二：用Word VBA自动导出到Excel（适合大篇幅文档） #

如果你的Word文档内容很多，手动操作太麻烦，可以用一段简单的VBA脚本自动完成导出：

• 打开Word文档，按下Alt+F11打开VBA编辑器
• 在左侧的文档对象上右键，选择「插入」→「模块」
• 把下面的代码粘贴到模块窗口里：

Sub ExportHeadingsAndTextToExcel()
    Dim xlApp As Object
    Dim xlWB As Object
    Dim xlWS As Object
    Dim Heading As Paragraph
    Dim NextPara As Paragraph
    Dim i As Integer
    
    ' 创建Excel应用对象
    Set xlApp = CreateObject("Excel.Application")
    xlApp.Visible = True
    Set xlWB = xlApp.Workbooks.Add
    Set xlWS = xlWB.Sheets(1)
    
    ' 设置Excel表头
    xlWS.Cells(1, 1).Value = "标题编号"
    xlWS.Cells(1, 2).Value = "标题文本"
    xlWS.Cells(1, 3).Value = "对应内容"
    
    i = 2
    
    ' 遍历文档中所有Heading 1样式的段落（可根据你的文档修改样式名）
    For Each Heading In ActiveDocument.Paragraphs
        If Heading.Style = ActiveDocument.Styles("Heading 1") Then
            ' 拆分标题编号和文本
            Dim SplitArr() As String
            SplitArr = Split(Heading.Range.Text, " ", 2)
            xlWS.Cells(i, 1).Value = SplitArr(0)
            xlWS.Cells(i, 2).Value = Left(SplitArr(1), Len(SplitArr(1)) - 1) ' 移除末尾的段落标记
            
            ' 收集当前标题到下一个标题之间的内容
            Set NextPara = Heading.Next
            Dim ContentText As String
            ContentText = ""
            Do While Not NextPara Is Nothing And NextPara.Style <> ActiveDocument.Styles("Heading 1")
                ContentText = ContentText & NextPara.Range.Text
                Set NextPara = NextPara.Next
            Loop
            xlWS.Cells(i, 3).Value = Left(ContentText, Len(ContentText) - 1) ' 移除末尾的段落标记
            
            i = i + 1
        End If
    Next Heading
    
    ' 自动调整Excel列宽
    xlWS.Columns.AutoFit
    
    ' 释放对象
    Set xlWS = Nothing
    Set xlWB = Nothing
    Set xlApp = Nothing
End Sub

• 点击编辑器工具栏上的绿色运行按钮（或者按下F5），脚本会自动打开Excel并填充好所有标题编号、标题文本和对应内容
• 注意：如果你的文档用的是Heading 2或其他标题样式，把代码里的"Heading 1"改成对应的样式名称即可

方法三：用Excel Power Query导入并整理（适合频繁处理的场景） #

如果经常需要处理这类文档，Excel的Power Query可以帮你更灵活地整理数据：

• 打开Excel新建空白工作簿，点击「数据」选项卡 →「获取数据」→「从文件」→「从Word文档」
• 选择你的Word文档，导入后在导航器里选择包含内容的表格（通常是Table0），点击「加载到」→「仅创建连接」
• 再次点击「数据」→「现有连接」，选择刚才创建的连接，点击「打开」将数据加载到Power Query编辑器
• 在Power Query中找到标题所在的列，点击「拆分列」→「按分隔符」，选择「空格」，然后选「在最左侧的分隔符处拆分」，这样编号就会被分到单独的列
• 最后整理对应文本的行，将每个标题下的内容合并到对应的标题行，完成后点击「关闭并上载」，数据就会导入到Excel中

你可以根据自己的文档情况选择合适的方法，第一种最容易上手，试试吧！

备注：内容来源于stack exchange，提问作者BanDwagon