Странная проблема в MS Word VBA.Вставить символ результатов в пустой квадрат

Question

У меня странная проблема в MS Word 2010 VBA.Я добавил команду ленты, вызывающую следующий код Selection.InsertSymbol Font: = "Wingdings 3", CharacterNumber: = - 4028, Unicode: = True После открытия приложения Word в течение пары минут вызов этой строки приводит к появлению пустых квадратовшрифт не найден.После этого все работает нормально и символы написаны правильно.Есть ли обходной путь?Я нашел похожий вопрос здесь [на SO] [1]

[1]: Вставка символов в текст в PowerPoint 2007 с использованием VBA , но я не уверен, что могу использовать предоставленное там решениев MS Word.Может быть, есть способ просто загрузить шрифт Windlings?

Answer 1

CharacterNumber - это тип Variant, поэтому он должен принимать строковые значения для большинства вещей. Просто заключите число в двойные кавычки. Этот работает для меня:

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