怎么切割文档

① 如何将一个word文档按2页分割成多个word文档

1.
这个必须用到大纲视抄图；
2.
第一步：在第一、第三、第五...等每个两页的最顶端设置一个一级标题；
3.
第二步：ctrl+alt+o（欧）切换到大纲视图→显示级别选择1级→点击“显示文档”→点击“创建”→ctrl+s保存；
4.
完成，保存后的子文档位于主文档文件夹内；

② 如何将一个word文档按页分割成多个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代表其对应原始文档中的第几页）的文档，检查它们的内容是否就对应于原始文档每个页面的内容。

③ 怎么切割文档txt文件

网络抄
TXTshashou
软件，袭可按章节、大小等切分txt文本
http://www.skycn.com/soft/55267.html
到天空下载

④ 如何将一个word文档分割成多个word文档

Word2007中把光标定位在要分割文档的位置——插入——页——分页即可。

⑤ 怎样快速剪切一部分文档

你把光标放在要剪切的开头一个字的前面，然后按住SHIFT键，再找到结尾处鼠标点一下，就把这一区域选中了。复制或者剪切都可以了

⑥ 如何切割文本文档

假设你要把每行限制在11个字之内，用Replace
Pioneer的正则表达式功能，把每11个非换行字符后加内一个换行符容。步骤：
1.
ctrl-o打开文本文件
2.
ctrl-h打开替换窗口
在Search
for
pattern下输入[^\n]{11},在Replace
with
pattern下输入$match\n即可
3.
点击Replace即完成。ctrl-s存盘。

⑦ 如何切割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

⑧ 怎么把word文档中的一整个页面剪切下来

把整个word文件复的完整页截屏下制来的操作步骤：

1、双击打开要整页截屏的Word文档。

⑨ 怎样切割文件

还是用这个方法好

超级文件切割刀2.0
是由Ly软件工作室提供的免费软件，功能专强大，可分割合并文件属，还可合并任意文件，此软件的特点是速度快、分割安全、准确，而且采用了多线程设计对文件进行分割与合并，所以速度快，由于发现网上一些同类软件对文件的分割与合并准确性不好，所以此软件对文件的分割与合并进行了严格的设计与测试，经过多次的分割与合并大小文件，结果都十分准确，此软件还能对程序加锁和快速复制文件

下载地址：http://gzcnc.onlinedown.net:82/files/SupperCutsetup.exe