正则，运行时错误“424”

duquancai

weiyingde 发表于 2017-3-15 09:34
若能在原来的基础上稍做变通，也是划算的，因为程序比手动操作效率高些。

Sub shishi()
    With ActiveDocument.Content
        .Font.Name = "楷体"
        With .Find
            .Replacement.Font.ColorIndex = 6
            .Replacement.Font.Name = "方正姚体"
            .Execute "\([!^13]@\)", , , 1, , , , , 1, , 2
        End With
    End With
End Sub

weiyingde

duquancai 发表于 2017-3-15 17:10
Sub shishi()
    With ActiveDocument.Content
        .Font.Name = "楷体"

很管用，谢谢你，解了燃眉之急！！

weiyingde

duquancai 发表于 2017-3-15 17:10
Sub shishi()
    With ActiveDocument.Content
        .Font.Name = "楷体"

若要求是这样，又该怎样？
1、汉字楷体
2、括号和拼音方正姚体
3、拼音红色。（括号的颜色不变）

duquancai

weiyingde 发表于 2017-3-15 19:21
若要求是这样，又该怎样？
1、汉字楷体
2、括号和拼音方正姚体

自己动手改改吧！！！

duquancai

weiyingde 发表于 2017-3-15 19:21
若要求是这样，又该怎样？
1、汉字楷体
2、括号和拼音方正姚体

用正则比较快，自己去想想：我还是用Word中的find给你写一个，呵呵呵

Sub shishi()
    Dim s As Range, p As Range
    Set s = ActiveDocument.Content: s.Font.Name = "楷体"
    With s.Find
        Do While .Execute("\([!^13]@\)", , , 1)
            s.Font.Name = "方正姚体": Set p = s.Duplicate
            p.Find.Replacement.Font.ColorIndex = 6
            p.Find.Execute "[!\(\)]{1,}", , , 1, , , , , 1, , 2
        Loop
    End With
End Sub

duquancai

weiyingde 发表于 2017-3-15 19:21
若要求是这样，又该怎样？
1、汉字楷体
2、括号和拼音方正姚体

满足你的要求，用正则，这个速度就快得多！！！

Sub W_正则()
    Dim reg As Object, mt
    ActiveDocument.Content.Font.Name = "楷体"
    Set reg = CreateObject("vbscript.regexp")
    reg.Global = True: reg.Pattern = "[\(（][^）\)]+[\)）]"
    For Each mt In reg.Execute(ActiveDocument.Content)
        m = mt.FirstIndex: n = mt.Length
        With ActiveDocument.Range(m, m + n)
            .Font.Name = "方正姚体"
            .Start = .Start + 1: .End = .End - 1
            .Font.ColorIndex = 6
        End With
    Next
End Sub

weiyingde

duquancai 发表于 2017-3-15 20:39
满足你的要求，用正则，这个速度就快得多！！！

Sub W_正则()

谢谢你，想想惭愧，目前的情况下，正则是一窍不通，word还未涉及，为了急用，只好当了伸手党了！！

weiyingde

duquancai 发表于 2017-3-15 20:39
满足你的要求，用正则，这个速度就快得多！！！

Sub W_正则()

感谢你的帮助，不好意思再麻烦你，如果有功夫，看看用正则能否实现附件中的要求。
对于你的多次帮助，用我们英山的方言说：
赶不起情念情，在论坛上只能说声空洞的谢谢了。

weiyingde

附件如下，请接收。谢谢。

duquancai

weiyingde 发表于 2017-3-16 10:17
附件如下，请接收。谢谢。

现在在高铁上，手机上网ing，怎么写？