2011-01-07 59 views
0

我在MS Word 2010 VBA中遇到一个奇怪的问题。 我添加了一个功能区命令,调用以下代码 Selection.InsertSymbol字体:=“Wingdings 3”,CharacterNumber:= - 4028,Unicode:= True 打开Word应用程序几分钟后,对此行的呼叫 导致空如同字体未找到一样。之后,所有工作正常,符号写入正确。有什么解决方法吗? 我在这里找到类似的问题[上] [1]MS Word VBA中的奇怪问题。将符号结果插入空方块

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

+0

什么标志是-4028? (你真的把代码减去了吗?) – 2011-01-08 03:44:37

+0

它和&H44 – SparcU 2011-01-08 20:30:18

回答

1

CharacterNumber是一个Variant类型,所以它应该为大部分事物带上字符串值。只需用双引号括起来。这一个适用于我:

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