[Word查找与替换]:中英文分离案例与总结

hpw

嘿嘿，还真是发错了，我本意是发在我的那个主题里的，结果点到这里来啦，不过老大这么善良的人，不会计较这个的，是吧？[em04]

两位都这么厉害，继续学习中。。。

ifhwfu

经典的帖子，收藏，慢慢学习！

守柔

原帖由 dianbotang 于 2009-4-15 04:49 发表
提供一种新的方法，欢迎批评指正，以便总结提高。
vba代码如下：
Private Sub SplitChineseAndEnglish()
    Dim StartTime As Single, EndTime As Single
    StartTime = Timer '计时开始
   
    Dim RE A ...

谢谢,也可以这样使用正则表达式:
Private Sub SplitChineseAndEnglish()
    Dim StartTime As Single, EndTime As Single
    Dim strText As String
    StartTime = Timer    '计时开始
    Dim RE As Object    ' 建立变量
    strText = ActiveDocument.Content.Text
    Set RE = CreateObject("vbScript.RegExp")    ' 建立正则表达式
    With RE
        .Global = True
        .IgnoreCase = False
        .Pattern = "([一-﨩]+)"    '查找汉字
        strText = .Replace(strText, Chr(13) & "$1" & Chr(13))
        .Pattern = "( *?\r){2,}"
        strText = .Replace(strText, Chr(13))
    End With
    ActiveDocument.Content.Text = strText
    EndTime = Timer    '计时结束
    MsgBox "共耗时 " & EndTime - StartTime & " 秒！", , "转换完毕"
End Sub

dianbotang

提供一种新的方法，欢迎批评指正，以便总结提高。
vba代码如下：
Private Sub SplitChineseAndEnglish()
    Dim StartTime As Single, EndTime As Single
    StartTime = Timer '计时开始
   
    Dim RE As Object ' 建立变量
    Set RE = CreateObject("vbScript.RegExp") ' 建立正则表达式
    RE.Global = True
    RE.multiline = True '多行模式
    RE.IgnoreCase = True
    Application.ScreenUpdating = False
    RE.Pattern = "([\u4e00-\u9fa5]{1,})" '查找汉字
    ActiveDocument.Content = RE.Replace(ActiveDocument.Content, vbCr + "$1" + vbCr) '汉字前后换行
    RE.Pattern = "^\s*\r" '查找空行
    ActiveDocument.Content = RE.Replace(ActiveDocument.Content, "") '删除空行
    Application.ScreenUpdating = True

    EndTime = Timer '计时结束
    MsgBox "共耗时 " & EndTime - StartTime & " 秒！"
    MsgBox "转换完毕！"
End Sub

[ 本帖最后由 dianbotang 于 2009-4-15 04:52 编辑 ]

tangqingfu

收藏备用，谢谢守版和dianbutang兄！

唯安方达

太厉害了！佩服佩服

唯安方达

太强了！服了

libaoshui

拜读经典大作，谢谢斑竹的汇总分析！

goldowl2011

Thanks a  lot.Mark .................

ltz888

收藏，以后也许有用