[求助]如何用VBA进行下面的变换？

ssq1109

　　在WORD文档中有如下规律的文本，文本头为“[rw(]”，文本尾为“＃”（是全角＃），在文本头尾间必有一个或多个“▲”，如何用代码将“▲”的数目＋1所得的数写进文本头“[rw(]”的“(”和“]”之间：

例1：
[rw(]A1▲A2＃

例1中“▲”的数目＋1为1＋1＝2，即例1变为：
[rw(2]A1▲A2＃

例2：
[rw(]A1▲A2▲A3▲A4▲A5＃

例2中“▲”的数目＋1为4＋1＝5，即例1变为：
[rw(5]A1▲A2▲A3▲A4▲A5＃

守柔

请楼主测试：

Option Explicit

Sub Example()
    Dim myRange As Range, myString As String
    Dim FdText As String, intLenth1 As Integer, intLenth2 As Integer
    FdText = "▲"
NF:     If myRange Is Nothing Then
        Set myRange = ActiveDocument.Content
    Else
        myRange.SetRange myRange.End, ActiveDocument.Content.End - 1
    End If
    With myRange.Find
        .ClearFormatting
        .MatchWildcards = True
        .Text = "\[rw\(\]*＃"
        Do While .Execute
            myString = myRange.Text
            intLenth1 = Len(myString)
            myString = VBA.Replace(myString, FdText, "")
            intLenth2 = Len(myString)
            myRange.Characters(4).InsertAfter (intLenth1 - intLenth2 + 1)
            GoTo NF
        Loop
    End With
End Sub

ssq1109

Wonderful!

我设定100多项也是对的。

Thanks a lot!