如何编写 Word VBA 语法来捕捉答案

【问题标题】：How to write Word VBA syntax to capture Home > Font > text effects and typography selection如何编写 Word VBA 语法来捕捉
【发布时间】：2019-04-03 04:33:11
【问题描述】：

我在说明文档表中使用 unicode“字体”（Segoe UI 符号）而不是剪贴画/图标。我不知道如何使用 VBA 使 unicode 图标“漂亮”。录制宏时，我导航到：主页 |字体 |文字效果和排版|填充 - 橄榄绿、重音 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

我希望将这个模板分享给只需要选择开发者| 的培训师。宏 |选择宏 |按 RUN 键，VBA 将插入一个大小和颜色正确的字体/图标，并将其从无聊的平面图像变为多维图像。

【问题讨论】：

如何在模板中提供格式化符号作为Building Block，然后使用宏插入Building Block？
您是否可以手动创建您在“伪代码”中提出的样式？另外，我没有找到您列出的命令-您使用的是哪个版本的 Word？和/或包括屏幕截图。
探索Selection.Font.TextShadow的可用属性

标签： vba ms-word

【解决方案1】：

当你说积木时 - 这让我的松鼠大脑针扎了起来。我意识到我正在尝试添加一个 Unicode 图标，然后使用 VBA 对其进行自定义，完全忽略了样式的所有奇妙的内置属性......所以：

(1) 使用“记录开启”，我在页面上插入了一个图标（插入 | 符号 | 符号），以便获取字符编号和语法。

(2) 使用“记录关闭”...我自定义了页面上的图标（主页 | 字体 | 文本效果和排版）并更新了部分图标以满足我的需求。

(3) 我在 Word 模板中添加了一个新样式并将其命名为：UnicodeIcon。

(4) 我选择了我的图标，然后使用样式中的下拉菜单，选择“更新 UnicodeIcon 以匹配我的选择”。最好的部分是，它以这种方式捕获了 Bevel。

(5) 我将录制的片段（第 1 步）剪切/粘贴到我的宏的其余部分，现在它无需包含任何“with”格式语句即可运行（因为它全部内置于样式中），例如：

'插入第 1 步的 unicode 图标 - 信息

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

我不是特别喜欢有很多自定义样式，但它很有效，你让我朝着正确的方向前进！谢谢！ ♥

【讨论】：