在 Excel 中使用 VBA 添加希伯来语自动更正条目

Question

我可以在 Excel 中使用 VBA 添加英文自动更正条目

Application.AutoCorrect.AddReplacement What:="helo", Replacement:="hello"

但是，如果替换词是希伯来语，则它不起作用（不添加任何内容）

aHebrewWord = Range("C1").Value
Application.AutoCorrect.AddReplacement What:="helo", Replacement:=aHebrewWord

我知道 VBA 确实适用于希伯来语，即使您实际上在 VBA 中看不到希伯来语（来源 declaring a unicode string in vba in excel） - 例如以下函数可以正常工作：

function getReverse(aHebrewWord)
  getReverse=StrReverse(aHebrewWord)
end function

如何使用 VBA 添加希伯来语自动更正条目？

Answer 1

不应该有任何东西阻止 VBA 使用一个字符串而不是另一个字符串；您的代码应该可以工作。

问题（如果存在）可能与您获取aHebrewWord 的方式有关。

Answer 2

VBA 编辑器要求 VBA 文件以 Windows-1252 编码，这是一个 8 位代码页，不支持希伯来语。

您可以将字符串构建为宽字符代码的串联：

'this replace 'hello' to 'שלום'
Application.AutoCorrect.AddReplacement What:="hello", Replacement:=ChrW(&H05E9) & ChrW(&H05DC) & ChrW(&H05D5) & ChrW(&H05DD)

或者你可以转换一个 Windows-1252 字符串，它是 unicode 字符串的二进制等价物：

Application.AutoCorrect.AddReplacement What:="hello", Replacement:=StrConv("éÜÕÝ", vbFromUnicode)

使用记事本转换字符串：复制粘贴 unicode 字符串，将文件保存为 unicode（不是 utf-8）并以 ASCII（实际上是 Windows-1252）打开，然后将其复制粘贴到没有前两个字符 (ÿþ) 的 VBA 编辑器，这是 BOM 标记。