word文档如何分成几部分,分成,文档,几部分

1.怎么将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()

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运行，看到“完成！”结束。

2、检查当前文档所在路径下是否生成若干名为“原始文档_n.doc”(n代表其对应原始文档中的第几页)的文档，检查它们的内容是否就对应于原始文档每个页面的内容。

如文档中有分节符分解后的文档会出现空白页，如要分解后不出现空白页，需要把文档中的分节符删除。消除分节符的方法：

注意事项

分节符若全部替换，要注意替换后文档可能会出现排版混乱，这则需要自己手动排版了。

2.怎样将一个word文档分成几个文档

页数少的话可通过删除另存的方法实现：

比如说30页的文档要分成3个10页的文档：首先打开文件，删除后20页后另存文件1；然后再次打开原始文档，分别删除前10页和后10页另存文件2；再次打开原始文档，删除前20页后另存文件3。这样，一个30页的文档就分成了3个10页的文档。这种方法适合页面比较少的情况，特别适合分开文档页面不均等的情况。

如果页数非常多，并且要求分开文档页数固定，可以用宏来实现，参考以下代码：

Sub ()

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()

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、通过桌面快捷方式或搜索来打开Word文档。

2、在随后打开的界面右侧点击“空白文档”，新建一个空白文档。

3、在界面上方点击“布局”按钮。

4、在随后弹出的界面中点击“栏”按钮，在随后打开的菜单中点击“两栏”。

5、随后输入自己想要从中间分开的文字即可看到word文档已经从中间分成了两部分。