word拆分代码

A. 如何将一个word文档按页分割成多个word文档

运行后，会弹出一个窗口，在里面输入你想按多少页导出。如果你想每5页存一个文档，那么就写5，如果是按1页，就写1。

Sub 多页导出()

Dim MyPath As String, PageCount As Integer

Dim StartRange As Long, EndRange As Long, MyRange As Range

Dim Fn As String, MyDoc As Document, i As Integer

Dim q%, a%

On Error Resume Next

Application.ScreenUpdating = False

MyPath = ActiveDocument.Path

PageCount = Selection.Information(wdNumberOfPagesInDocument)

Selection.HomeKey unit:=wdStory

q = InputBox("一闪流溢让我问问你，你想分几页导出，如5页，填写5")

For i = 1 To PageCount / q + (PageCount Mod q)

StartRange = Selection.Start

Selection.EndKey unit:=wdLine

Fn = i & "." & ActiveDocument.Name

If i * q >= PageCount Then

EndRange = ActiveDocument.Content.End

Else

For a = 1 To q

Selection.GoToNext (wdGoToPage)

Next a

EndRange = Selection.Start

End If

Set MyRange = ActiveDocument.Range(StartRange, EndRange)

MyRange.Copy

Set MyDoc = Documents.Add

With MyDoc

.Content.Paste

.Content.Paragraphs.Last.Range.Delete

.Content.Paragraphs.Last.Range.Delete

.SaveAs FileName:=MyPath & "/" & Fn

.Close

End With

Next

Application.ScreenUpdating = True

End Sub

代码借鉴改编自excelhome的雨雪霏霏和守柔，雨雪霏霏。守柔

如果答案对你有帮助，记得留言点赞。

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

C. word文档中如何使用快捷键拆分单元格

