按标题 1 将 Word 文档拆分成多个文件（详细步骤）

在处理长篇 Word 文档（如报告、教科书、手册或项目文档）时，常常需要将文件拆分成更小的部分，比如按章节分成多个文件。如果您的文档已经使用“标题 1”作为主要章节标题，拆分起来会更加方便。以下是一份高效拆分的全面指南。

• 准备您的 Word 文档
• 方法 1：使用大纲功能按标题 1 拆分 Word 文档
• 方法 2：使用 VBA 代码按标题 1 拆分 Word 文档
• 方法 3：使用 Kutools for Word 按标题 1 拆分 Word 文档
• 结论

准备您的 Word 文档

应用任何方法前，请确保文档结构正确。只有正确应用标题 1，Word 才能识别拆分点。

应用样式：

统一应用标题样式，确保一级标题使用“标题 1”样式，二级标题使用“标题 2”样式，依此类推。

选中标题，进入“开始”选项卡，在样式库中点击“标题 1”。

备份您的文件：

拆分前请务必备份原文档，因为部分操作（如大纲视图）无法轻易撤销。

方法 1：利用大纲功能按标题 1 拆分 Word 文档

事实上，Word 内置的大纲视图让这项任务变得异常简单。它能够自动识别一级标题，帮助您轻松整理文档结构，并将每章导出为独立文件——无需插件，也无需繁琐操作。

1. 打开 Word 文档，进入“视图”选项卡，点击“大纲”，见截图：
   
2. 在出现的“大纲”选项卡中，将“显示级别”下拉菜单设置为级别 1，即可折叠除标题 1 以外的所有内容。
   
3. 然后，按下 Ctrl + A 选中所有文本。接着，点击位于主文档组中的“显示文档”。
   
4. 继续点击“创建”按钮。Word 现在会为每个章节添加细框。
   
5. 前往文件 > 另存为，选择一个新建文件夹。Word 会自动为每个标题 1 生成单独的 .docx 文件，并以标题文本命名。同时生成一个索引文档，列出所有拆分文件的超链接，点击即可快速打开任意文档。
   

方法 2：用 VBA 代码按标题 1 拆分 Word 文档

对于超长文档，大纲方法有时会引发格式问题，而使用 VBA 脚本则更加简洁高效。

1. 按下 Alt + F11 即可打开 Visual Basic for Applications 窗口。
2. 点击“插入”>“模块”。复制并粘贴以下代码到空白模块：
   

   Sub SplitDocByHeading1()
       Dim StrTmplt As String
       Dim StrPath As String
       Dim StrFlNm As String
       Dim Rng As Range
       Dim i As Long
       Dim Doc As Document
       Dim fDialog As FileDialog
       Const StrNoChr As String = """*./\:?|"
       Application.ScreenUpdating = False
       Set fDialog = Application.FileDialog(msoFileDialogFolderPicker)
       With fDialog
           .Title = "Select a folder to save the split documents"
           .AllowMultiSelect = False
           If .Show <> -1 Then
               MsgBox "Operation cancelled.", vbInformation, "Split by Heading 1"
               Application.ScreenUpdating = True
               Exit Sub
           End If
           StrPath = .SelectedItems(1)
       End With
       If Right(StrPath, 1) <> "\" Then
           StrPath = StrPath & "\"
       End If
       With ActiveDocument
           StrTmplt = .AttachedTemplate.FullName
           With .Range
               With .Find
                   .ClearFormatting
                   .Replacement.ClearFormatting
                   .Text = ""
                   .Replacement.Text = ""
                   .Style = wdStyleHeading1
                   .Format = True
                   .Forward = True
                   .Wrap = wdFindStop
                   .Execute
               End With
               Do While .Find.Found
                   Set Rng = .Duplicate
                   StrFlNm = Split(Rng.Paragraphs(1).Range.Text, vbCr)(0)
                   For i = 1 To Len(StrNoChr)
                       StrFlNm = Replace(StrFlNm, Mid(StrNoChr, i, 1), "_")
                   Next i
                   StrFlNm = StrFlNm & ".docx"
                   Set Rng = Rng.GoTo(What:=wdGoToBookmark, Name:="\HeadingLevel")
                   Set Doc = Documents.Add(Template:=StrTmplt, Visible:=False)
                   With Doc
                       .Range.FormattedText = Rng.FormattedText
                       .SaveAs2 FileName:=StrPath & StrFlNm, _
                                FileFormat:=wdFormatXMLDocument, _
                                AddToRecentFiles:=False
                       .Close SaveChanges:=False
                   End With
                   .Collapse wdCollapseEnd
                   .Find.Execute
               Loop
           End With
       End With
       Set Doc = Nothing
       Set Rng = Nothing
       Application.ScreenUpdating = True
       MsgBox "Split completed successfully.", vbInformation, "Split by Heading 1"
   End Sub
   

3. 按下 F5 键或点击“运行”按钮即可执行代码。随后会弹出窗口，提示您选择保存拆分文件的文件夹。见截图：
   
4. 点击“确定”，Word 会立即为每个标题 1 章节创建 .docx 文件。打开文件夹即可查看结果。
   

方法 3：使用 Kutools for Word 按标题 1 拆分 Word 文档

尽管 Word 自带工具和 VBA 可以拆分文档，但操作繁琐、技术门槛高且可能导致格式丢失。Kutools for Word 提供了更简便高效的解决方案。借助其文档拆分功能，您只需一键即可按标题 1、分页符、分节符、页码等方式拆分文档——无需编码，无需手动操作，且完全保留格式。Kutools 能完整保留样式、布局、图片以及页眉页脚，是处理大型文档的理想选择。

下载并安装 Kutools for Word，请按照以下步骤操作：

1. 前往 KUTOOLS PLUS > 拆分。
   
2. 在文档拆分对话框中，指定以下选项：

   2.1 从拆分依据下拉菜单中选择标题 1。（您也可以选择分页符、分节符、页码、文档页码倍数等其他拆分规则。）

   2.2 指定文件夹以保存新的拆分文件。

   2.3 点击确定按钮即可。

   提示：您还可以在文档前缀框中输入文本，为每个拆分文件的标题添加前缀。

   
   

结果：
Kutools 将根据您的标题 1 结构立即生成多个 Word 文件，且所有页眉页脚均完整保留。

总结

相关文章：