html格式转换word清除格式,如何清除掉Word文档表格里的格式？

回答： 如果是批量删除，只能用宏代码来实现了，思路是将如下代码原样拷贝到你的新建的宏过程中，按F5运行即可。 有关文件批量处理的功能需要，可参见 实用工具《文件批量处理百宝箱》 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

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