Note: The other languages of the website are Google-translated. Back to English

如何将文档分成多个单词?

如果您有一个庞大的Word文档,需要将其拆分为多个文档,请花几分钟阅读本教程。 本教程将向您展示两种将文档拆分为多个文档的方法。


使用VBA通过指定的分隔符拆分Word文档

此方法将引入VBA来通过Word中指定的分隔符将Word文档拆分,而不是手动将文档拆分为多个文档。 请执行以下操作:

1。 按 Alt + F11键 一起打开Microsoft Visual Basic for Application窗口;

2。 点击 插页 > 模块,然后将以下VBA代码粘贴到新打开的“模块”窗口中。

VBA:通过分隔符将Word文档拆分为多个文档

Sub SplitNotes(delim As String, strFilename As String)
Dim doc As Document
Dim arrNotes
Dim I As Long
Dim X As Long
Dim Response As Integer
arrNotes = Split(ActiveDocument.Range, delim)
Response = MsgBox("This will split the document into " & UBound(arrNotes) + 1 & " sections.Do you wish to proceed?", 4)
If Response = 7 Then Exit Sub
For I = LBound(arrNotes) To UBound(arrNotes)
If Trim(arrNotes(I)) <> "" Then
X = X + 1
Set doc = Documents.Add
doc.Range = arrNotes(I)
doc.SaveAs ThisDocument.Path & "\" & strFilename & Format(X, "000")
doc.Close True
End If
Next I
End Sub
Sub test()
'delimiter & filename
SplitNotes "///", "Notes "
End Sub

3。 然后点击 运行 按钮或按F5键应用VBA。

4。 在弹出的Microsoft Word文档中,请单击“是”按钮继续。

请注意:
(1)确保将分隔符添加为与 “ ///” 在子测试中,您要分隔的每个文本部分之间的文档。 此外,您可以更改 “ ///” 任何分隔符,以满足您的需要。
(2)您可以更改文件 “笔记” 在子测试中以满足您的需求。
(3)分割文件将与原始文件保存在同一位置。
(4)不需要在原始文件的末尾添加定界符,如果这样做,则分割后会有空白文档。

使用VBA按页面拆分Word文档

这是另一个VBA,可帮助您在Word中快速将一个Word文档按页面拆分成多个。 请执行以下操作:

1。 按 Alt + F11键 一起打开Microsoft Visual Basic for Application窗口;

2。 点击 插页 > 模块,然后将以下VBA代码粘贴到新打开的“模块”窗口中。

VBA:在Word中按页面将文档拆分为多个文档

Sub SplitIntoPages()
Dim docMultiple As Document
Dim docSingle As Document
Dim rngPage As Range
Dim iCurrentPage As Integer
Dim iPageCount As Integer
Dim strNewFileName As String
Application.ScreenUpdating = False 'Makes the code run faster and reduces screen _
flicker a bit.
Set docMultiple = ActiveDocument 'Work on the active document _
(the one currently containing the Selection)
Set rngPage = docMultiple.Range 'instantiate the range object
iCurrentPage = 1
'get the document's page count
iPageCount = docMultiple.Content.ComputeStatistics(wdStatisticPages)
Do Until iCurrentPage > iPageCount
If iCurrentPage = iPageCount Then
rngPage.End = ActiveDocument.Range.End 'last page (there won't be a next page)
Else
'Find the beginning of the next page
'Must use the Selection object. The Range.Goto method will not work on a page
Selection.GoTo wdGoToPage, wdGoToAbsolute, iCurrentPage + 1
'Set the end of the range to the point between the pages
rngPage.End = Selection.Start
End If
rngPage.Copy 'copy the page into the Windows clipboard
Set docSingle = Documents.Add 'create a new document
docSingle.Range.Paste 'paste the clipboard contents to the new document
'remove any manual page break to prevent a second blank
docSingle.Range.Find.Execute Findtext:="^m", ReplaceWith:=""
'build a new sequentially-numbered file name based on the original multi-paged file name and path
strNewFileName = Replace(docMultiple.FullName, ".doc", "_" & Right$("000" & iCurrentPage, 4) & ".doc")
docSingle.SaveAs strNewFileName 'save the new single-paged document
iCurrentPage = iCurrentPage + 1 'move to the next page
docSingle.Close 'close the new document
rngPage.Collapse wdCollapseEnd 'go to the next page
Loop 'go to the top of the do loop
Application.ScreenUpdating = True 'restore the screen updating
'Destroy the objects.
Set docMultiple = Nothing
Set docSingle = Nothing
Set rngPage = Nothing
End Sub 

3。 然后点击 运行 按钮或按下 F5 应用VBA的关键。

请注意: 拆分文档将与原始文件保存在同一位置。


使用Kutools for Word通过标题/页面/分节符/分页符拆分Word文档

