怎么把word拆分二

1方法一：打开一个Word文档，选中要进行分开的部分。
2然后依次点击上方菜单栏中的“布局”—“分栏”—“两栏”，即可分成左右两半。
3方法二：按键盘上的“Ctrl+A”选中全部文字。
4然后依次点击“布局”—“分栏”—“两栏”，即可完成分割。

打开Word文档，将光标移动到需要插入分页符的地方。点击布局，选择分隔符。点击分页符，这样即可在光标位置插入分页符。
分页符是分页的一种符号，上一页结束以及下一页开始的位置。
MicrosoftWord可插入一个"自动"分页符(或硬分页符)，或者通过插入"手动"分页符(或软分页符)在指定位置强制分页。
分节符起着分隔其前面文本格式的作用。如果删除了某个分节符，它前面的文字会合并到后面的节中，并且采用后者的格式设置。
若想删除分节符同时保留分节符前面的格式，需要进入分节符后的页眉页脚编辑状态，并选择链接到前一条页眉，退出页眉页脚编辑状态，然后再删除分节符即可保留分节符前面的格式。

你是不是要在一个桌面上同时显示两个文档，不管左右或者上下显示都可？
假设你的提问是这种表述，我回答你。第一步先分别打开两个文档，点击右上角最大化按钮（双方框）一次，文档会发生大小变化，以左右为例，用手动调节先打开文档边框到合适的大小，挪动放置左边。然后再点击第二个文档右上角最大化按钮（双方框）一次，用手动调节后打开文档边框大小合适大小，挪动放置右边。上下也如此炮制即可搞定。
希望对提问者有所帮助。

word从中间分开的方法如下：

1、通过桌面快捷方式或搜索来打开Word文档。

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

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

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

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

方法如下：
1、打开需要进行编辑的word文档；
2、点击菜单栏->视图；
3、单击之后会在视图下方出现一个子菜单，点击"拆分"；
4、点击后，就会出现一个让你确定需要拆分的文档位置；
5、确定自己的拆分位置后，鼠标左键单击就可以将文档拆分；
6、完成。

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

比如说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("ScriptingFileSystemObject")
    Set oSrcDoc = ActiveDocument
    Set oRange = oSrcDocContent
    
    nTotalPages = ActiveDocumentContentInformation(wdNumberOfPagesInDocument)
    oRangeCollapse wdCollapseStart
    oRangeSelect
    For nIndex = 1 To nTotalPages Step nSteps
        Set oNewDoc = DocumentsAdd
        If nIndex + nSteps > nTotalPages Then
            nBound = nTotalPages
        Else
            nBound = nIndex + nSteps - 1
        End If
        For nSubIndex = nIndex To nBound
            oSrcDocActivate
            oSrcDocBookmarks("\page")RangeCopy
            oSrcDocWindows(1)Activate
            ApplicationBrowserTarget = wdBrowsePage
            ApplicationBrowserNext
    
            oNewDocActivate
            oNewDocWindows(1)SelectionPaste
        Next nSubIndex
        strSrcName = oSrcDocFullName
        strNewName = fsoBuildPath(fsoGetParentFolderName(strSrcName), _
                     fsoGetBaseName(strSrcName) & "_" & (nIndex \ nSteps + 1) & "" & fsoGetExtensionName(strSrcName))
        oNewDocSaveAs strNewName
        oNewDocClose False
    Next nIndex
    Set oNewDoc = Nothing
    Set oRange = Nothing
    Set oSrcDoc = Nothing
    Set fso = Nothing
    MsgBox "结束！"
End Sub

---