vba - 查找 Wingdings 角色（Powerpoint 2013+）

Question

我正在寻找一种以编程方式在幻灯片上找到特殊 Wingdings 字符的方法。

例如，十进制代码为 254 的 Wingdings 字符。

然而，由于它似乎很容易在 Word 中完成（参见此处：https ://wordmvp.com/FAQs/MacrosVBA/FindReplaceSymbols.htm ），我无法在 Powerpoint 中找到一种方法。

Word 提供了一个获取符号的名称和字符代码的函数

Sub GetCharNoAndFont()

With Dialogs(wdDialogInsertSymbol)
    Debug.Print "Font: " & .Font
    Debug.Print "Char number " & .CharNum
End With

End Sub

Powerpoint中是否有任何等价物？

Answer 1

我可能仍然会误解您的问题（我不确定您的意思search for symbols），但您可以使用：

---

微软幻灯片软件：

• TextRange.InsertSymbol方法（PowerPoint）

• AscW函数(VBA)

• ChrW函数(VBA)

• 插入基于 ASCII 或 Unicode 拉丁文的符号和字符(Office 2007-2016)

---

电子表格：

• WorksheetFunction.Unicode Method识别 Unicode 字符的代码。

• WorksheetFunction.Unichar Method返回（显示）一个 Unicode 字符。

• WorksheetFunction.Find Method在工作表上查找特定符号。