一个文档有几千个表，每个表上面都有关于这个表的说明。
现在想把表的说明全部设置成标题，何使用宏将除表格以外的所有文字设置成标题？？？
情况如下图所示：
------解决方案--------------------------------------------------------
Dim rng As Range
For Each rng In ActiveDocument.Words
If 0 = rng.Tables.Count Then
rng.Style = "标题 1"
End If
Next
其中"标题 1"为你文档中有的样式名。