如何将一个word文档按页分割成多个word文档?
1、打开word文档,选中第一页内容,复制。
2、新建一空白文档,粘贴。
3、保存,即可。
其他页依此类推。
word按页数分割
页面设置成A3或者更大,然后利用众多文本框就可以在页面内排版了,不过比较麻烦,建议下栽专用报纸排版软件,事半功倍。
第一步:定制专用模板文件个人建议更改模板文件如下:1.连按两次“Ctrl+T”键,使文本段落的首行缩进两个字,符合中文的编辑习惯,在写作及排版中不用再为此麻烦。
2.指定文字的默认字体。
3.指定文字默认字号。
4.指定文件默认的段落行距。
5.添加页码。
6.指定默认的页面设置(如“B5”或“A4”等)。
第二步:定制专用样式刚才更改模板文件,使文件的默认格式符合我们的排版要求。
有时,我们在编辑文件时,往往还对文本有特殊要求。
举例说,要求标题比正文大一号字并加黑,要求每行小标题加黑等,这时就可以使出样式法宝了。
在这里,以建立“标题样式”为例,要求“标题样式” 是: 字号为二号,字体为黑体,并且居中。
首先选择“格式/样式”项,弹出样式面板,点击样式面板中的“新建”按钮。
根据“标题样式”的要求,再单击“格式/文字”项,出现“文字”面板,在“中文字体”中选择“黑体”,在“字号”中选择二号字,“确定”,关闭“文字”面板。
再次单击“格式”按钮,选择下拉菜单中“段落”项,在右下方的“对齐方式”中选择“居中”即可。
回到正常编辑状态下,点击工具栏上的样式下拉菜单,就会找到新建的“标题样式”。
第三步:定制专用工具栏点击工具栏上的“添加或删除按钮”按钮,去掉那些对钩,即可去掉一些你不常用的按钮选项。
把鼠标置于工具栏之上,单击右键,选择“自定义”项,可以自由地编辑工具栏了。
选中“命令”页签,在左边选中“样式”,右边会出现我们刚才制作的样式,拖入到工具栏的适当位置即可。
我们还可以添加各种按钮,甚至可以从“字体”项中把常用的字体等拉到工具栏上。
第四步:运用快捷的操作技巧熟练运用一些快捷键能够使你的排版及编辑速度快上加快。
主要的快捷方式有:用Ctrl+A快速选中全文; 双击鼠标左键能快速选中一段文字等。
把这些“选中”技巧同样式按钮或者格式刷配合起来使用,能使排版速度显著提高。
此外,如Ctrl+S是快速存盘,Ctrl+X是剪切,Ctrl+C是复制,Ctrl+V是粘贴,Ctrl+Home能快速回到文档开头,Ctrl+End能快速到达文档结尾等,大家可以看看Word的帮助文件。
怎样在word里剪切一页
1、在Word文件中,先找到需要剪切的页。
2、然后按住鼠标左键,拖动鼠标,直到将这个页面的内容全部选中。
3、然后在该页面选中状态下点鼠标右键,在打开的右键菜单中点“剪切”即可。
4、另外,只要页面被全部选中,包括其中的文字、表格、图片等都能被直接剪切。
WORD里,怎么剪切其中的某几页?
操作步骤:一、选取光标放在要剪切页的开始处,按住shift,单击要剪切页的结尾:二、剪切方法1:单击编辑菜单,在下拉菜单中选择剪切命令,如图所示;方法3:单击常用工具栏上的剪切按钮,如图所示;方法3:单击鼠标右键,弹出快捷菜单,选择剪切命令,如图所示;方法4:按Ctrl + X组合键剪切即可。
在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 < lDocumentEnd)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文档分成几个文档
页数少的话可通过删除另存的方法实现:比如说30页的文档要分成3个10页的文档:首先打开文件,删除后20页后另存文件1;然后再次打开原始文档,分别删除前10页和后10页另存文件2;再次打开原始文档,删除前20页后另存文件3。
这样,一个30页的文档就分成了3个10页的文档。
这种方法适合页面比较少的情况,特别适合分开文档页面不均等的情况。
如果页数非常多,并且要求分开文档页数固定,可以用宏来实现,参考以下代码: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 = 5 ' 修改这里控制每隔几页分割一次 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