Sub Katana1994() Dim doc1 As Document Dim rng As Range Dim chapterStart As Long Dim chapterEnd As Long Dim chapterTitle As String Dim chapterIndex As Integer Dim newDoc As Document Set doc1 = ActiveDocument chapterIndex = 1 For i = 1 To doc1.Paragraphs.Count Set rng = doc1.Paragraphs(i).Range If rng.Text Like "第*篇*" Or rng.Text Like "*、*" Then If chapterStart > 0 Then chapterEnd = rng.Start - 1 doc1.Range(chapterStart, chapterEnd).Select Selection.Copy Set newDoc = Documents.Add() newDoc.Content.Paste newDoc.SaveAs "Chapter" & chapterIndex & " - " & chapterTitle & ".docx" newDoc.Close chapterIndex = chapterIndex + 1 End If chapterTitle = rng.Text chapterStart = rng.End End If Next i End Sub这段代码依然在第一行显示未声明变量

这段代码中的错误是因为缺少了 "Option Explicit" 语句。可以在代码的最上面添加 "Option Explicit"，它可以强制要求在使用变量之前必须先声明它们，从而防止因为未声明变量而导致的错误。

修改后的代码如下：

Option Explicit

Sub Katana1994()
    Dim doc1 As Document
    Dim rng As Range
    Dim chapterStart As Long
    Dim chapterEnd As Long
    Dim chapterTitle As String
    Dim chapterIndex As Integer
    Dim newDoc As Document
    
    Set doc1 = ActiveDocument
    chapterIndex = 1
    
    For i = 1 To doc1.Paragraphs.Count
        Set rng = doc1.Paragraphs(i).Range
        
        If rng.Text Like "第*篇*" Or rng.Text Like "*、*" Then
            If chapterStart > 0 Then
                chapterEnd = rng.Start - 1
                doc1.Range(chapterStart, chapterEnd).Select
                Selection.Copy
                Set newDoc = Documents.Add()
                newDoc.Content.Paste
                newDoc.SaveAs "Chapter" & chapterIndex & " - " & chapterTitle & ".docx"
                newDoc.Close
                chapterIndex = chapterIndex + 1
            End If
            
            chapterTitle = rng.Text
            chapterStart = rng.End
        End If
    Next i
End Sub

请尝试运行一下看看是否还有其他问题。