如果您安装了Kutools for Word,则可以应用它 分裂 功能可轻松在Word中按页面,标题,分节符或分页符将一个文档拆分为多个文档。

Kutools for Word 是一个方便的插件,可以简化您的工作并增强您处理word文档的能力。 免费试用 60 天! 立即获取!

1点击 Kutools 加 > 分裂 使之成为可能 分裂 功能。

2。 在屏幕上打开的“拆分”对话框中,您可以执行以下操作:

(1)从 分割为 下拉列表。
此功能支持6种拆分方式:标题1,分页符,分节符,页面,每n页和自定义页面范围,如下面的屏幕截图所示:

(2)点击 浏览 按键  指定 将拆分文档保存到的目标文件夹;

(3)在关键字栏中输入关键字作为新文档名称的前缀。 文件前缀 框。

提示:
(1)如果指定拆分当前文档 每n页,您需要在 每n页 框;

(2)如果您指定按自定义页面范围分割当前文档,则需要在这些自定义页面范围中输入用逗号分隔的自定义页面范围。 框,例如,在框中键入1、3-5、12。

3。 点击 Ok 按钮开始拆分。

然后,以指定的拆分方式拆分当前文档,并将新文档批量保存到目标文件夹中。

分页浏览和编辑多个Word文档,例如Firefox,Chrome,Internet Explore 10!

您可能很熟悉在Firefox / Chrome / IE中查看多个网页,并通过轻松单击相应的选项卡在它们之间进行切换。 在此,Office选项卡支持类似的处理,使您可以在一个Word窗口中浏览多个Word文档,并通过单击其选项卡轻松在它们之间切换。 单击可获得全部功能,免费试用!
使用Firefox在一个窗口中浏览多个Word文档


相关文章:



推荐的Word生产力工具

 

Kutools For Word-超过100种Word高级功能,节省50%的时间

  • 复杂和重复的操作可以在几秒钟内完成一次处理。
  • 跨文件夹一次将多个图像插入Word文档。
  • 将文件夹中的多个Word文件合并并合并为所需顺序。
  • 根据标题,分节符或其他条件将当前文档拆分为单独的文档。
  • 在Doc和Docx之间,Docx和PDF之间转换文件,用于常见转换和选择的工具集合等...
