wps word 宏代码识别文本格式目录的章节，拆分文档

可以通过以下步骤来实现：

1. 打开 Word 文档，按下 ALT + F11 打开 VBA 编辑器。

2. 在 VBA 编辑器中，选择“插入”->“模块”，在新建的模块中输入以下代码：

Sub SplitDocIntoSections()
    Dim i As Long
    Dim SectionTitle As String
    Dim SectionRange As Range
    Dim NewDoc As Document
    
    Set NewDoc = Documents.Add
    
    For i = 1 To ActiveDocument.Sections.Count
        Set SectionRange = ActiveDocument.Sections(i).Range
        SectionTitle = SectionRange.Paragraphs(1).Range.Text
        
        '去掉标题中的回车符和空格
        SectionTitle = Replace(SectionTitle, vbCrLf, "")
        SectionTitle = Trim(SectionTitle)
        
        '如果标题中包含目录关键词，则将该章节保存到新的文档中
        If InStr(SectionTitle, "目录") > 0 Then
            NewDoc.Range.FormattedText = SectionRange.FormattedText
        End If
        
        '将章节保存为单独的文档
        SectionRange.Copy
        Documents.Add
        Selection.Paste
        ActiveDocument.SaveAs FileName:=SectionTitle & ".docx"
        ActiveWindow.Close
    Next i
    
    NewDoc.SaveAs FileName:="目录.docx"
End Sub

3. 点击“运行”按钮或按下 F5 键，执行宏代码。

4. 执行完毕后，会生成一个名为“目录.docx”的文档，其中包含了所有包含“目录”关键词的章节。同时，每个章节也会被保存为一个独立的 Word 文档，文件名为章节标题。