常用快捷键x0dx0a快捷键 作用x0dx0aCtrl+Shift+Spacebar 创建不间断空格x0dx0aCtrl+ -(连字符) 创建不间断连字符x0dx0aCtrl+B 使字符变为粗体x0dx0aCtrl+I 使字符变为斜体x0dx0aCtrl+U 为字符添加下划线x0dx0aCtrl+Shift+ 缩小字号x0dx0aCtrl+Shift+> 增大字号x0dx0aCtrl+Q 删除段落格式x0dx0aCtrl+Spacebar 删除字符格式x0dx0aCtrl+C 复制所选文本或对象x0dx0aCtrl+X 剪切所选文本或对象x0dx0aCtrl+V 粘贴文本或对象x0dx0aCtrl+Z 撤消上一操作x0dx0aCtrl+Y 重复上一操作x0dx0ax0dx0a快捷键大全x0dx0a1.用于设置字符格式和段落格式的快捷键x0dx0a快捷键 作用x0dx0aCtrl+Shift+F 改变字体x0dx0aCtrl+Shift+P 改变字号x0dx0aCtrl+Shift+> 增大字号x0dx0aCtrl+Shift+< 减小字号x0dx0aCtrl+] 逐磅增大字号x0dx0aCtrl+[ 逐磅减小字号x0dx0aCtrl+D 改变字符格式（"格式"菜单中的"字体"命令）x0dx0aShift+F3 切换字母大小写x0dx0aCtrl+Shift+A 将所选字母设为大写x0dx0aCtrl+B 应用加粗格式x0dx0aCtrl+U 应用下划线格式x0dx0aCtrl+Shift+W 只给字、词加下划线，不给空格加下划线x0dx0aCtrl+Shift+H 应用隐藏文字格式x0dx0aCtrl+I 应用倾斜格式x0dx0aCtrl+Shift+K 将字母敏肆变为小型大写字母x0dx0aCtrl+=（等号） 应用下标格式（自动间距）x0dx0aCtrl+Shift++（加号） 应用上标格式（自动间樱册距）x0dx0aCtrl+Shift+Z 取消人工设置的字符格式x0dx0aCtrl+Shift+Q 将所选部分设为Symbol字体x0dx0aCtrl+Shift+*（星号） 显示非打印字符x0dx0aShift+F1（单击） 需查看文字格式了解其格式的文脊拿宏字x0dx0aCtrl+Shift+C 复制格式x0dx0aCtrl+Shift+V 粘贴格式x0dx0aCtrl+1 单倍行距x0dx0aCtrl+2 双倍行距x0dx0aCtrl+5 1.5 倍行距x0dx0aCtrl+0 在段前添加一行间距x0dx0aCtrl+E 段落居中x0dx0aCtrl+J 两端对齐x0dx0aCtrl+L 左对齐x0dx0aCtrl+R 右对齐x0dx0aCtrl+Shift+D 分散对齐x0dx0aCtrl+M 左侧段落缩进x0dx0aCtrl+Shift+M 取消左侧段落缩进x0dx0aCtrl+T 创建悬挂缩进x0dx0aCtrl+Shift+T 减小悬挂缩进量x0dx0aCtrl+Q 取消段落格式x0dx0aCtrl+Shift+S 应用样式x0dx0aAlt+Ctrl+K 启动"自动套用格式"x0dx0aCtrl+Shift+N 应用"正文"样式x0dx0aAlt+Ctrl+1 应用"标题1"样式x0dx0aAlt+Ctrl+2 应用"标题2"样式x0dx0aAlt+Ctrl+3 应用"标题3"样式x0dx0aCtrl+Shift+L 应用"列表"样式 x0dx0a2.用于编辑和移动文字及图形的快捷键x0dx0a x0dx0a◆删除文字和图形x0dx0a快捷键 作用x0dx0aBackspace 删除左侧的一个字符x0dx0aCtrl+Backspace 删除左侧的一个单词x0dx0aDelete 删除右侧的一个字符x0dx0aCtrl+Delete 删除右侧的一个单词x0dx0aCtrl+X 将所选文字剪切到"剪贴板"x0dx0aCtrl+Z 撤消上一步操作x0dx0aCtrl+F3 剪切至"图文场"x0dx0a x0dx0a◆复制和移动文字及图形x0dx0a快捷键 作用x0dx0aCtrl+C 复制文字或图形x0dx0aF2（然后移动插入 移动选取的文字或图形点并按Enter键）x0dx0aAlt+F3 创建"自动图文集"词条x0dx0aCtrl+V 粘贴"剪贴板"的内容x0dx0aCtrl+Shift+F3 粘贴"图文场"的内容x0dx0aAlt+Shift+R 复制文档中上一节所使用的页眉或页脚x0dx0a◆插入特殊字符x0dx0a快捷键 插入x0dx0aCtrl+F9 域x0dx0aShift+Enter 换行符x0dx0aCtrl+Enter 分页符x0dx0aCtrl+Shift+Enter 列分隔符x0dx0aCtrl+ - 可选连字符x0dx0aCtrl+Shift+ - 不间断连字符x0dx0aCtrl+Shift+空格 不间断空格x0dx0aAlt+Ctrl+C 版权符号x0dx0aAlt+Ctrl+R 注册商标符号x0dx0aAlt+Ctrl+T 商标符号x0dx0aAlt+Ctrl+.（句点） 省略号 x0dx0a◆选定文字和图形x0dx0a选定文本的方法是：按住 Shift 键并按能够移动插入点的键。x0dx0a快捷键 将选定范围扩展至x0dx0aShift+→ 右侧的一个字符x0dx0aShift+← 左侧的一个字符x0dx0aCtrl+Shift+→ 单词结尾x0dx0aCtrl+Shift+← 单词开始x0dx0aShift+End 行尾x0dx0aShift+Home 行首x0dx0aShift+↓ 下一行x0dx0aShift+↑ 上一行x0dx0aCtrl+Shift+↓ 段尾x0dx0aCtrl+Shift+↑ 段首x0dx0aShift+Page Down 下一屏x0dx0aShift+Page Up 上一屏x0dx0aCtrl+Shift+Home 文档开始处x0dx0aCtrl+Shift+End 文档结尾处x0dx0aAlt+Ctrl+Shift+Page Down 窗口结尾x0dx0aCtrl+A 包含整篇文档x0dx0aCtrl+Shift+F8+↑或↓ 纵向文本块(按 Esc 键取消选定模式)x0dx0aF8+箭头键 文档中的某个具体位置(按Esc键取消选定模式)x0dx0a x0dx0a◆选定表格中的文字和图形x0dx0a快捷键 作用x0dx0aTab键 选定下一单元格的内容x0dx0aShift+Tab 选定上一单元格的内容x0dx0aA按住Shift键并重复 按某箭头键将所选内容扩展到相邻单元格x0dx0aCtrl+Shift+F8然后按箭头键 扩展所选内容（或块）x0dx0aShift+F8 缩小所选内容x0dx0aAlt+数字键盘上的5 选定整张表格x0dx0a（Num Lock键需处于关闭状 ȫ态）x0dx0ax0dx0a◆移动插入点x0dx0ax0dx0a◆移动插入点x0dx0a快捷键 作用x0dx0a← 左移一个字符x0dx0a→ 右移一个字符x0dx0aCtrl+← 左移一个单词x0dx0aCtrl+→ 右移一个单词x0dx0aCtrl+↑ 上移一段x0dx0aCtrl+↓ 下移一段x0dx0aShift+Tab 左移一个单元格（在表格中）x0dx0aTab 右移一个单元格（在表格中）x0dx0a↑ 上移一行x0dx0a↓ 下移一行x0dx0aEnd 移至行尾x0dx0aHome 移至行首x0dx0aAlt+Ctrl+Page Up 移至窗口顶端x0dx0aAlt+Ctrl+Page Down 移至窗口结尾x0dx0aPage Up 上移一屏（滚动）x0dx0aPage Down 下移一屏（滚动）x0dx0aCtrl+Page Down 移至下页顶端x0dx0aCtrl+Page Up 移至上页顶端x0dx0aCtrl+End 移至文档结尾 x0dx0aCtrl+Home 移至文档开头x0dx0aShift+F5 移至前一处修订；对于刚打开的文档，移至上一次关闭文档时x0dx0a 插入点所在位置x0dx0ax0dx0a◆在表格中移动x0dx0a快捷键 光标移至x0dx0aTab 一行中的下一个单元格x0dx0aShift+Tab 一行中的上一个单元格x0dx0aAlt+Home 一行中的第一个单元格x0dx0aAlt+End 一行中的最后一个单元格x0dx0aAlt+Page Up 一列中的第一个单元格x0dx0aAlt+Page Down 一列中的最后一个单元格x0dx0a↑ 上一行 x0dx0a↓ 下一行 x0dx0a◆在表格中插入段落和制表符x0dx0a快捷键 在单元格中插入x0dx0aEnter 新段落x0dx0aCtrl+Tab 制表符 x0dx0a3.用于处理文档的快捷键x0dx0a◆创建、查看和保存文档x0dx0a快捷键 作用x0dx0aCtrl+N 创建与当前或最近使用过的文档类型相同的新文档x0dx0aCtrl+O 打开文档x0dx0aCtrl+W 关闭文档x0dx0aAlt+Ctrl+S 拆分文档窗口x0dx0aAlt+Shift+C 撤消拆分文档窗口x0dx0aCtrl+S 保存文档 x0dx0a◆查找、替换和浏览文本 x0dx0aCtrl+F 查找文字、格式和特殊项x0dx0aAlt+Ctrl+Y 在关闭"查找和替换"窗口之后重复查找x0dx0aCtrl+H 替换文字、特殊格式和特殊项x0dx0aCtrl+G 定位至页、书签、脚注、表格、注释、图形或其它位置x0dx0aAlt+Ctrl+Z 返回至页、书签、脚注、表格、批注、图形或其他位置x0dx0aAlt+Ctrl+Home 浏览文档 x0dx0a◆撤消和恢复操作x0dx0aEsc 取消操作x0dx0aCtrl+Z 撤消操作x0dx0aCtrl+Y 恢复或重复操作 x0dx0a◆切换至其他视图x0dx0aAlt+Ctrl+P 切换到页面视图 x0dx0aAlt+Ctrl+O 切换到大纲视图x0dx0aAlt+Ctrl+N 切换到普通视图x0dx0aCtrl+\\ 在主控文档和子文档之间移动 x0dx0a◆用于审阅文档的快捷键x0dx0a快捷键 作用x0dx0aAlt+Ctrl+M 插入批注x0dx0aCtrl+Shift+E 打开或关闭标记修订功能x0dx0aHome 定位至批注开始x0dx0aEnd 定位至批注结尾x0dx0aCtrl+Home 定位至一组批注的起始处x0dx0aCtrl+End 定位至一组批注的结尾处x0dx0a4.用于处理引用、脚注和尾注的快捷键x0dx0a快捷键 作用 x0dx0aAlt+Shift+O 标记目录项x0dx0aAlt+Shift+I 标记引文目录项x0dx0aAlt+Shift+X 标记索引项x0dx0aAlt+Ctrl+F 插入脚注x0dx0aAlt+Ctrl+E 插入尾注 x0dx0a5.用于处理域的快捷键x0dx0a快捷键 作用x0dx0aAlt+Shift+D 插入Date域x0dx0aAlt+Ctrl+L 插入Listnum域x0dx0aAlt+Shift+P 插入Page域x0dx0aAlt+Shift+T 插入Time域x0dx0aCtrl+F9 插入空域x0dx0aCtrl+Shift+F7 更新Word源文档中的链接信息x0dx0aF9 更新所选域x0dx0aCtrl+Shift+F9 解除域的链接x0dx0aShift+F9 在域代码和其结果之间进行切换x0dx0aAlt+F9 在所有的域代码及其结果间进行切换x0dx0aAlt+Shift+F9 从显示域结果的域中运行Gotobutton 或 Macrobuttonx0dx0aF11 定位至下一域x0dx0aShift+F11 定位至前一域x0dx0aCtrl+F11 锁定域x0dx0aCtrl+Shift+F11 解除对域的锁定x0dx0a x0dx0a6.用于处理文档大纲的快捷键x0dx0aAlt+Shift+← 提升段落级别x0dx0aAlt+Shift+→ 降低段落级别x0dx0aCtrl+Shift+N 降级为正文x0dx0aAlt+Shift+↑ 上移所选段落x0dx0aAlt+Shift+↓ 下移所选段落x0dx0aAlt+Shift+ + 扩展标题下的文本x0dx0aAlt+Shift+ - 折叠标题下的文本x0dx0aAlt+Shift+A 扩展或折叠所有文本或标题x0dx0a数字键盘上的斜杠（/） 隐藏或显示字符格式x0dx0aAlt+Shift+L 只显示首行正文或显示全部正文x0dx0aAlt+Shift+1 显示所有具有"标题1"样式的标题x0dx0aAlt+Shift+n 显示从"标题1"到"标题n"的x0dx0a（指标题级别） 所有标题 x0dx0a7.用于进行邮件合并的快捷键x0dx0a要使用这些按键组合，需要先建立邮件合并的主文档。x0dx0a快捷键 作用 x0dx0aAlt+Shift+K 预览邮件合并x0dx0aAlt+Shift+N 合并文档x0dx0aAlt+Shift+M 打印已合并的文档x0dx0aAlt+Shift+E 编辑邮件合并数据文档x0dx0aAlt+Shift+F 插入合并域x0dx0a8.用于处理 Web 页的快捷键x0dx0a快捷键 作用x0dx0aCtrl+K 插入超级链接x0dx0aAlt+← 返回一页x0dx0aAlt+→ 前进一页x0dx0aF9 刷新 x0dx0a9.用于打印和预览文档的按键x0dx0aCtrl+P 打印文档x0dx0aAlt+Ctrl+I 切换至或退出打印预览箭头键在放大的预览页上移动x0dx0aPage Up或Page Down 在缩小显示比例时逐页翻阅预览页x0dx0aCtrl+Home 在缩小显示比例时移至第一张预览页x0dx0aCtrl+End 在缩小显示比例时移至最后一张预览页x0dx0a10.用于Office助手的快捷键x0dx0a如果要完成下面大多数操作，Office 助手必须打开并且可见。x0dx0a快捷键 作用x0dx0aF1 获得Office助手（助手处于显示状态）的帮助x0dx0aAlt+F6 激活Office助手气球x0dx0aAlt+数字键 从助手显示的列表中选择帮助主题（Alt+1代表第一个主题以此类推） x0dx0aAlt+↓ 查看更多的帮助主题 x0dx0aAlt+↑ 查看前面的帮助主题x0dx0aEsc 关闭助手消息或提示 x0dx0a11.用于帮助的快捷键x0dx0a◆在帮助窗口中工作x0dx0a快捷键 作用x0dx0aAlt+O 显示"选项"菜单以访问帮助工具栏上的命令x0dx0aAlt+空格键 显示程序"控制"菜单x0dx0aAlt+F4 关闭活动的帮助窗口 x0dx0a◆在定位窗格中移动x0dx0a快捷键 作用x0dx0aCtrl+Tab 切换到下一选项卡x0dx0aCtrl+Shift+Tab 切换到前一选项卡x0dx0aAlt+C 切换到"目录"选项卡x0dx0aAlt+I 切换到"索引"选项卡x0dx0aEnter 打开或关闭所选书籍，或打开所选帮助主题x0dx0a↓ 选择下一书籍或帮助主题x0dx0a↑ 选择前一书籍或帮助主题x0dx0a◆在主题窗格中移动x0dx0a快捷键 作用x0dx0aAlt+← 返回查看过的帮助主题x0dx0aAlt+→ 前往查看过的帮助主题x0dx0aTab 转到第一个或下一超级链接x0dx0aShift+Tab 转到最后或前一超级链接x0dx0aEnter 激活所选超级链接x0dx0aEsc 关闭弹出的窗口x0dx0a↑ 向帮助主题的开始处滚动 x0dx0a↓ 向帮助主题的结尾处滚动x0dx0aPage Up 以更大的增量向帮助主题的开始处滚动x0dx0aPage Down 以更大的增量向帮助主题的结尾处滚动x0dx0aHome 移动到帮助主题的开始x0dx0aEnd 移动到帮助主题的结尾x0dx0aCtrl+P 打印当前帮助主题x0dx0aCtrl+A 选定整个帮助主题x0dx0aCtrl+C 将选定内容复制到"剪贴板"x0dx0a12.用于菜单的快捷键x0dx0a快捷键 作用x0dx0aShift+F10 显示x0dx0aF10 激活菜单栏 x0dx0aAlt+Spacebar 显示程序标题栏上的程序图标菜单x0dx0a↓/↑（如菜单 选择菜单或子菜单中的下一个x0dx0a或子菜单已显示） 或前一个命令x0dx0a←/→ 选择左边或者右边的菜单，或者在显示子菜单时，在主菜单和x0dx0a 子菜单之间切换x0dx0aHome或End 选择菜单或子菜单中第一个或者最后一个命令x0dx0aAlt 同时关闭显示的菜单和子菜单x0dx0aEsc 关闭显示的菜单。若显示子菜单时，只关闭子菜单x0dx0aAlt+Ctrl+ = 将工具栏按钮添至菜单。当键入此快捷键然后单击工具栏按钮x0dx0a 时，Microsoft Word会将按钮添至适当的菜单。例如，单击"格x0dx0a 式"工具栏上的"项目符号"按钮可以将"项目符号"命令添至"格式"菜单。x0dx0aAlt+Ctrl+ -从菜单中删除命令。当键入此快捷键（数字键盘上然后选择菜单命令时，该命令将被删的减号键）除。如果改变了主意，可以按Esc取消此快捷命令，要恢复已修改了的菜单可以通过在"工具/自 定义"重新设置菜单。x0dx0aAlt+Ctrl++为菜单命令自定义快捷键。当您键（数字小键盘入此快捷键并选择了菜单命令时，将上的加号键）会出现"自定义键盘"对话框，你可以在其中添加更改或删除快捷键。x0dx0a13.用于窗口和对话框的快捷键x0dx0a◆在文档和程序窗口中移动x0dx0a快捷键 作用x0dx0aAlt+Tab 切换至下一个程序或Microsoft Word文档窗口x0dx0aAlt+Shift+Tab 切换至上一个程序或Mic

D. 如何拆分word文档

• 第一步：在Word2010中打开要拆分的Word文档，在文档拆分位置添加新标题作为拆分后独立文档的标题名称，也可以用节标题作为拆分后文档的标题名称。

  

E. vba实现按特定的字符段落拆分word文档

下面代码把原文档按照指定的标识（这里是“END”）进行拆分。拆分之后的文档生成在源文档当前目录下，文件名后面附加“_1”、“_2”、“_3”等。

Option Explicit

Const Token = "END"

Sub SplitDocumentByToken()

Dim oNewDoc As Document
Dim strSrcName As String, strNewName As String
Dim nStart As Integer, nEnd As Integer, nIndex As Integer
Dim fContinue As Boolean
Dim fso As Object

Set fso = CreateObject("Scripting.FileSystemObject")

strSrcName = ActiveDocument.FullName

nIndex = 1
fContinue = True
Selection.StartOf WdUnits.wdStory

Do While fContinue
nStart = Selection.Start
Selection.Find.ClearFormatting
With Selection.Find
.Text = "^13" & Token & "^13"
.Replacement.Text = ""
.Forward = True
.Wrap = WdFindWrap.wdFindStop
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = True
End With
If Selection.Find.Execute Then
nEnd = Selection.End
Else
nEnd = ActiveDocument.Content.End
fContinue = False
End If
ActiveDocument.Range(nStart, nEnd).Copy
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
nIndex = nIndex + 1
Selection.Collapse WdCollapseDirection.wdCollapseEnd
Loop

Set oNewDoc = Nothing
Set fso = Nothing

MsgBox "结束！"

End Sub

F. 将word文档按页码拆分

请参考如下宏方法：Sub CutDoc()
Dim Doc As Document, Rng As Range, n As Integer
Set Rng = Range(0, 0)
With Selection
For n = 200 To .Information(wdNumberOfPagesInDocument) Step 200
.GoTo what:=wdGoToPage, Name:=n + 1
If .Information(wdActiveEndPageNumber) = .Information(wdNumberOfPagesInDocument) Then
.EndKey wdStory
Rng.SetRange Rng.End, .Range.Start
Else
Rng.SetRange Rng.End, .Range.Start
End If
Set Doc = Documents.Add(Visible:=False)
With Doc
.Content.InsertAfter Rng
.SaveAs ActiveDocument.Path & "\第" & n / 200 & "部分.doc"
.Close True
End With
Next
End With
End Sub '--------------------------------------------上面的方法适用于纯文本状态下的分割，如果DOC里面含有图片、表格等对象，建议使用：Sub CutDocs()
Dim Doc As Document, Rng As Range, n As Integer
Set Rng = Range(0, 0)
With Selection
For n = 2 To .Information(wdNumberOfPagesInDocument) Step 2
.GoTo what:=wdGoToPage, Name:=n + 1
If .Information(wdActiveEndPageNumber) = .Information(wdNumberOfPagesInDocument) Then
.EndKey wdStory
Rng.SetRange Rng.End, .Range.Start
Else
Rng.SetRange Rng.End, .Range.Start
End If
Rng.Copy
Set Doc = Documents.Add(Visible:=False)
With Doc
.Range.Paste
.ActiveWindow.View = wdPrintView
.SaveAs ActiveDocument.Path & "\第" & n / 2 & "部分.doc"
.Close True
End With
Next
End With
End Sub '--------------------------------------------请将代码中的 2 更正为 200

G. 一个word文件怎么拆分成多个文件

一个word文件怎么拆分成多个文件, 如何把一个word文件拆分为多个小文件

把一个word文件拆分为多个小文件的方法：
1.开启要处理的WORD文件，然后ALT+F8调出巨集处理视窗，新输入巨集名称为MyPg。
2.点选右侧的编辑按钮，输入如下内容，完成后键盘F5即可。
3.贴上如下内容
Option Explicit
Sub MyPg()
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 = 200 ' 修改这里控制每隔几页分割一次
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
strNewName = fso.BuildPath(fso.GetParentFolderName(strSrcName), _
fso.GetBaseName(strSrcName) & "_" & (nIndex nSteps + 1) & "." & 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
此方法适用于页码分多个文件使用。

1、检视——大纲，切换到大纲检视，选中要拆分的标题及正文（选定的方法是滑鼠移到该标题前的空心十字元号，此时滑鼠指标变成十字箭头，单击滑鼠即可选定该标题包括的内容）
2、单击【大纲】工具栏中的【建立子文件】按钮，每个子文件会放在一个虚线框中，并且在虚线框的左上角显示一个子文件图示，子文件之间用分节符隔开。
3、把档案储存下来即可。Word 在储存主文件的同时，会自动储存建立的子文件，并且以子文件的第一行文字作为档名。

一个word文件中的东西怎么分成多个文件

方法如下：
1、开启需要进行编辑的word文件；
2、点选选单栏->检视；
3、单击之后会在检视下方出现一个子选单，点选"拆分"；
4、点选后，就会出现一个让你确定需要拆分的文件位置；
5、确定自己的拆分位置后，滑鼠左键单击就可以将文件拆分；
6、完成。

怎么将pdf合并文件分开拆分成多个PDF文件

拆分PDF格式档案需要使用到专业性的软甲，下面答主就为大家介绍一款操作简单的PDF拆分软体！
参考软体：迅捷PDF编辑器
拆分步骤：
首先我们点选PDF编辑器左上角的“档案”按钮并将PDF档案开启！
档案开启之后点选“文件”中的“拆分文件”功能进入到拆分介面！
在拆分介面设定好PDF拆分引数后点击“确定”按钮即可拆分PDF档案！
以上就是拆分PDF档案的方法，看完之后是不是觉得特别简单呢！

Word怎么将一个文件拆分成几个小文件

1、开启需要拆分的文件，文件里面输入内容。2、以大纲检视显示文件，点选【检视】再点选【大纲检视】3、在需要拆分的地方的标题处，设定“级别”如图4、选中要拆分出来的文件（含带级别的标题）。将滑鼠移动到标题前的空心十字元号上，此时滑鼠指标变成十字箭头，点选滑鼠即可选定该标题以及其包括的内容。5、开启文件操作，点选“显示文件”，展开相应文件操作按钮；点选“建立”按钮，建立子文件；6、点选“选单”按钮，弹出“另存为”对话方块，即可生成以“设定了级别的标题”为档名的子文件；

如何将一个word文件按页分割成多个word文件

1、在Word里面开启那个需要分割的文件；
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代表其对应原始文件中的第几页）的文件，检查它们的内容是否就对应于原始文件每个页面的内容。

H. 如何把word文档内容拆分成多个独立的文件

有不少Word长文档，阅读起来不是很方便，其实我们可以快速将这些长文档，拆分成一个个的短文档，可以方便我们的阅读。那么怎么操作呢?下面就为大家介绍一下，有需要的朋友可以参考本文，来看看吧!

这里以Word 2016为例，打开Word文档后，切换到“ 视图 ”选项卡，再点击切换到“ 大纲视图 ”，在“ 显示级别 ”中，根据实际情况选项相应级别，比如小编所用文档中的主要段落是以二级标题划分的，所以这里选择“2级”，这样一来，一些细节内容就被折叠起来了。

继续在“ 大纲 ”选项卡中，全选所有2级标题，点击“ 显示文档→创建 ”，即可创建子文档了。

接下来，点击工具栏中的保存按钮(或直接按Ctrl+S键)进行保存，再回到原文件的文件夹中，就可以看到它已被拆分成多篇独立的文档啦。

将一个完整的文档拆分成两个文档，想必大家都遇到过，一般最常想到的办法，就是新建一个文档，然后剪切---粘贴。今天要总结的确实利用word自身的功能直接产生新建文档!

1、打开需要拆分的文档。

2、以大纲视图显示文档。

3、在需要拆分的地方的标题处，设置“级别”。

4、选中要拆分出来的文档(含带级别的标题)。将鼠标移动到标题前的空心十字符号上，此时鼠标指针变成十字箭头，点击鼠标即可选定该标题以及其包括的内容。

5、打开文档操作，点击“显示文档”，展开相应文档操作按钮。

6、点击“创建”按钮，创建子文档。

7、点击“保存”按钮，弹出“另存为”对话框，即可生成以“设置了级别的标题”为文件名的子文档。

有时候在使用word文档时需要将文档分成两栏或者更多，那么该如何达到这一目的呢，今天我们就一起来看看吧!

1、打开我们需要进行编辑的文档，一般是需要把文档里面的内容分开

2、在打开的文档上方菜单栏里面寻找页面布局，并单击

3、单击之后，在页面布局的下方会出现一个子菜单，在这个子菜单里寻找分栏

4、找到之后点击，然后就会出现一个供我们选择的菜单，

5、在这里选择自己需要分成的栏数(以两栏为例)

6、选择好了之后鼠标左键单击即可完成目标啦