（VBA）各位，有否将整文档中的“,”调换为“，”（即半角符号改成全角符号）的VBA代码，谢谢

答案:3 悬赏:50 手机版

解决时间 2022-01-01 16:09

提问者网友：那叫心脏的地方装的都是你
2021-12-31 21:12

最佳答案

五星知识达人网友：洎扰庸人
2021-12-31 21:52

Sub Macro2()

Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = ","
.Replacement.Text = "，"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = True
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
ShowVisualBasicEditor = True
End Sub

全部回答

1楼网友：蕴藏春秋
2021-12-31 23:54

最简单的方法，用查找替换。或者如果是word的话 Sub Macro1() ' Dim doc As String doc = "" '这里填上你的word文件名 Dim i As Long For i = 1 To Documents(doc).Characters.Count If Documents(doc).Characters(i) = "," Then Documents(doc).Characters(i) = "，" Next ' End Sub

2楼网友：酒安江南
2021-12-31 22:42

最简单的方法，用查找替换

我要举报

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息