当前位置:首页经验技巧Word经验word图文

word如何分两个文件,两个,文件

2026-01-10 10:17:02

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、在弹出的对话框中,选择分栏的样式(需要分几栏),再设置栏宽(即栏的宽度)和栏间距(即栏与栏之间的间隔距离),确定即可完成分栏。

注:分栏时,如果选定的文本位于文档的末尾,应在最后一段文本之后,按几次回车,插入若干个段落标记(即选定的文本不要位于文档最末的段落),否则分栏的结果会先排列满左侧,再排列到右侧。


免责声明:本站信息来自网络收集及网友投稿,仅供参考,如果有错误请反馈给我们更正,对文中内容的真实性和完整性本站不提供任何保证,不承但任何责任,谢谢您的合作。
版权所有:五学知识网 Copyright © 2015-2026 www.z8000w.com. All Rights Reserved .