分享

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

 hdzgx 2019-10-28

i see我明白了i quit我不干了let go放手me too我也是

my god天哪no way不行come on来吧hold on等一等

i agree我同意not bad还不错not yet还没see you再见

shut up闭嘴so long再见why not好呀allow me让我来

be quiet安静点cheer up振作起来good job做得好have fun玩得开心

how much多少钱i'm full我饱了i'm home我回来了i'm lost我迷路了

my treat我请客so do i我也一样this way这边请after you您先

bless you祝福你follow me跟我来forget it休想good luck祝好运

i decline我拒绝i promise我保证of course当然了slow down慢点

take care保重they hurt疼try again再试试watch out当心

what's up有什么事吗be careful注意bottoms up干杯don't move不许动

guess what猜猜看i doubt it我怀疑i think so我也这么想i'm single我是单身贵族

keep it up坚持下去let me see让我想想never mind不要紧no problem没问题

that's all就这样time is up时间快到了what's new有什么新鲜事吗count me on算上我

don't worry别担心feel better好点了吗i love you我爱你i'm his fan我是他的影迷

is it yours这是你的吗that's neat这很好are you sure你肯定吗do l have to非做不可吗

he is my age他和我同岁here you are给你no one knows没有人知道take it easy别紧张

what a pity太遗憾了any thing else还要别的吗to be careful一定要小心do me a favor帮个忙好吗

help yourself别客气i'm on a diet我在节食keep in touch保持联络time is money时间就是金钱

who's calling是哪一位you did right你做得对you set me up你出卖我can i help you我能帮你吗

enjoy yourself祝你玩得开心excuse mesir先生对不起give me a hand帮帮我how's it going怎么样

i have no idea我没有头绪i just made it我做到了i'll see to it我会留意的i'm in a hurry我在赶时间

it's her field这是她的本行it's up to you由你决定just wonderful简直太棒了what about you你呢

you owe me one你欠我一个人情you're welcome不客气any day will do哪一天都行夕are you kidding你在开玩笑吧

congratulations祝贺你t can't help it我情不自禁i don't mean it我不是故意的i'll fix you up我会帮你打点的

it sounds great听起来很不错it's a fine day今天是个好天so farso good目前还不错what time is it几点了

you can make it你能做到control yourself克制一下he came by train他乘火车来he is ill in bed他卧病在床

he lacks courage他缺乏勇气how's everything一切还好吧i have no choice我别无选择i like icecream我喜欢吃冰淇淋

i love this game我钟爱这项运动i'll try my best我尽力而为i'm on your side我全力支持你long time no see好久不见

no painno gain不劳无获wellit depends噢这得看情况we're all for it我们全都同意what a good deal真便宜

what should i do我该怎么办you asked for it你自讨苦吃you have my word我保证believe it or not信不信由你

don't count on me别指望我don't fall for it别上当don't let me down别让我失望easy come easy go来得容易去得快

i beg your pardon请你原谅i beg your pardon请您再说一遍i'll be back soon我马上回来i'll check it out我去查查看

it's a long story说来话长it's sunday today今天是星期天just wait and see等着瞧make up your mind做个决定吧

that's all i need我就要这些the view is great景色多么漂亮the wall has ears隔墙有耳there comes a bus汽车来了

what day is today今天星期几what do you think你怎么认为who told you that谁告诉你的who's kicking off现在是谁在开球

yesi suppose so是的我也这么认为you can't miss it你一定能找到的any messages for me有我的留言吗don't be so modest别谦虚了

don't give me that少来这套he is a smart boy他是个小机灵鬼he is just a child他只是个孩子i can't follow you我不懂你说的

i felt sort of ill我感觉有点不适i have a good idea我有一个好主意it is growing cool天气渐渐凉爽起来it seems all right看来这没问题

it's going too far太离谱了may i use your pen我可以用你的笔吗she had a bad cold她患了重感冒that's a good idea这个主意真不错

the answer is zero白忙了what does she like她喜欢什么as soon as possible越快越好he can hardly speak他几乎说不出话来

he always talks big他总是吹牛he won an election他在选举中获胜i am a football fan我是个足球迷if only i could fly要是

******************************************************

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


    本站是提供个人知识管理的网络存储空间,所有内容均由用户发布,不代表本站观点。请注意甄别内容中的联系方式、诱导购买等信息,谨防诈骗。如发现有害或侵权内容,请点击一键举报。
    转藏 分享 献花(0

    0条评论

    发表

    请遵守用户 评论公约

    类似文章 更多