求问VBA怎么只对文档里所有英文括号的某个字符进行替换

gracefully7 · 发表于 2020-9-20 09:44

比如下面这个例子：
$D( - 1$，0，$0)$，
$B(\frac{{\sqrt 3 }}{2}$，$ - \frac{1}{2}$，$0)$，
$\overrightarrow{{A_1}B} = (1$，2，$ - \sqrt 3 )$，

上面三行句子里面，我想请问怎么能用vba只对英文括号()里的内容里的内容进行操作，比如只删除这些英文括号里的$符号并且只将这些英文括号里的中文逗号替换为英文逗号，而不影响英文括号外文档里的其他内容？

罗达 · 发表于 2020-9-20 22:20

$D( - 1$，0，$0)$，可以这样查找$：("*"&"$"&"*")，替换$为A：("*"&"A"&"*")

413191246se · 发表于 2020-9-21 01:25

Sub a_test()
Dim r As Range
With ActiveDocument.Content.Find
.ClearFormatting
.Text = "$*$"
.Forward = True
.MatchWildcards = True
Do While .Execute
With .Parent
.Font.Color = wdColorRed
Set r = ActiveDocument.Range(Start:=.Start, End:=.End)
With r.Find
.Execute "$", , , 1, , , , , , "", 2
.Execute "，", , , 1, , , , , , ",", 2
End With
End With
Loop
End With
End Sub

复制代码

gracefully7 · 发表于 2020-9-21 19:30

413191246se 发表于 2020-9-21 01:25

感谢老师！可以运行，但是老师请问怎么让这段代码只对鼠标选定的段落有效，我只知道宏只对鼠标选定区域的方法是将.Wrap = wdFindAsk 改为 .Wrap = wdFindStop，请问老师你这段代码怎么改才能只对鼠标区域运行你这段代码，能帮忙的话万分感谢！

413191246se · 发表于 2020-9-22 01:15

Sub a_test_range()
Dim r As Range, s As Range, t As Range
With Selection
If .Type = 1 Then MsgBox "Not-Select!", 0 + 16: End
Set r = .Range
Set s = .Range
With r.Find
.ClearFormatting
.Text = "$*$"
.Forward = True
.MatchWildcards = True
Do While .Execute
With .Parent
.Font.Color = wdColorRed
Set t = ActiveDocument.Range(Start:=.Start, End:=.End)
With t.Find
.Execute "$", , , 1, , , , , , "", 2
.Execute "，", , , 1, , , , , , ",", 2
End With
End With
r.SetRange Start:=r.End, End:=s.End
Loop
End With
End With
End Sub

复制代码

gracefully7 · 发表于 2020-9-22 22:09

413191246se 发表于 2020-9-22 01:15

完美运行！感谢老师，老师能否推荐下这方面的VBA书籍，我想系统地学下，我有VB和C的基础，就想问下有哪些视频或者书籍推荐的吗，能给一点关键词就可以。再次非常感谢老师的慷慨帮助

413191246se · 发表于 2020-9-26 23:45

老师不敢当！VBA书籍，似乎很少，但有免费的微软官方VBA帮助文档（Word2003版VBAWD10.CHM）可以学习利用。如果你没有这个文档，我可以发给你，或在网络上搜索此文档也可。另外，推荐一本《VBA从入门到精通》（第二版）PDF，如果你没有我也可以发给你。想要可以留下邮箱。

weifeng5592 · 发表于 2020-9-30 11:00

413191246se 发表于 2020-9-26 23:45
老师不敢当！VBA书籍，似乎很少，但有免费的微软官方VBA帮助文档（Word2003版VBAWD10.CHM）可以学习利用。 ...

老师，麻烦分享下上述您讲的这两个，邮箱weifeng5596@163.com，谢谢！

413191246se · 发表于 2020-9-30 22:33

已发，请查收！

gracefully7 · 发表于 2020-10-7 19:58

413191246se 发表于 2020-9-26 23:45
老师不敢当！VBA书籍，似乎很少，但有免费的微软官方VBA帮助文档（Word2003版VBAWD10.CHM）可以学习利用。 ...

老师上次是很忙，另外可以麻烦分享下这两份文档吗，邮箱是gracefully7@163.com，谢谢老师的指点！

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

[求助] 求问VBA怎么只对文档里所有英文括号的某个字符进行替换