word文件分割器 文件分割器
如何将一个word文档分割成多个word文档
打开要处理的WORD文档，然后ALT+F8调出宏处理窗口，新输入宏名称为MyPg。
点击右侧的编辑按钮，输入如下内容，完成后键盘F5即可。
但完成后最后2个文件也会会有问题，手动修改一下就行了。
Sub MyPg()Dim oWord As Word.ApplicationDim oDoc As Word.DocumentDim oNewDoc As Word.DocumentDim oRange As Word.RangeDim lCurrentStart As LongDim lCurrentEnd As LongDim lDocumentEnd As LongDim lOutputCount As LonglOutputCount = 0Set oWord = GetObject(, ＂Word.Application＂)Set oDoc = ActiveDocumentoDoc.SelectlCurrentStart = oWord.Selection.StartlCurrentEnd = lCurrentStartlDocumentEnd = oWord.Selection.EndoWord.Selection.Collapse wdCollapseStartDo While (lCurrentEnd oWord.Browser.Target = wdBrowsePageoWord.Browser.NextoWord.Browser.NextoWord.Browser.NextoWord.Browser.NextlCurrentEnd = oWord.Selection.EndIf (lCurrentStart = lCurrentEnd) ThenlCurrentEnd = lDocumentEndEnd IfSet oRange = oDoc.Range(lCurrentStart, lCurrentEnd)Set oNewDoc = oWord.Documents.AddoRange.CopyoNewDoc.Range(0, 0).PastelOutputCount = lOutputCount + 1oNewDoc.SaveAs FileName:=＂d:\＂ & lOutputCount & ＂.doc＂oNewDoc.CloselCurrentStart = lCurrentEndLoopEnd Sub
如何将一个word文档按页分割成多个word文档？
Range;End Sub4、键入F5运行.Copy oSrcDoc、检查当前文档所在路径下是否生成若干名为“原始文档_n.doc”(n代表其对应原始文档中的第几页)的文档.GetParentFolderName(strSrcName)，看到“完成；.＂ & fso; & nIndex & ".Windows(1).Activate Application.Browser.Target = wdBrowsePage Application。
5！”结束， 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.Next strSrcName = oSrcDoc.FullName strNewName = fso.BuildPath(fso!＂page".GetExtensionName(strSrcName)) Set oNewDoc = Documents.Add Selection.Close False Next Set oNewDoc = Nothing Set oRange = Nothing Set oSrcDoc = Nothing Set fso = Nothing MsgBox ＂结束.Paste oNewDoc.SaveAs strNewName oNewDoc, _ fso.GetBaseName(strSrcName) & ＂_".Select For nIndex = 1 To ActiveDocument.Content.Information(wdNumberOfPagesInDocument) oSrcDoc.Bookmarks(＂\.Browser;)1、在Word里面打开那个需要分割的文档（假设它的文件名叫做“原始文档.doc”）;2、键入ALT+F11打开VBA编辑器，选择菜单“插入-模块”；3、粘贴下面的代码：Option ExplicitSub SplitPagesAsDocuments() Dim oSrcDoc As Document, oNewDoc As Document Dim strSrcName As String 展开
【怎么分割图片】在word中,怎样可以把多个连续的图片切割开？word...
1、打开需要拆分的文档2、将需要拆分的章节标题样式选中“标题1”3、选择大纲视图——显示1级标题——点击显示文档4、双击第一章前面的“+”号以显示第一章全部内容，点击创建，将第一章进行拆分5、双击图中所示文本标志。
6、会自动弹出新word窗口，新word文档为全部第一章节内容，点击保存即可。
然后重复上面步骤，将其他章节进行拆分。
怎样打开大word文档
什么Word文档，搞这么大？Word文档的格式是微软自己制定的，目前好像没有其他工具能像分割视频文件一样分割Word文档，你最好还是用Word老老实实地打开吧，等打开后你再一段一段复制出来进行分割。
不过你要打开1.5G的Word文档，你起码要2G以上的内存吧。
估计你的Word文档存了大量的位图，不然光文字哪能弄这么大？
Word 2010 邮件功能 文件分割及自动命名
1.在Word 里做好模板例如复试通知（先生/女士），请于 年 月 日到 分公司参加复试。
请准时参加。
2.工具--信函与邮件--邮件合并 会弹出邮件合并的任务窗格--点击下一步启动文档--再点下一步选取收件人--选键入新列表（使用现有列表可以事先在Excel里做好列表）点创建--点自定义把旧的域名删除然后点添加创建打上域名，例如我上面那个复试单要打的域名是：姓名/年/月/日/分公司共5个域名。
添加完毕了单击确定3.这时的对话框是创建条目，要多少条目你就创建多少，创建完毕点击关闭，这时弹出保存通讯录的对话框，给它取个名点保存，这里会弹出邮件合并收件人对话框，点确定4.打开“邮件合并”的工具的工具条，把光标放在需要插入域的地方点第6个工具按键“插入域”（注意光标位置不要放错了）全部插完后点工具条上的“合并到新文档”确定这样邮件合并就做好了，，
如何将一个word文档按页眉分割成多个word文档
1、在Word里面打开那个需要分割的文档（假设它的文件名叫做“原始文档.doc”）;2、键入ALT+F11打开VBA编辑器，选择菜单“插入-模块”；3、粘贴下面的代码，按照指定页数拆分：Option ExplicitSub SplitEveryFivePagesAsDocuments()Dim oSrcDoc As Document, oNewDoc As DocumentDim strSrcName As String, strNewName As StringDim oRange As RangeDim nIndex As Integer, nSubIndex As Integer, nTotalPages As Integer, nBound As IntegerDim fso As ObjectConst nSteps = 200 " 修改这里控制每隔几页分割一次Set fso = CreateObject(＂Scripting.FileSystemObject＂)Set oSrcDoc = ActiveDocumentSet oRange = oSrcDoc.ContentnTotalPages = ActiveDocument.Content.Information(wdNumberOfPagesInDocument)oRange.Collapse wdCollapseStartoRange.SelectFor nIndex = 1 To nTotalPages Step nStepsSet oNewDoc = Documents.AddIf nIndex + nSteps >nTotalPages ThennBound = nTotalPagesElsenBound = nIndex + nSteps - 1End IfFor nSubIndex = nIndex To nBoundoSrcDoc.ActivateoSrcDoc.Bookmarks(＂\page＂).Range.CopyoSrcDoc.Windows(1).ActivateApplication.Browser.Target = wdBrowsePageApplication.Browser.NextoNewDoc.ActivateoNewDoc.Windows(1).Selection.PasteNext nSubIndexstrSrcName = oSrcDoc.FullNamestrNewName = fso.BuildPath(fso.GetParentFolderName(strSrcName), _fso.GetBaseName(strSrcName) & ＂_＂ & (nIndex \ nSteps + 1) & ＂.＂ & fso.GetExtensionName(strSrcName))oNewDoc.SaveAs strNewNameoNewDoc.Close FalseNext nIndexSet oNewDoc = NothingSet oRange = NothingSet oSrcDoc = NothingSet fso = NothingMsgBox ＂结束！＂End Sub4、键入F5运行，看到“完成！”结束。
5、检查当前文档所在路径下是否生成若干名为“原始文档_n.doc”(n代表其对应原始文档中的第几页)的文档，检查它们的内容是否就对应于原始文档每个页面的内容。