如何用VBA一键把GPT输出的双引号改成中文格式

需求:用GPT生成的大篇幅文档,里面的双引号通常都是英文的,看起来比较别扭.如何一键替换,经过多次摸索,最快的方式就是用VBA一步到位修改.当然也可以用万能的AI大模型,不过文档大的话,就是比较费银子.一 开启[文件] - [选项] - [自定义功能区] - (勾选)[开发工具]出现了[开发工具]按钮二 贴入VBA代码,Run在GPT时代,代码才是最高效的交流方式,没有之一三、VBA代码以下为VBA代码源码Sub 替换为中文双引号()Dim rng As Range Dim count AsLongcount0SetrngActiveDocument.Range With rng.Find.ClearFormatting.Text.ForwardTrue.WrapwdFindStop.FormatFalse.MatchWildcardsFalse DoWhile.Executecountcount1If count Mod21Then rng.TextChrW(8220) 左引号 “ 注意用【ChrW】而不是【Chr】 Else rng.TextChrW(8221) 右引号 ” End If rng.Collapse wdCollapseEnd Loop End With MsgBox共替换了 count 个引号其中左引号 (count1)\2 个右引号 count \2 个End Sub