Как написать синтаксис Word VBA для захвата Home> Шрифт> текстовые эффекты и выбор типографики

Question

Я использую Unicode «шрифты» (Segoe UI Symbol) вместо картинок / значков в таблице учебных документов. Я не могу понять, как сделать иконку Unicode "симпатичной" с помощью VBA. При записи моего макроса я перехожу к: Главная | Шрифт | текстовые эффекты и типографика | Залить - оливково-зеленый, Accent 3, острый скос> и НИЧЕГО не записывается. (

Я понял, как вставить символ Unicode:

Selection.InsertSymbol Font:="Segoe UI Symbol", CharacterNumber:=9745, 
Unicode:=True
Selection.Font.Size = 40

Что я не могу понять, так это как сделать это красиво. Я пытался сделать что-то вроде этого безрезультатно:

With ActiveDocument.Styles("UnicodeIcon").Font
    .Name = "Segoe UI Symbol"
    .Size = 40
    .Outline = True
    .Emboss = True
    .Shadow = True
    .Color = 15908096 'I need it this color
    .Engrave = True
End With

Я надеюсь поделиться этим шаблоном с тренерами, которым просто нужно выбрать Developer | Макросы | выберите макрос | нажмите RUN, и VBA вставит шрифт / значок нужного размера и цвета, и изменит его с скучного плоского изображения на многомерное.

Answer 1

Когда вы сказали, что строительный блок - это заставило мой белковый мозг заколотиться. Я понял, что пытаюсь добавить значок Unicode, а затем настроить его с помощью VBA, полностью игнорируя все фантастические встроенные свойства стиля ... Итак:

(1) При включенной записи я вставил значок на свою страницу (Вставить | Символы | Символ), чтобы получить номер символа и синтаксис.

(2) При отключенной записи ... я настроил значок на своей странице (Главная | Шрифт | Текстовые эффекты и типографика) и обновил его части в соответствии со своими потребностями.

(3) Я добавил НОВЫЙ СТИЛЬ в шаблон Word и назвал его: UnicodeIcon.

(4) Я выбрал свой значок, затем с помощью выпадающего меню в стилях выбрал «Обновить UnicodeIcon, чтобы он соответствовал моему выбору». Самое приятное то, что таким образом он захватил Bevel.

(5) Я взял записанный фрагмент (шаг 1) и вырезал / вставил остальную часть моего макроса, и теперь он работает без необходимости включать какие-либо операторы форматирования «с» (потому что все это встроено в стиль), например:

'вставить значок Unicode для ШАГА 1 - Информация

Selection.Style = ActiveDocument.Styles("UnicodeIcon")
Selection.InsertSymbol Font:="Webdings", CharacterNumber:=-3991, Unicode:=True

Мне не особенно нравится иметь много индивидуальных стилей, но это работает, и вы меня направили в правильном направлении! Спасибо! ♥