精华内容
下载资源
问答
  • 如要将一个Word文档内的两个汉字中间的空格替换掉(之所以要特定要求两个汉字中间,是为了避免文本中的英文空格替换掉),可以使用查找替换的通配符。查找:([一-﨩])( )([一-﨩])替换:13写成VBA代码:Sub 替换()...

    如要将一个Word文档内的两个汉字中间的空格替换掉(之所以要特定要求两个汉字中间,是为了避免文本中的英文空格替换掉),可以使用查找、替换的通配符。

    4e1f99ca7292bebc33502c5509732295.png

    查找:([一-﨩])( )([一-﨩])

    替换:13

    写成VBA代码:

    Sub 替换()With Selection.Find .Text = "([一-﨩])( )([一-﨩])" .Replacement.Text = "13" .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchByte = False .MatchAllWordForms = False .MatchSoundsLike = False .MatchWildcards = True End With Selection.Find.Execute Replace:=wdReplaceAllEnd Sub

    如果使用正则的选择、查找、替换,则会有副作用,因为要先选择,会将其中的文本格式、图片都替换掉。

    Sub replacetxt222() Dim regex As Object Dim regMatch As Object Set regex = CreateObject("VBScript.RegExp") Dim str As String str = Selection.Text With regex .Pattern = "([一-﨩])( )([一-﨩])" .MultiLine = True .Global = True .IgnoreCase = True str = .Replace(str, "$1$3") Debug.Print (str) End With Selection.Text = strEnd Sub

    当然也可以将中文中的半角标点替换为全角:

    5203dfc0a11627a4367c68e0f97bb52c.png

    ([一-﨩])(,)([一-﨩])

    1,3

    通配符的一般规则为:

    8f17dd39cae27786bf21a40eff011a80.png

    如() ()就可以分组匹配两个单词,中间有空格。

    另外,d在正则中表示数字,而在查找、替换对话框中是没有这一写法的,可以用以下表达式表示:

    [0-9]{1,2}

    表示匹配一个或两个数字。

    需要注意的是,VBA的正则表达式与查找对话框中的通配符的写法与支持的功能是有所区别的。

    查找、替换对话框中不使用通配符时,可用^#来表示数字,其“特殊格式”的弹出菜单为:

    0735e3362b8c92b73c1614de62c50bbf.png

    如段落标记^p,通配符中用^13表示。

    查找、替换对话框中使用通配符时,其“特殊格式”的弹出菜单为:

    d8fdbd578c19a031f60ec90159b1718d.png

    一些常用的特殊格式的通配符写法可以从以上弹出菜单中得到帮助。

    -End-

    展开全文
  • 之前朋友圈分享了一系列查找替换的高级符号;...01查找替换的基础介绍图文本介绍:如果正在处理大量文本,需要搜索或者替换某个单词、短语。1、最直接简单的方法操作:【开始】-【替换】2、快捷键操作:按C...

    c90bf911e2f28803d97f3b5ca1bcefb0.png

    之前朋友圈分享了一系列查找替换的高级符号;收到的反馈是:这到底怎么用?这明显不对啊,没有成功,我还是换回了老方法,一个字一个字一个符号一个符号的替换。

    我的心情也是一万只草泥马在奔腾,传授你们这么实用的方法,居然用不来。那就详细讲解讲解查找跟替换吧。

    01查找替换的基础介绍

    图文本介绍:

    如果正在处理大量文本,需要搜索或者替换某个单词、短语。

    67a9611fe388e14bdb95851ac131d4f3.png

    1、最直接简单的方法

    操作:【开始】-【替换】

    51b0bbaf1b8ee1a3e924ce3bd5fde917.gif

    2、快捷键

    操作:按Ctrl+H直接打开查找与替换对话框。

    02查找替换功能小试身手

    将换行符替换成回车符

    我们在“查找内容”文本框中输入“^l”(代表换行符),然后在“替换为”右侧的文本框中输入“^p”(代表回车符),最后单击“全部替换”按钮。替换完成后会弹出一个对话框,我们单击“确定”按钮即可。

    f4da420e58d16f0e4e85a1e7773b4cd2.png

    03细节提醒

    1、按Ctrl+F是查找对话框,再点击旁边的替换也是可以的。

    2、别小看这一个小小对话框,里边有很多学问,下节咱们讲。

    3、查找替换的一些符号,可以翻看我朋友圈,查找替换最后一讲的时候分享给各位。

    ----------------------

    好了,学会了吗?如果你还遇到解决不了的问题,都可留言告诉我们。我们将在第一时间帮助您解决。

    征集:征集20例Word实际操作案例,比如说:这个简历怎么做出来的?Word怎么做出美观的日历?日常看到的,工作需要的,都可以发过来,一起复盘,一起进步。

    展开全文
  • 本代码实现了GBK到UTF-8的转换以及文本替换生成新文件。源文本为GBK编码形式:姚广孝,江苏长洲人,生于医学世家,十四岁时出家当了和尚,法名道衍。大家都知道华夏文化都是同源的,那时的读书人只要懂得周易就多少...
    127ba4e9b3903bdf5eb5acb63886e573.png

    本代码实现了GBK到UTF-8的转换以及文本替换生成新文件。

    源文本为GBK编码形式:

    姚广孝,江苏长洲人,生于医学世家,十四岁时出家当了和尚,法名道衍。大家都知道华夏文化都是同源的,那时的读书人只要懂得周易就多少对医术有一些认识,而反过来也是同样,姚广孝受到家中医学氛围的熏陶,对医术的源头-周易也非常精通,甚至一时间以看相占卜闻名。当时相人一术中最有名气是袁珙。这个道衍非常有个性,虽然是个和尚,但他的心思完全不在修佛之上,他学习法家兵家言,也习儒术,擅长诗文,与诗人高启、杨孟载等关系很亲近,亦被宋濂、苏伯衔等大人物所器重。所以他一度想弃去僧业重返红尘,可是每当他想起元朝僧人身被紫金,车骑如云,便有觉得前程有望。他对元僧的隆遇极为羡慕,大呼:“快哉,此何假诸生为?得如此足矣!“一次他游嵩山寺,与相术大师袁珙相遇,袁珙见他的相貌,不禁说:”你这和尚好生奇怪,目三角,行如病虎,性必嗜杀。即为出家人,却贪恋尘世繁华。不过你命中注定是辅国人才,望好自珍重。“姚广孝果真是个奇葩,做为一个和尚听到这一番言论不但没有生气反而非常高兴,真的就卷了铺盖还俗下山了。而后姚广孝真的被袁珙说中,成为了朱棣的谋士,一时风光无两,虽然是和尚中的异类,却找到了属于自己的人生import refile=open("姚广孝gbk.txt
    展开全文
  • ' 遍历当前页面所有的文本形状(通过查找) For Each s In ActivePage.FindShapes(, cdrTextShape) ' 替换 # 为当前日期 s.Text.Replace "#", CStr(Date), False, ReplaceAll:=True Next s End

    将文本中的一个文本字符串替换为另一个文本字符串。此代码片示例将页面上所有出现的“#”替换为当前日期。

    参考代码

    Sub test()
    	' 定义形状变量
    	Dim s As Shape
    	' 遍历当前页面所有的文本形状(通过查找)
    	For Each s In ActivePage.FindShapes(, cdrTextShape)
    		' 替换 # 为当前日期
    		s.Text.Replace "#", CStr(Date), False, ReplaceAll:=True
    	Next s
    End Sub

     

    展开全文
  • 叠字主要包括以下几种: 1型aabbcc 2型ababab 3型abcabcabc 4型abcdabcdabcdabcd(这个算思考题,...Sub 替换文本() '替换文本 Orit = Array("(<[!^13]*^13)(*)\1", "(<[!^13]*^13...
  • 运行本程序后,先输入需查找和与之对应的替换文本,然后点击“选择文件夹”,您可以找到指定的文件夹中的部分或者所有文件,注意,您需要全选文件(CTRL+A),或者使用 SHIFT/CTRL 配合鼠标键选取多个文件),...
  • 和Word打了这么多年交道,每个人都会在简历上写:精通Word。但在工作时,却经常被Word虐得焦头烂额。比如,当Word文档里面的符号混乱、不...那么,今天小编就来为大家介绍 2 个查找替换特殊符号的小技巧。01换行符替...
  • 其实这是微软公司给Word定做的一个强力搜索工具,无论是否使用VBA,大家都可以使用它完成常规搜索功能难以实现的查找替换任务,比如找出文档中所有身份证号码。事实上,我们在《全民一起VBA 提高篇》第...
  • 相关知识点 Regexp 对象,专门处理正则表达式的对象,其属于外部对象,需要声明并使用CreatezObject函数创建 ...Execute(s):在字符串s中查找符合条件的文本 Matches:查找到的对象集合,matche每...
  • excel操作word,替换文本

    2019-09-12 11:52:43
    2.利用word vba查找替换功能替换word文本中文字。 '打开模板文件 Set objApp = CreateObject("Word.Application") objApp.Visible = True Set objDoc = objApp.Documents.Open(strTemplates, , ...
  • vba regexp

    2016-07-01 08:25:11
    [2011-09-09:http://www.cnblogs.com/dxy1982/archive/2011/09/09/2159246.html] ... 数据验证经常出现的情况是,需要验证和处理大量的文本内容,有时候需要查找字符串,有时候要按条件替换,并且这些待处...
  • VBA正则表达

    千次阅读 2018-10-11 17:27:16
    VBA正则表达 相关链接: ...数据验证经常出现的情况是,需要验证和处理大量的文本内容,有时候需要查找字符串,有时候要按条件替换,并且这些待处理的问题还是有一定的规律可循的,但是无法通...
  • VBA常用技巧

    2014-12-21 16:39:28
    技巧6 替换单元格内字符串 12 技巧7 复制单元格区域 12 技巧8 仅复制数值到另一区域 12 8-1 使用选择性粘贴 12 8-2 直接赋值的方法 12 技巧9 单元格自动进入编辑状态 12 技巧10 禁用单元格拖放功能 12 技巧11 单元格...
  • Excel VBA随笔一

    2020-02-21 19:46:17
    即席查询(Ad Hoc):用户根据自己的需求,灵活...find函数:find(查找的内容,源文本,从第几个位置开始查找),返回的结果是它的位置 substitute函数:substitute(源文本,旧字符串,新字符串,[替换第几个出现的]...
  • EXCEL VBA 正则表达式 从实例开始 所有代码都测试过 ' ' '[2011-09-09 '[2010-08-08 ' 数据验证经常出现的情况是需要验证和处理大量的文本 内容 有时候需要查找字符串 有时候要按条件替换 并且这些待处理的问题还是...
  • EXCEL VBA 正则表达式

    万次阅读 2017-07-06 16:15:09
    [2011-09-09:http://www.cnblogs.com/dxy1982/archive/2011/09/09/2159246.html] ... 数据验证经常出现的情况是,需要验证和处理大量的文本内容,有时候需要查找字符串,有时候要按条件替换,并且这些待处理的问题
  • VBA编程技巧大全

    2013-08-05 09:03:19
    技巧6 替换单元格内字符串 26 技巧7 复制单元格区域 27 技巧8 仅复制数值到另一区域 30 8-1 使用选择性粘贴 30 8-2 直接赋值的方法 31 技巧9 单元格自动进入编辑状态 32 技巧10 禁用单元格拖放功能 32 技巧11 单元格...
  • EXCEL VBA常用技巧

    2010-02-09 22:28:27
    VBA常用技巧 目录 第1章 Range(单元格)对象 3 技巧1 单元格的引用方法 3 1-1 使用Range属性 3 1-2 使用Cells属性 4 1-3 使用快捷记号 4 1-4 使用Offset属性 5 1-5 使用Resize属性 6 1-6 使用Union方法 7 1-7 使用...
  • 8、VBA使用正则表达式拆分内容

    千次阅读 2018-12-10 15:05:01
    使用regexp对象那个已经设置好的表达式(pattern属性)在字符窜s中查找符合t条件的文本 03 替换 regexp.replace(s,r)并未修改原文本是,而是将替换后的节骨作为一个新的字符窜 cells(i,2)=...
  • 例二:全文查找替换。 Private Sub CommandButton1_Click() Dim sPath As String With Dialogs(wdDialogFileFind) '设置文本查找对话框 .SortBy = 2 '文件按名称排列 .SearchName = "*.doc" '只列出*.doc文件...
  • 实战篇一共学习了六个专题 ...在第二个专题里学习了文本查找定位和替换 包括 Find方法的使用 Findnext的使用 定位最后一行的技巧 各种情况 Usedrange或SpecialCells End属性 Find方法 倒序循...
  • 自动生成VBA窗体菜单

    2010-08-16 15:23:46
    自动生成VBA窗体菜单 '*************************** '* 菜单类 * '*************************** Option Explicit Private WithEvents MenuBar_MenuItem As MSForms.Label '菜单项 Private WithEvents WorkForm As...
  • 函数作用:用指定字符替换某字符.....................43 '14.函数作用:从右边开始查找指定字符在字符串中的位置...43 '15.函数作用:从右边开始查找指定字符在字符串中的位置...44 '16.函数作用:计算工龄...............
  • 129.在特定的区域内查找文本,返回值是包含查找文本的单元格 130.返回特定区域中最大值的地址 131.删除表格中使用范围内的所有空白单元格 132.返回数组中有多少个指定的字符串 133.返回当前工作表中引用了指定的单元...
  • EXCEL 正则表达式

    千次阅读 2010-04-18 23:58:00
    正则表达式是基于文本的编辑器和搜索工具的一个...像MS Excel,仅支持简单的通配符查找替换VBA中没有正则表达式对象,要使用正则表达式的话,我们需要在引用里添加Microsoft VBScript Regular Expression 5.5动态库
  • (向大佬们致敬)自动化办公插件 有时候我们需要查找替换、定位文本、数字字母分开,自行添加汉字的拼音、交换两区区域内容、滚动选区、匹配正则表达式……当然,自己多费点时间也能搞定。但这些,如果使...
  • 5.4 自定义VBA文本函数  第6章 处理Et期和时间 6.1 Excel如何处理日期和时间 6.1.1 了解日期序列号 6.1.2 输入日期 6.1.3 理解时间序列号 6.1.4 输入时间 6.1.5 日期和时间的格式化 6.1.6 有关日期的问题 ...
  • 5.4 自定义VBA文本函数  第6章 处理Et期和时间 6.1 Excel如何处理日期和时间 6.1.1 了解日期序列号 6.1.2 输入日期 6.1.3 理解时间序列号 6.1.4 输入时间 6.1.5 日期和时间的格式化 6.1.6 有关日期的问题 ...

空空如也

空空如也

1 2 3 4 5 6
收藏数 116
精华内容 46
关键字:

vba文本查找替换