在word中使用vba查找指定字符的上一个字符

有同学反映，需要查找指定字符的前一个字符。根据此需求，大家可用录制宏操作一下查找某字符的操作，然后得到一些基本代码，在此基础上进行修改，得到具备相应功能的过程代码。最终代码如下：

Sub findtext()
Dim MyRange As Range, arr(), brr(), mytext$, tstr&, tend&
Text = InputBox("请输入要查找的文本：", "提示")
Set MyRange = ActiveDocument.Content
    With MyRange.Find
        .Forward = True
        Do While .Execute(findtext:=Text) = True
        tim = tim + 1
        tstr = MyRange.Start
        'tend = MyRange.End
        ReDim Preserve arr(1 To tim)
        arr(tim) = tstr
        'Debug.Print arr(tim)
        Loop        
        ReDim brr(1 To UBound(arr, 1), 1)

        For i = 1 To UBound(