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

hpw · 发表于 2005-11-30 17:44

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

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

ifhwfu · 发表于 2008-2-15 14:53

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

守柔 · 发表于 2009-4-15 06:48

原帖由 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 · 发表于 2009-4-15 04:49

提供一种新的方法，欢迎批评指正，以便总结提高。
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 · 发表于 2009-4-15 10:04

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

唯安方达 · 发表于 2011-4-11 19:38

太厉害了！佩服佩服

唯安方达 · 发表于 2011-4-11 20:51

太强了！服了

libaoshui · 发表于 2012-1-11 11:43

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

goldowl2011 · 发表于 2012-1-11 23:53

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

ltz888 · 发表于 2012-1-24 14:22

收藏，以后也许有用

		自动登录	找回密码
密码			免费注册