谁帮我看看这段代码怎么改好

Sub 表格加命令()
'
' Macro2 Macro
' 宏在 2011-03-25 由 MC SYSTEM 录制
'
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "([^l^13])(表)([0-9]{1,3})(-)([0-9]{1,3})(^32)(*)([^l^13])"
        .Replacement.Text = _
            "\1〖HT5""H〗〖WTHZ〗〖STHZ〗表\3—\5〖JZ(〗\7〖JZ)〗〖WT〗〖ST〗〖HT〗〖JY，2〗〖HT5""SS〗"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchByte = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
End Sub


替换前的样子：
表2-1 显示器大小与最大分辨率关系表
替换后的样子：
〖HT5”H〗〖WTHZ〗〖STHZ〗表2—1〖JZ(〗显示器大小与最大分辨率关系表〖JZ)〗〖WT〗〖ST〗〖HT〗〖JY，2〗〖HT5”SS〗

但现在运行完就是不行，第一段没替换，第二段替换了，第三段又没换，谁帮我查查是什么原因，谢谢了！！！

自己顶一下！！