晓明32485132
WORD目录及页码部分可由正文标题内容自动生成。在完成文章的文字录入后，按下述操作方式进行排版：
1、点击主菜单“格式”中的“样式与格式”，打开“样式与格式”窗口。
2、选中文中相应的标题行，点击“样式与格式”窗口中定义相应标题样式。并按各级标题规定的格式修改标题样式。
3、选中已定义好的标题。双击格式刷，可将选定的格式刷到其它同类标题上。
4、所有各级标题定义完毕后，编辑点移至准备插入目录的地方，再点击主菜单中“插入”→“引用”→“索引和目录”即可生成自动生成目录。
注意：为了使页码编号只从正文开始，建议整个文档分为两节，方法是：在正文开始处点击“插入”→“分隔符”→“分节符类型”→“下一节”。然后再点击“插入”→“页码”→“格式”→选“起始页码”。这样，不同节中可插入（或不插入）页码，且页码可连续（或不连续）编号。
不懂Q我
如何将word文档按页码拆分
1、在Word里面打开那个需要分割的文档（假设它的文件名叫做“原始文档.doc”）；
键入ALT+F11打开VBA编辑器，选择菜单“插入-模块”；
粘贴下面的代码：
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
键入F5运行，看到“完成！”结束。
2、检查当前文档所在路径下是否生成若干名为“原始文档_n.doc”（n代表其对应原始文档中的第几页）的文档，检查它们的内容是否就对应于原始文档每个页面的内容。
如文档中有分节符分解后的文档会出现空白页，如要分解后不出现空白页，需要把文档中的分节符删除。消除分节符的方法：
注意事项
分节符若全部替换，要注意替换后文档可能会出现排版混乱，这则需要自己手动排版了。
如何将word文档按页码拆分
1.为页眉和页脚添加基础页码
1)单击“插入”菜单中的“页码”命令。
2)在“位置”框中，指定是将页码打印于页面顶部的页眉中还是页面底部的页脚中。
3)在“对齐方式”框中指定页码相对页边距的左右，是左对齐、居中还是右对齐；或是相对于页面装订线的内侧或外侧对齐。
4)如果您不希望页码出现在首页，可清除“首页显示页码”对话框。
5)选择其他所需选项。
2.添加页码和其他信息，如日期和时间
1)在“视图”菜单上，单击“页眉和页脚”命令。
2)如果要将页码置于页面底部，请单击“页眉和页脚”工具栏上的“在页眉和页脚间切换”。
3)在“页眉和页脚”工具栏上，单击“插入页码”。
4)选择其他所需选项。
注意:页码会自动插入到页眉或页脚的左边距上。若要将页码移动到中间或右边，在“页眉和页脚”视图中，在页码前单击，然后按 Tab。
如何将word文档按页码拆分
请参考我回答其它朋友的方案：http://zhidao.baidu.com/question/118581756.html
不过那个是按单页拆分的。如果想按照指定页数拆分，请使用下面的代码，其它步骤和原来那个方案相同。
Option Explicit
Sub SplitEveryFivePagesAsDocuments()
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
如何在word中分开标页码
分如下三步就来完成：
第一步：分节（将文档分为2节）
光标定位在第2页的最后，插入 → 分隔符 → 分节符类型：下一页 → 按Delete键删除空白页（行）
第二步：断开节之间的页脚链接
将光标定位在第3页，视图 → 页眉和页脚 → 将光标转换到页脚区域；单击工具栏上的“链接到前一个”，然后关闭页眉和页脚工具栏
第三步：插入页码
将光标定位在第3页，插入 → 页码 → 格式 → 起始页码：1 → 确定
至此完成！！！
如何将word文档按页码拆分
蜕莺七慈抹羔踩跷胎鸦容钩8咆戚确均斑壤节晃民惶销肴象佣线
坐欢汛辱
如何将word文档按页码拆分
屯阱塞脖师荚抠
真榔圣跛赎覆鞋
搪麻桐骑守荤赦
晶勤裆颠逻尾撕
如何将word文档按页码拆分
另存为8份，删掉不想要的内容，把起始页码改了。
转载请注明出处51数据库 » word按页码拆分 如何将word文档按页码拆分
