怎么用VBA判断段落结尾是否为某些字符？

canddd

我想判断，是否所有段落的最后一个字符都是以。 ？ ！ 这样的字符为结尾，如果不是，则标红段落。
这个用VBA怎么写？

疯晕天下

这好规则好像用正则表达示可以吧。
具体的我不太会有。
呵呵。
还是请高的手来解决了。

canddd

word的vba我是一点都不会……
求高手……

sqhsqhli

注意都是全角
Sub Macro1()
Dim s As Paragraph, p As Integer
For Each s In ActiveDocument.Paragraphs
p = Len(s.Range.Text)
If p <> 1 Then
If Left(Right(s.Range.Text, 2), 1) <> "？" And Left(Right(s.Range.Text, 2), 1) <> "！" Then s.Range.Font.Color = wdColorDarkRed
End If
Next
End Sub

sylun

4楼也可以用Like运算符进行比较，如：
If s.Range.Text Like "*[？！]?" = False Then
将所要求的单个字符一起放进中括号内即可。
当然，如果段落是在表格中时，代码要稍作修改

sqhsqhli

多谢sylun指点，原来总以为[]只用在查找替换

413191246se

Sub 最后字符判断()
' 如果段落最后一个字符是，。？（全角标点）中的一种，则段落变红色
    Dim i As Paragraph
    For Each i In ActiveDocument.Paragraphs
        If i.Range Like "*[，。？]" & vbCr Then i.Range.Font.Color = wdColorRed
    Next
End Sub

*** 在 SQH 老弟代码的基础上，在 sylun 大侠 的指导下，我完善了一下楼主的问题解决代码，如上所示！又学到了一些知识，比我个人的理解又进一步，谢谢两位！3Q！
*** 从下面两行代码可以看得出我和 SQH 老弟的差别（我的落后，他的先进——原来最后一个字符还可以用两个函数来取值！——实际上真正的最后的字符是段落标记，也叫回车符，这里知道要取段落文本，不包含回车符就行了）：

' Display Last Character
' my code
    MsgBox Selection.Range.Characters(Len(Selection.Range) - 1)
' sqh's code
    MsgBox Left(Right(Selection.Range.Text, 2), 1)

413191246se

同感！——看过网上有人说这个 range 可带可不带，关于取 TXT 值时，我刚才又试了一下，见鬼了！以下五行代码都是取段落最后一个字符的，效果是一样的！（但楼主还是应用6楼的宏即可，我也喜欢这个LIKE语句）
' 显示段落最后一个字符（以下五行代码效果相同）
    MsgBox Selection.Range.Characters(Len(Selection.Range) - 1)
    MsgBox Left(Right(Selection.Range.Text, 2), 1)
    MsgBox Left(Right(Selection.Range, 2), 1)
    MsgBox Left(Right(Selection.Text, 2), 1)
    MsgBox Left(Right(Selection, 2), 1)

canddd

谢谢各位帮助，如果是对于查找段落中是否包含有 字符串1 ，如果包含，则删除当前段落。
然后检查整个文档。
这个用vba怎么写。谢谢。
另外， 学习word的vba，有什么书或是电子书可以看的吗？

sqhsqhli

Sub test3()
Dim s As Paragraph
For Each s In ActiveDocument.Paragraphs
If s.Range Like "*字符串1*" Then s.Range.Delete'
Next
End Sub