1、插入一列表格
打开word文档，点击“插入”－“表格”－“选中一列三行表格”插入到word中。
2、打开拆分单元格
把光标放置到第一个单元格中，鼠标右键单击“拆分单元格”。
3、拆分单元格
弹出“拆分单元格”对话框，列数设置“3”，行数设置为“1”点击“确定”。
4、拆分为三列
这样就可以把第一行单元格拆分为三列。
5、批量拆分单元格
把光标放置到第三行单元格，按F4键重复上一步操作即可把该行也拆分为三列。
word这个软件在我们工作中会常常使用，如果文字内容比较多，我们还可以将文档从中间一分为二，让眼睛看的更舒服。那word文档怎么从中间一分为二？
word文档怎么从中间一分为二？
1、打开word文档，在“页面布局”中点击【分栏】。
2、选择将文档内容分为【两栏】即可。
本文以联想小新Pro 16为例适用于windows 11系统microsoft word 2021版本
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运行，看到“完成！”结束。
2、检查当前文档所在路径下是否生成若干名为“原始文档_n.doc”(n代表其对应原始文档中的第几页)的文档，检查它们的内容是否就对应于原始文档每个页面的内容。
如文档中有分节符分解后的文档会出现空白页，如要分解后不出现空白页，需要把文档中的分节符删除。消除分节符的方法：
注意事项
分节符若全部替换，要注意替换后文档可能会出现排版混乱，这则需要自己手动排版了。
打开要编辑的word文档，点击“布局”选项。在“布局”选项里找到“分栏”按钮。在出现的菜单中选择要进行分栏的效果，此次分两栏样式。以上设置完成word一页纸张就分成了左右两部分了，详细步骤：
1、打开要编辑的word文档，点击“布局”选项。
2、在“布局”选项里找到“分栏”按钮。
3、在出现的菜单中选择要进行分栏的效果，此次分两栏样式。
4、以上设置完成word一页纸张就分成了左右两部分了。
在word中将一个单元格切分成两个的方法如下：
设备：华为笔记本。
系统：win10。
软件：word应用程序。
版本：8.0.11。
1、通过桌面搜索或快捷方式打开word应用程序。
2、在界面左侧点击需要切分单元格的word文档。
3、右键点击需要切分单元格的表格单元格，在随后弹出的菜单中点击“拆分单元格”。
4、输入你想拆分单元格成几行几列，并点击确定。
5、随后即可看到单元格已经被拆分成两个或几个了。
相关介绍：
Microsoft Office Word是微软公司的一个文字处理器应用程序。
它最初是由Richard Brodie为了运行DOS的IBM计算机而在1983年编写的。随后的版本可运行于Apple Macintosh (1984年）、SCO UNIX和Microsoft Windows (1989年），并成为了Microsoft Office的一部分。
Word给用户提供了用于创建专业而优雅的文档工具，帮助用户节省时间，并得到优雅美观的结果。
一直以来，Microsoft Office Word 都是最流行的文字处理程序。
本文转载自互联网，如有侵权，联系删除
