如何用vba查找替换word文档中的英文引号为空,而不包含中文引号?





当word 文档中即有英文引号也有中文引号,当用查找替换查找英文引号替换为空时,会把中文引号也一起替换。

这时候我们可以借助word查找替换中可以直接按照unicode编码查找字符的功能,将英文引号的unicode编码找出来,然后再在查找框中输入形如”^uXXXX”这样的查找内容,只查找英文的引号。

要找到某个字符的unicode编码,一种方法是在word中选中该字符,然后按下Alt+X组合快捷键,即可显示该字符的unicode编码。但是,在这里显示出的unicode编码并非为准确的unicode编码。

另一种方法是用vba代码获取字符的unicode编码,为了避免复制粘贴字符导致的字符歧义,可以直接用以下的vba代码逐字符输出字符的unicode编码。

然后可以在立即窗口中看到输出的字符以及字符对应的字符编码,这里英文字符的字符编码为0034,所以可以在查找窗口中输入“^u0034”进行查找替换,就只会替换英文字符,不会替换中文字符了。

当然,也可以通过以下的vba代码进行查找替换:

打赏
       

发表评论