- ·上一篇:word里的表格分开了如何,表格,分开了
- ·下一篇:word如何禁止更改样式,样式,更改,禁止
word如何分两个文件,两个,文件
1.如何将一个WORD文件分成多个文件
方法如下:
1、打开需要进行拆分的Word文档,点击【视图】菜单,这时在视图下方出现一个子菜单,点击“拆分”。
2、点击后,在Word文档中就会出现一条拆分县(让你确定需要拆分的文档位置);
待你确定拆分位置后,鼠标左键单击就可以将文档进行拆分了。
2.如何把一个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()
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
此方法适用于页码分多个文档使用。
3.word文档分成两例如何操作
这在WORD文档编辑中称为“分栏”,操作方法如下:
1、选定要进行分栏的文本(若干个段落);
2、打开“格式”菜单,选择“分栏”;
3、在弹出的对话框中,选择分栏的样式(需要分几栏),再设置栏宽(即栏的宽度)和栏间距(即栏与栏之间的间隔距离),确定即可完成分栏。
注:分栏时,如果选定的文本位于文档的末尾,应在最后一段文本之后,按几次回车,插入若干个段落标记(即选定的文本不要位于文档最末的段落),否则分栏的结果会先排列满左侧,再排列到右侧。
