Inserting symbols into text in PowerPoint 2007 using VBA
问题 I need to append programmatically (VBA/VSTO) several special symbols (e.g., smileys) into text in a TextRange in PowerPoint 2007. I can insert a symbol using: With ActiveWindow.Selection.TextRange .Text = "sometext" Call .Characters(.Characters.Count + 1).InsertSymbol("Arial", 65, MsoTriState.msoTrue) End With Unfortunately, when I try to insert several symbols one after the other with different fonts, only the last one shows correctly and the previous ones show like empty squares. How can I