【问题标题】:Find Wingdings character (Powerpoint 2013+)查找 Wingdings 角色(Powerpoint 2013+)
【发布时间】:2018-08-11 15:00:42
【问题描述】:

我正在寻找一种以编程方式在幻灯片上查找特殊 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 中是否有任何等价物?

【问题讨论】:

  • 是否需要以编程方式完成?
  • 在这里,你可以拥有我的一些;我有很多:✘ ☒ ✓ ☑ ✘ ☒ ✓ ☑ ✘ ☒ ✓ ☑ ✘ ☒ ✓ ☑
  • 好吧。我希望能够识别任何不是的字符,例如宋体。我为形状、表格、组、项目符号等编写了一个函数。但是符号非常棘手,因为内部带有符号的文本字段不显示该符号的字体
  • 哦,你想识别每个符号的代码吗?
  • 是的。我需要代码在第二步中搜索符号

标签: vba ms-office powerpoint powerpoint-2013


【解决方案1】:

我可能仍然误解了您的问题(我不确定您所说的 search for symbols 是什么意思),但您可以使用:


简报:


Excel:

【讨论】:

  • PowerPoint 没有工作表功能。
  • 我已经尝试过了。据我所见,ChrW 失败,我认为为 ASC 返回的代码是 63?无论如何,是为了?不是蜱虫。您无法将字体识别为绕组。是的,您可以按字符遍历 TextRange 并使用这些功能,但我仍然无法获得正确识别复选标记的功能:-( 我非常沮丧。
  • @QHarr 所说的正是问题所在!
  • 这是对象模型的限制。您可以通过使用 Qharr 描述的方法检测符号字符的存在来破解您的方式,然后将其复制到剪贴板以解析信息并获取字体,或者通过使用 OpenXml 检测符号并获取字体信息采取更简洁的方法.
猜你喜欢
  • 1970-01-01
  • 2020-09-07
  • 1970-01-01
  • 2023-03-31
  • 2014-05-04
  • 1970-01-01
  • 1970-01-01
  • 1970-01-01
  • 1970-01-01
相关资源
最近更新 更多