在VBA字符串中添加符号时出现问题

时间:2018-12-05 08:15:33

标签: vba ms-word

我有一个要求,我需要在文档中检查可能包含°β之类符号​​的文本。

我使用下面的代码将文本添加到字典中。

dict.Add Chr(176) + "C", "degrees Celsius"
dict.Add Chr(223) + "-hCG", "beta-human chorionic gonadotropin"

此外,下面的代码将字典键放入一个正则表达式中,以便我可以使用它扫描文档。

Document_Search = "\b" & dict.keys()(ia) & "\b"
Dim regEx, Match, Matches
Set regEx = New regExp

With regEx
    .Global = True
    .IgnoreCase = False
    .Pattern = Document_Search
End With

该代码在我的系统上运行正常,该系统仅安装了一种语言-English (United States)

但是,当有人尝试在还安装了Chinese (Simplified)的Windows 10系统上运行代码时,就会出现错误。

运行时错误5018,应用程序定义或对象定义的错误

我不确定额外的语言是否是实际原因;这是我现在能想到的唯一区别。

我在系统中添加了中文(简体),但没有得到错误。

如何解决此错误,并在代码中使用符号?

编辑:我已经在系统上调试了有此问题的代码。

添加到字典的值是?C?-hCG;而在我的系统上,它们是°Cβ-hCG

我的正则表达式为Document_Search : "\b?C\b"

为什么Chr(176)无法正常工作?

0 个答案:

没有答案