将特殊符号从一个 PowerPoint 演示文稿复制到另一个 PowerPoint 演示文稿

Question

我需要将文本从一个 PowerPoint 演示文稿复制到另一个演示文稿。但是，我在复制特殊符号（例如笑脸）时遇到问题，这些符号在目标演示文稿中显示为空框。查看原始演示文稿中的 Open XML 文件，我可以看到包含笑脸的 Run 有一个“SymbolFont”属性：

但是，在 VBA 中，Shape.TextFrame2.TextRange2.Font = Run 的字体 - 显示 Arial。

如何使用 VBA 或 C#（而非 XML）确定文本 Run 的 SymbolFont？ 然后我可以在目标演示文稿中指定该 SymbolFont。

也许还有其他不涉及 XML 的复制文本的方法？

请注意，这个问题不仅发生在表情符号上，还发生在表情符号上。其他特殊字符可能会显示不同的SymbolFonts，例如：

<a:symTypeface = "Symbol", PitchFamily = 18, CharacterSet = 2>

代码示例：

getRuns(TextRange2 paragraph)
{
    foreach(TextRange2 run in paragraph.get_Runs(-1,-1))
    _myRuns.Add(new MyRun {_text=run.Text, _font=run.Font} );
}

copyRunsToParagraph(TextRange2 paragraph)
{
    foreach(MyRun run in _myRuns)
        paragraph=paragraph.InsertAfter(run._text);
}

注意：Run.Font 似乎仅返回拉丁字体，而不返回Symbol 字体，例如Arial 而不是Wingdings。正如我所写，不同的符号可能有不同的 SymbolFonts，因此始终使用 Wingdings 是行不通的。

Answer 1

这无法在 VBA 中完成。