终于找到方法，分享如下：
1、设置一个表格里的文字需要的样式（或者用里面内置的格式修改一下）
2、先想办法选中所有表格：
Sub 选择表格()
Dim tempTable As Table
Application.ScreenUpdating = False
'判断文档是否被保护
If ActiveDocument.ProtectiOnType= wdAllowOnlyFormFields Then
MsgBox "文档已保护，此时不能选中多个表格！"
Exit Sub
End If
ActiveDocument.DeleteAllEditableRanges wdEditorEveryone
For Each tempTable In ActiveDocument.Tables
tempTable.Range.Editors.Add wdEditorEveryone
Next
ActiveDocument.SelectAllEditableRanges wdEditorEveryone
ActiveDocument.DeleteAllEditableRanges wdEditorEveryone
Application.ScreenUpdating = True
End Sub
3、关闭代码窗口，在“开发工具”里选择“宏“，运行这个宏，可以看到所有表格被选中。
4、选择上面设置好的样式。
