如何把Word表格里的内容一下子清空，而表格保留

工具/原材料

word2018版、抄win7电脑。

1、打开电脑找到并双击打开word2018文档软件；

2、点击打开word文档软件以袭后，此时为了后期的示范，事先编辑好表格百和文本内容；

3、编辑好表格和文本内容以后，此时在表度格的左上方找到并点击有十字形符号的图标，对整个表格进行选中；

4、选问中好整个表格内容以后，在按”Delete“键即可完成对表答格内容的批量删除。

在Word文件中要删除表格度中的内容而保留表格有以下方法：

1. CTRL+A(全选)，按一下Delete键删除回；答

2. 点击表格左上角的双十字箭头，选中整个表格，按一下delete键就删除；

3. 选中整张表,在菜单栏中点击"编辑"-->"清除"-->"内容"即可删除；

如果是批量删除，只能用宏代码来实现了，思路是将如下代码原样拷贝到你的新建的宏过程中，按F5运行即可。 有关文件批量处理的功能需要，可参见 实用工具《文件批量处理百e69da5e887aae799bee5baa6365宝箱》 Dim TablesC As Long '定义文档中表格的数量
Dim DelS As Long, DelIn As String
TablesC = ActiveDocument.Tables.Count
DelIn = InputBox("请输入需要删除的表格的行号，用半角都好分隔", "消息", "2,4")
DelIn = Replace(DelIn, " ", "")
Do Until R = Len(DelIn)
DelIn = Replace(DelIn, ",,", ",")
R = Len(DelIn)
Loop
For i = 1 To Len(DelIn)
If InStr("01234567890,", Mid(DelIn, i, 1)) = 0 Then
MsgBox "待删除行号输出不符合规范，请重新输入，样式如：2,4,6", vbCritical + vbOKOnly, "消息"
Exit Sub
End If
Next
If Left(DelIn, 1) = "," Then DelIn = Mid(DelIn, 2)
If Right(DelIn, 1) = "," Then DelIn = Left(DelIn, Len(DelIn) - 1)
If DelIn = "" Then Exit Sub
DelS = Len(DelIn) - Len(Replace(DelIn, ",", "")) + 1
DelIn = DelIn & ","
For i = 1 To TablesC
j = ActiveDocument.Tables(i).Rows.Count
k = j
Do Until DelS = 0 Or k = 0 '删除表格内容的关键代码部分
If InStr(DelIn, k & ",") Then
ActiveDocument.Tables(i).Rows(k).Delete
DelS = DelS - 1
End If
k = k - 1
Loop
Next
MsgBox "处理完毕！", vbInformation + vbOKOnly, "消息"
Shell "explorer.exe
, vbMaximizedFocus

本代码仅是删除指定的行，如果要删除特别的，需要根据要求修改删除表格内容的关键代码部分即可。本代码可以作为模板使用。

一、双击打开需要操作的WORD表格，如下抄图。

二、选择表格的右上方百一个十字标识，将整个表格选中。度

三、按住键盘上的delete键，做一个清除处理。

四、回到WORD页面，知可以看到表格中的所有数值已经被清除。操作道完成。