Vba 如何在powerpoint中使用对话框（wdDialogInsertSymbol）确定字符代码（ascii或十六进制）

已选择的引用：
-visual basic for applications
-Microsoft powerpoint 14.0对象库
-ole自动化
-Microsoft office 14.0对象库

如何使用对话框（wdDialogInsertSymbol）确定角色代码，以及应选择哪些其他引用

谢谢。

子fdjlas（） 暗淡的osh形状 将oSl变暗为幻灯片

For Each oSl In ActivePresentation.Slides
    For Each osh In oSl.Shapes
        If osh.HasTextFrame Then
            With osh.TextFrame.TextRange
                For i = 1 To .Characters.Count
                    With .Characters(i).Font
                        MsgBox ("Char number: " & Dialogs(wdDialogInsertSymbol).CharNum)
                    End With
                Next
            End With
        End If
    Next
Next

MsgBox ("done")

端接头

输出：

编译错误：

找不到方法或数据成员

MsgBox（“字符号：”&对话框（wdDialogInsertSymbol）.CharNum）

---

*对话框会突出显示

那么是这样的吗

Dim oSl As Slide
Dim oSh As Shape
Dim i As Long

For Each oSl In ActivePresentation.Slides
    For Each oSh In oSl.Shapes
        If oSh.HasTextFrame Then
            With oSh.TextFrame.TextRange
                For i = 1 To .Characters.Count
                    'With .Characters(i).Font
                    '    MsgBox ("Char number: " & Dialogs(wdDialogInsertSymbol).CharNum)
                    'End With
                    MsgBox .Characters(i) & ": " & Asc(.Characters(i))
                Next
            End With
        End If
    Next
Next

---

wdDialogInsertSymbol中的wd几乎肯定表示一个单词常量。你到底想完成什么？显示与给定字符号或字符号本身对应的符号？我想显示相应的字符号本身，就像选择了字符“x”一样，那么提示应该是“字符号：120”。谢谢。嗨，史蒂夫，非常感谢。这正是我所需要的。嗨，Steve，我只是想问一个后续问题，除了Asc（.Characters）之外，powerpoint中的对话框（wdDialogInsertSymbol）的等价物是什么。谢谢。你到底想做什么？同样的，我只想像使用“符号”对话框一样显示字符代码。史蒂夫：你好，我还有一个问题，希望你不要介意。如何在powerpoint中使用For i=1到.characters.Count单独选择文本框中的字符。就像在word中一样（.MoveRight单位：=wdCharacter，计数：=1，扩展：=wdExtend）。再次感谢你。。。