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

守柔

类似这种情况，其实使用Instr效率会更高一些。

sqhsqhli

守柔 发表于 2012-2-25 08:11
类似这种情况，其实使用Instr效率会更高一些。

可是多个条件怎么用instr呢？不能这样If InStr(Right(s.Range, 2), [！。]) > 0 Then s.Range.Delete
用循环总不会比like效率还高吧

守柔

sqhsqhli 发表于 2012-2-25 23:16
可是多个条件怎么用instr呢？不能这样If InStr(Right(s.Range, 2), [！。]) > 0 Then s.Range.Delete
用 ...

我简单地写了一个例子。
Private Function HasPunctuation(strPara As String) As Boolean
''''判断段落结尾是否包含指定的标点符点
    Dim vntPunctuation As Variant
    Dim strWithIn As String
    Dim strEndText As String
    vntPunctuation = Array("。", "！", "…")
    strWithIn = Chr$(13) & Join(vntPunctuation, Chr$(13)) & Chr$(13)    ''''使用Chr$(13)作为关键字符以及限定制
    strPara = Replace$(strPara, Chr$(7), Empty)    ''''删除表格竖线字符
    If Len(strPara) > 0 Then
        strEndText = Right$(strPara, 2)
        HasPunctuation = (InStr(strWithIn, strEndText) > 0)
    End If
End Function

在Word VBA的实际应用中，还可以直接取得段落结束字符（段落标记前一个字符，当然，段落长度要大于1），然后直接使用Instr函数，如Set rngLastChar = curPara.Range.Characters.Last.Previous(1)，当然，用Right函数取得也可以，Mid函数取得也行。在特定情况下，Instr函数可以取代Select Case语句。

sqhsqhli

没想到可以把两个字符串反过来用，版主高明

大雨治水

学习一下WORD代码，谢谢！