我想在word中写一个宏，检查文档中各段段尾是否缺少标点符号。但是我只想检查段落，其他的如标题、图题、表题、图表中的文字、程序等等不想检查，这个好像有点难度，我写了一个宏，但不能满足我的要求，它还会检查我不想检查的内容，希望有人能帮我改改这个宏，拜托了。我的宏代码如下：
Sub test()
Dim i As Paragraph, r As Range
With ActiveDocument
For Each i In .Paragraphs
Set r = i.Range
'MsgBox .Range(r.End - 2, r.End - 1)
‘因为我的文档中多半以句号或冒号结尾，所以用这个简单的条件
If Len(r) > 30 And .Range(r.End - 2, r.End - 1)"。" And .Range(r.End - 2, r.End - 1)"：" Then
MsgBox .Range(r.End - 20, r.End - 1)
End If
Next
End With
End Sub
to：qinghao1，文档应该是没有问题，段内换行是自动换行的，没敲回车。
