本文目录一览：
- 1、求个“word文档分割器”
- 2、有word文件分割器吗
- 3、怎么样把word长篇小说快速分成几个文本
- 4、如何自动将一个很长的word文件分拆为几个较短的word文档？
- 5、word分割器 把一个大的文档100MB分隔成两个小的文档。qq707769219 谢谢
- 6、如何切割word文档，把大的切割成多个小的，要有用，快捷，的方法，或者有关软件也行，
求个“word文档分割器”
用winrar就可以分割。安装好winrar后，在要分割的word文件上点右键，选择winrar-添加到压缩文件，然后在弹出的窗口的“常规”选项卡下面的“压缩分卷大小，字节”处输入你要分割成的文件大小，然后点“确定”，就会将word文档分解成几个压缩文件，如果要合并这些压缩文件，则可全部选中，再点右键，选解压文件
有word文件分割器吗
winrar就可以实现word文件的分割。
方法如下：
1、安装winrar；
2、在要分割的word文件上点右键，选择winrar-添加到压缩文件；
3、在弹出的窗口的“常规”选项卡下面的“压缩分卷大小，字节”处输入分割成的文件大小；
3、设置完成后，点声明“确定”，就会将word文档分解成几个压缩文件，完成。
怎么样把word长篇小说快速分成几个文本
试试这款《 快刀文件分割器》，。它能快速分割任何类型与大小的文件。并且分块的大小不受你电脑内存大小的限制。可指定任意大小或块数进行分割。可生成自合并的批处理文件与合并信息文件，通过软件的合并功能合并文件速度非常快。
下载地址见参考资料。
如何自动将一个很长的word文件分拆为几个较短的word文档？
.doc格式的不知道怎么分
不过如果你的电子书支持.txt格式，我手头倒有一个分割器，可以按你需要的字节把它分割为很多小的.txt文件，非常方便。
如果需要的话，可以给我发站内消息~~
word分割器 把一个大的文档100MB分隔成两个小的文档。qq707769219 谢谢
就用压缩文件来处理呀，可以自己选择大小的。
添加到压缩文件，然后设置文件的大小。
试试？
如何切割word文档，把大的切割成多个小的，要有用，快捷，的方法，或者有关软件也行，
1、在Word里面打开那个需要分割的文档（假设它的文件名叫做“原始文档.doc”）；
2、键入ALT+F11打开VBA编辑器，选择菜单“插入-模块”；
3、粘贴下面的代码：
Option Explicit
Sub SplitPagesAsDocuments()
Dim oSrcDoc As Document, oNewDoc As Document Dim strSrcName As String, strNewName As String Dim oRange As Range Dim nIndex As Integer Dim fso As Object
Set fso = CreateObject("Scripting.FileSystemObject") Set oSrcDoc = ActiveDocument Set oRange = oSrcDoc.Content
oRange.Collapse wdCollapseStart oRange.Select
For nIndex = 1 To
ActiveDocument.Content.Information(wdNumberOfPagesInDocument) oSrcDoc.Bookmarks("/page").Range.Copy oSrcDoc.Windows(1).Activate
Application.Browser.Target = wdBrowsePage Application.Browser.Next
strSrcName = oSrcDoc.FullName
strNewName = fso.BuildPath(fso.GetParentFolderName(strSrcName), _ fso.GetBaseName(strSrcName) "_" nIndex "." fso.GetExtensionName(strSrcName)) Set oNewDoc = Documents.Add Selection.Paste
oNewDoc.SaveAs strNewName oNewDoc.Close False Next
Set oNewDoc = Nothing Set oRange = Nothing Set oSrcDoc = Nothing Set fso = Nothing
MsgBox "结束！" End Sub
4、键入F5运行，看到“完成！”结束。
5、检查当前文档所在路径下是否生成若干名为“原始文档_n.doc”（n代表其对应原始文档中的第几页）的文档，检查它们的内容是否就对应于原始文档每个页面的内容。 Option Explicit
Sub SplitPagesAsDocuments()
Dim oSrcDoc As Document, oNewDoc As Document
Dim strSrcName As String, strNewName As String
Dim oRange As Range
Dim nIndex As Integer, nSubIndex As Integer, nTotalPages As Integer, nBound As Integer
Dim fso As Object
Const nSteps = 4
Set fso = CreateObject("Scripting.FileSystemObject")
Set oSrcDoc = ActiveDocument
Set oRange = oSrcDoc.Content
nTotalPages = ActiveDocument.Content.Information(wdNumberOfPagesInDocument)
oRange.Collapse wdCollapseStart oRange.Select
For nIndex = 1 To nTotalPages Step nSteps
Set oNewDoc = Documents.Add
If nIndex + nSteps nTotalPages Then
nBound = nTotalPages Else
nBound = nIndex + nSteps - 1 End If
For nSubIndex = nIndex To nBound oSrcDoc.Activate
oSrcDoc.Bookmarks("/page").Range.Copy oSrcDoc.Windows(1).Activate
Application.Browser.Target = wdBrowsePage Application.Browser.Next
oNewDoc.Activate
oNewDoc.Windows(1).Selection.Paste Next nSubIndex
strSrcName = oSrcDoc.FullName strSrcName = oSrcDoc.FullName
strNewName = fso.BuildPath(fso.GetParentFolderName(strSrcName), _
fso.GetBaseName(strSrcName) "_" nIndex "." fso.GetExtensionName(strSrcName))
oNewDoc.SaveAs strNewName oNewDoc.Close False Next nIndex
Set oNewDoc = Nothing Set oRange = Nothing Set oSrcDoc = Nothing Set fso = Nothing
MsgBox "结束！" End Sub