在本文中，我们重点为您提供 2 种快速将 Word 文档拆分为多个文档的方法。
有时我们会有一份相当长的文件，需要团队合作。 那么很有必要将它分成几个较短的部分以加快工作流程。 与剪切和粘贴等老式方法不同，我们有更快速的方法来完成这项繁琐的任务。 请继续阅读以了解更多信息。
方法一：在“大纲视图”下操作
- 首先，务必对您的文件进行必要的备份，以防在此过程中文件遭到任何损坏。
- 其次，检查要拆分的文本部分是否已置于二级标题下，例如二级标题、三级标题、四级标题等。如果是，您可以直接进行第三步。如果不是，您需要在文本的开头和结尾分别添加标记词，并将这些标记词设置为“一级标题”。如果我们将这些标记词设置为“三级标题”，那么当文本包含更高级别的标题样式（例如“二级标题”）时，您将无法拆分文本。以下是一个示例：
- 第三，单击“查看”选项卡。
- 然后单击“文档视图”中的“大纲”。
- 现在在“大纲”选项卡下，转到“大纲工具”组，然后在“显示级别”的下拉列表中选择标记词的级别。 在这里，我们将选择“Level 1”，因为我们只是将它们设置在“Heading 1”中。 并且将显示级别 1 中的所有文本。
- 接下来，单击“主文档”组中的“显示文档”。 您会注意到“创建”和“插入”选项现在都可用。
- 然后点击第一个标记词前面的加号，选中这部分文字。
- 最后，点击“创建”开始拆分文档。
- 您可以重复步骤 7 和 8 以完成文档其余部分的分离。 完成后记得保存文件。 然后到原文件所在的位置，你会发现所有的新文件。 以下是您可能实现的目标：
方法 2：使用 VBA 代码
如果您更喜欢复制和粘贴方法，您可能可以让 Word 宏为您完成这项工作。 更好的是，您可以将宏添加到“快速访问工具栏”，这样您就可以轻松地重复使用它。 具体步骤可以参考我们之前的文章： 如何从 MS Word 中快速调用另一个应用程序
- 首先，按“Alt+F8”打开 VBA 编辑器。
- 在右侧编辑区，粘贴以下代码：
Sub SaveSelectedTextToNewDocument()
If Selection.Words.Count > 0 Then
'Copy the selected text
Selection.Copy
'Open a new document and paste the copied text into it
Dim objNewDoc As Document
Set objNewDoc = Documents.Add
Selection.Paste
'Get the first 10 characters as the filename of the new document and save them
Dim objFileName As Range
Set objFileName = objNewDoc.Range(Start:=0, End:=10)
objNewDoc.SaveAs FileName:="C:\Users\Test\Desktop\" & objFileName & ".docx"
Else
End If
End Sub
- 然后保存代码并将宏添加到“快速访问工具栏”。
- 接下来，选择一个文本并单击宏按钮。 您将获得一份新文件。
备注：
- 其中，“C:\Users\Test\Desktop\”指的是新文件存放的路径。 你可以随心所欲地改变它。
- 代码“Set objFileName = objNewDoc.Range(Start:=0, End:=10)”表示我们将把所选文本的前10个字符作为新文件的名称。您也可以根据需要修改这部分代码。
顺便说一句，您可能还需要将这些修改后的文档合并或合并为一个。 那么你可以采取以下2篇文章中提供的方法：
不可避免的灾难
生活在一个超连接的世界中，如今一切都与数据有关。 在我们日常使用Word处理大量信息的过程中，文件损坏的问题大家应该牢记在心，因为谁也说不准下一次数据灾难会在什么时候发生。 尽管这是不可避免的，但我们必须通过获得有效的工具来做好准备 修复损坏的 Word 数据 预先。
作者简介：
Vera Chen 是一位数据恢复专家 DataNumen, Inc.，它是数据恢复技术领域的世界领先者，包括 Excel数据问题修复工具 和 pdf 修复软件产品。 欲了解更多信息，请访问 datanumen.com