MS Word VBA中的奇怪问题。将符号结果插入空方块

Question

我在MS Word 2010 VBA中遇到了一个奇怪的问题。 我添加了一个调用以下代码的功能区命令     Selection.InsertSymbol字体：=“Wingdings 3”，CharacterNumber：= - 4028，Unicode：= True 打开Word应用程序几分钟后调用此行 导致空方块，就像找不到字体一样。之后，一切正常，符号写得正确。有没有解决方法？ 我在这里找到了类似的问题[在SO] [1]

[1]：Inserting symbols into text in PowerPoint 2007 using VBA但我不确定我是否可以使用MS Word中提供的解决方案。 也许有一种方法可以预加载Windlings字体？

Answer 1

CharacterNumber是Variant类型，因此它应该为大多数事情采用字符串值。只需将数字括在双引号中即可。这个对我有用：

Selection.InsertSymbol Font:="Wingdings 3", CharacterNumber:="-4028", Unicode:=True