为什么word分成左右两半
打开word点击word的右下角有个书本模样的标志点击后就会把word分成左右两半的模式了。
怎么把word文档的一页分成左右的两半
用word中的“分栏”实现两边分的格式。
这样的分栏中间是没有竖直线的。
如果要中间加线的话,你把左边第一行全涂黑,点击“表格工具栏”中选择“右框线”,这样你每打一个回车就会自动加上线,左半面内容都打完(空白的地方直接打回车,填满左半面),中间一条线就出现了。
word文档其中一页如何分成两半
选定要分栏的文字:格式-分栏(选好几个分栏),应用于:所选文字在要分栏开始的位置上:格式-分栏(选好几个分栏),应用于:之后。
然后在结束的位置上格式-分栏(这次选择1个分栏),应用于:之后。
要分栏的部分前后插入分隔符(这里选择连续即可),格式-分栏(选好几个分栏),应用于:本节
如何在WORD中使一张4A纸分成左右两半输入 是新版Word
可以通过分栏功能来实现。
1、单击页面布局----分栏按钮,在下拉选择中选择两栏即可;2、也可以选择更多分栏,弹出分栏对话框;4、在对话框中选择两栏,还可以进行其它的设置,如图所示。
我的Word文档莫名其妙就分成两半了
方法:使用“分栏”即可。
1、打开WORD文档,点击“页面布局”--分栏。
2、 根据自己的需要,将版本分为几栏。
3、可自定义分栏,设定是否有分割线、左右内容的大小等。
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
转载请注明出处51数据库 » word文档分成左右两半