当前位置: 首页 > 常见问题 > Word文档

如何将word分成两个文档,如何把一个word分成2个

  • Word文档
  • 2023-08-04

如何将word分成两个文档?1、单击【常用】栏中的【新建空白文档】按钮,创建一个空文档。2、选择【视图】菜单中的【大纲】菜单项,并切换到大纲视图下。此时【大纲】栏自动激活,【大纲】栏及各按钮的具体含义。3、输入文档的大纲,那么,如何将word分成两个文档?一起来了解一下吧。

如何将word拆分成多个word

1. 如何快速把一个Word文档拆分数据分成两个文档

以WPS 2019版本为例:

如需把一个Word文档拆分,可使用WPS2019中已自带的「文档拆分」功能:

操作步骤:

1)打开其中一份「文字(Word」文档;

2)点击「特色应用-拆分合并-拆分」;

3)点击添加需合并文件,橘态设置合并文件需合并的页数范围即可将多个文档合并为一份。

2. 怎么把word文档一个分成两个文档 例如有三十页 分成各十五页的两个

可以这样,删除后面的15页后另存为前15页为一个文档,然后再打开原始文档,删除前15页再另存后15页为另一个文档。

也可以分别复制清蚂前后15页到新的文件里;

你这个要求相对简单,如果页数非常多,可用宏来解决,参考以下代码:

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 = 15 ' 修改这里控制每隔几页分割一次

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

3. 怎样把一个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运行,看到“完成!”结束。

同一个word分解两个文件

word里面把冲正一页分成两页的方法:

操作演示版本word2019

电脑联尺闭想笔记本

操作步骤:

1、首先点击【页面布局】,散困悔再点击【纸张方向】,再点击【横向】如下图所示:

2、接着再在【页面布局】下面,再点击【分栏】如下图所示:

3、最后再点击【两栏】如下图所示:

word怎么把一个文档分成两个

1、首先,打开word2010程序和激,然后唤配袜打开要拆分成几个小文档的word文档。

2、单击Word程序主屏幕顶部的“大纲”,然后单击将其打开。

3、选择要在文档中按顺序拆分的文件标题,并将大纲级别设置为级别1。

4、然后,选择要拆分的标题前面的"",单击"显示文档",然后选择"创建"。

5、然后,上面提到的其他子文档同样操作。

6、单击“执行文件”,选择“卖指保存命令”保存子文档。

7、可以看到文档被分成几个小文档,问题就解决了。

怎么把word文档换成两个文档

在Word中,每一个文档,默认为一节,在一节中,页面格式必须统一的。可以春晌谨通过插入分节符,把文档分成两节,每一节,可以单独设置页眉。

操作步骤:

1、扒基在每一章的尾部,单击插入菜单,在下拉菜单中选择分隔符命令,如图所示;

2、弹出分隔符对话框,选择一种分节符类型即可,如图所示。

3、单击视图菜单,选择页眉和页脚命令,如图所示;

4、进行页眉编辑状态,单击页眉和页脚栏上的链接到前一个按钮,断开与前一节的联系,如图所示;

5、这时就谨乎可以页眉,而上一节的页眉不再变化,效果如图所示。

word文档分割成独立文件

方法橘族念如下:

1、打开需要进行编辑的word文档;

2、点击菜单栏->视图;

3、单击之后会在视图下方出现一个子菜单,点击"拆分";

4、点击后,就会出现一个让你确定需要拆分的文穗知档位置;

5、确定自己的拆分位置后,鼠圆困标左键单击就可以将文档拆分;

6、完成。

以上就是如何将word分成两个文档的全部内容,1、在每一章的尾部,单击插入菜单,在下拉菜单中选择分隔符命令,如图所示;2、弹出分隔符对话框,选择一种分节符类型即可,如图所示。3、单击视图菜单,选择页眉和页脚命令,如图所示;4、进行页眉编辑状态,内容来源于互联网,信息真伪需自行辨别。如有侵权请联系删除。

猜你喜欢