按评论排序
注释 (45)
还没有评分。 成为第一位评论!
该评论由网站上的主持人最小化
当我尝试使用上面的 VB 代码拆分 word 文档时,它通过删除所有图像和插入对象来拆分。
该评论由网站上的主持人最小化
我遇到了与 Dhamo 类似的问题。 我从一个包含许多嵌入式内容控件的大文件开始。 当我使用 VB 代码拆分 Word 文件时,内容控件全部转换为常规文本。 有什么方法可以拆分文件而不丢失原始格式?
该评论由网站上的主持人最小化
你好。 如何使用这些脚本将 .doc 拆分为每个文档而不是一页? 例如,每个文档 10 或 5 页
该评论由网站上的主持人最小化
亲爱的团队,用于将文档拆分为多个单页文档的 VBA 运行良好,但问题是拆分文档没有表格格式。(主文档中的表格格式未格式化为拆分文档中的表格)。 如果我能获得宏,请提前感谢,以便主文档中的表格格式不会在拆分文档中受到干扰
该评论由网站上的主持人最小化
很有帮助谢谢! 我的原始文档设置为“只读”。 这不会转移到新文档中。 这个可以加吗?
该评论由网站上的主持人最小化
Kutools for Word 不适用于只读文档。
该评论由网站上的主持人最小化
不幸的是,我无法使用 Kutools 拆分页面。 我能做些什么? 我收到此错误消息:Informen über das Aufrufen von JIT-Debuggen anstelle dieses Dialogfelds finden Sie am Ende dieser Meldung。 ************** Ausnahmetext ************** System.NotSupportedException: Das angegebene Pfadformat wird nicht unterstützt。 bei System.Security.Util.StringExpressionSet.CanonicalizePath(String path, Boolean needFullPath) bei System.Security.Util.StringExpressionSet.CreateListFromExpressions(String[] str, Boolean needFullPath) bei System.Security.Permissions.FileIOPermission.AddPathList(FileIOPermissionAccess access, AccessControlActions 控件,String[] pathListOrig, Boolean checkForDuplicates, Boolean needFullPath, Boolean copyPathList) bei System.Security.Permissions.FileIOPermission..ctor(FileIOPermissionAccess access, String[] pathList, Boolean checkForDuplicates, Boolean needFullPath) bei System.IO.Directory。 InternalCreateDirectoryHelper(String path, Boolean checkHost) bei System.IO.Directory.CreateDirectory(String path) bei Kutools.FormDocumentSplit.€ () bei Kutools.FormDocumentSplit.› (Object “, EventArgs”) bei System.Windows.Forms.Control. OnClick(EventArgs e) bei System.Windows.Forms.Button.OnClick(EventArgs e) bei System.Windows.Forms.Button.OnMouseUp(MouseEventArgs 事件) bei System.Windows.F orms.Control.WmMouseUp(Message& m, MouseButtons button, Int32 clicks) bei System.Windows.Forms.Control.WndProc(Message& m) bei System.Windows.Forms.ButtonBase.WndProc(Message& m) bei System.Windows.Forms。 Button.WndProc(Message& m) 贝 System.Windows.Forms.Control.ControlNativeWindow.OnMessage(Message& m) 贝 System.Windows.Forms.Control.ControlNativeWindow.WndProc(Message& m) 贝 System.Windows.Forms.NativeWindow.Callback( IntPtr hWnd, Int32 msg, IntPtr wparam, IntPtr lparam)
该评论由网站上的主持人最小化
养老金领取者很难理解 Windows XNUMX 的旧方式发生了什么,该程序对我们这些老年人来说非常容易遵循。
该评论由网站上的主持人最小化
你的宏有效 真的 好吧,但是,我要求拆分文档保留它们的窄边距和两个列布局。 比判断(!)更幸运的是,我设法手动实现了这一点,最终结果完全符合我的要求。 然后我使用宏记录器但不具备 Word VBA 知识来更改记录的代码以实现此目的。 你能帮我吗? 提前致谢!
该评论由网站上的主持人最小化
我尝试了第一个拆分文档代码,但它不起作用。 它说要把它分成三个部分,但它没有。
该评论由网站上的主持人最小化
第一个 VBA 将通过分隔符“///”分割当前文档。 您是否在文档中添加了拆分分隔符“///”?
该评论由网站上的主持人最小化
算了,我用字母数字试了几次,都没有用,然后我看到它删除了我的评论。 只是要注意第一个代码对我不起作用,它说它将文档分成三个部分,但没有。
该评论由网站上的主持人最小化
有谁知道在拆分主要文件后如何更改文件名我想根据文件的标题更改名称
该评论由网站上的主持人最小化
我做了VBA代码:根据分隔符将文档拆分为多个文档,它确实拆分了文档,但不幸的是图形被删除了,也被格式化了。 有针对这个的解决方法吗?
该评论由网站上的主持人最小化
感谢宏代码
该评论由网站上的主持人最小化
谢谢,这很有帮助!
该评论由网站上的主持人最小化
你刚刚为我节省了很多时间,谢谢!
该评论由网站上的主持人最小化
谢谢 !

一个问题您是否有任何想法将所有拆分的文档保存为 PDF?
该评论由网站上的主持人最小化
我使用了“使用 VBA 按页面拆分 Word 文档”部分中的代码。 它可以将文档拆分出来,但弄乱了格式 - 导致应该在 2 页上的内容改为在 5 页上。 我玩弄了代码并最终找到了解决方案。


我替换了这一行: docSingle.Range.Paste '将剪贴板内容粘贴到新文档

用这一行: docSingle.Range.PasteAndFormat (wdFormatOriginalFormatting)

希望这可以帮助一些遇到格式问题的人。
该评论由网站上的主持人最小化
我使用了“使用 VBA 按页面拆分 Word 文档”部分中的代码。 我应该如何修改代码以维护所有新文件中的原始标题?
该评论由网站上的主持人最小化
像个人合并附加组件
该评论由网站上的主持人最小化
Kutools for Word 的拆分(文档)功能可以帮助用户通过标题 1、分页符、分节符或分页来拆分 Word 文档。
此外,Kutools for Word 还包括合并功能,可将多个 Word 文档合并为一个。
该评论由网站上的主持人最小化
我需要使用页面范围拆分文档。 例如,我想在另一个文档中拆分 1 到 10 页。 我该怎么做
该评论由网站上的主持人最小化
嗨 - 我有同样的问题,有什么办法吗?
该评论由网站上的主持人最小化
您可以根据标题 1 样式拆分文档作为“分隔符”吗?
该评论由网站上的主持人最小化
嗨安德鲁,
VBA 脚本可以逐页拆分整个文档。 如果您需要按标题 1 拆分,我们建议您尝试 Kutools for Word 的拆分(文档)功能。
该评论由网站上的主持人最小化
下载的文件夹根本打不开。 等待了很长时间。
这里还没有评论
加载更多
留下你的意见
以访客身份发帖
×
评价此帖子:
0   产品特性
建议地点

关注我们

版权所有 © 2009 - extendoffice.com。 | 版权所有。 供电 ExtendOffice。 | 网站地图
Microsoft和Office徽标是Microsoft Corporation在美国和/或其他国家的商标或注册商标。
受Sectigo SSL保护