Word一次性更改所有逗号

星辰缘 · 发表于 2021-12-2 17:13

本帖最后由星辰缘于 2021-12-2 17:14 编辑

请教一下大神，有没有VBA或者其他方法可以处理？

1. 英文半角的逗号，能不能一次性更改为中文全角的逗号？蓝色圈标识

2. 这种序号后面的逗号，能不能一次性删除？要求其他逗号保持不变。红色圈标识

daibao88 · 发表于 2021-12-2 22:11

都是查找替换

413191246se · 发表于 2021-12-3 01:12

Sub a_FindReplace()
With ActiveDocument.Content
.InsertParagraphBefore
With .Find
.Execute ",", , , 0, , , , , , "，", 2
.Execute "(^13)，", , , 1, , , , , , "\1", 2
End With
.Characters.First.Delete
End With
End Sub

复制代码

星辰缘 · 发表于 2021-12-3 09:09

413191246se 发表于 2021-12-3 01:12

膜拜大神，能解释一下 Execute 这两句是什么意思么？学习学习

413191246se · 发表于 2021-12-3 19:25

1、查找半角逗号，全部替换为：全角逗号，这是简写代码。
2、查找回车符和逗号，全部替换为：回车符（用半角括号把回车符括起来，形成第一组，用“\1”代表第一组括号中查找的内容）。
请见下面的两行代码（第一行是标准写法，第二行是简写）：
ActiveDocument.Content.Find.Execute Findtext:="a", MatchWildcards:=True, ReplaceWith:="b", Replace:=wdReplaceAll
ActiveDocument.Content.Find.Execute "[一-﨩]@", , , 1, , , , , , "", 2

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

[求助] Word一次性更改所有逗号