VBA 替换整个WORD中的关键词? 255

请教一个VBA函数将整个word(含有多个分节符、分页符)中的所有的AA都替换成BB,包括页眉页脚中的。尝试过录制宏,但弄不懂的是,用替换操作能替换掉全部的,但把操作录制... 请教一个VBA函数将整个word(含有多个分节符、分页符)中的所有的AA都替换成BB,包括页眉页脚中的。
尝试过录制宏,但弄不懂的是,用替换操作能替换掉全部的,但把操作录制成宏,然后运行,就只能替换部分。然后自己摸索了套方法,但有点卡,请问能否优化,要改哪里?
展开
 我来答
胡汉三想回来

2021-11-26 · TA获得超过670个赞
知道小有建树答主
回答量:3541
采纳率:63%
帮助的人:239万
展开全部

这个,我写好了,但是不是VBA,而是VB,且编译成了标准的exe文件。

可以替换批量PowerPoint、Excel、Word文件中的批量字符。这些字符,可以在正文中,也可以在文本框、艺术字、页眉页脚、图形、表格、占位符中。

也就是,替换时,并不需要进入Word就可以替换Word文件中的字符。

医十八2

2021-11-26 · TA获得超过3661个赞
知道大有可为答主
回答量:3.1万
采纳率:26%
帮助的人:1136万
展开全部
Vba替换整个word中的关键词,找一下词典,找一下英文词典的的带换
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
匿名用户
2021-11-27
展开全部
本示例将在活动文档中查找到的"Start"替换为"End"。 查找操作忽略查找文字的格式,但大小写需要匹配("Start")。
VB复制

Set myRange = ActiveDocument.Range(Start:=0, End:=0)
With myRange.Find
.ClearFormatting
.Text = "Start"
With .Replacement
.ClearFormatting
.Text = "End"
End With
.Execute Replace:=wdReplaceAll, _
Format:=True, MatchCase:=True, _
MatchWholeWord:=True End With
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
收起 更多回答(1)
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式