Sub 选中()
Dim shp As Shape, rng As TextRange
With ActivePresentation
Set shp = .Slides(1).Shapes(1)
Set rng = shp.TextFrame.TextRange
With rng
For i = .Characters.Count To 1 Step -1
.Characters(i).Select
sr = .Characters(i)
MsgBox sr
Next
End With
End With
End Sub
这是系统自动选择，如果人为选择再判断不行吗?比如我选中的是“3”，能不能判断出来?
可以的，加一句判断就行。
ub 判断选中()
Dim shp As Shape, rng As TextRange
With ActivePresentation
Set shp = .Slides(1).Shapes(1)
Set rng = shp.TextFrame.TextRange
With rng
For i = .Characters.Count To 1 Step -1
IF Val(.Characters(i).text)=3 then
.Characters(i).Select
sr = .Characters(i)
MsgBox sr
end if
Next
End With
End With
End Sub
我的意思是我选中哪个，系统就自动识别出选择的值，假如我选中的不是“3”，而是“1”或“2”，这个代码就不起作用了；同样，如果文本框中不是“123”的值，而是别的值也是这样的要求，也就是文本框的值不是固定的。
用第一个就行了，你任意更换文本框里的值，第一次的代码都可以实现。
如果是要选中那个文本框本身，那么这个带就要修改。
而且修改之后的代码不能实现单个字符如你图中所示的选中状态。
因为你那个选中状态的效果，只有在幻灯片编辑视图下才会有的；
若要选中那个包含数字的图形，显示相应的字符，就必须在幻灯片放映状态下。
而在放映状态下显示的效果，并不能出现单个字符的选中效果的。
好的，谢谢！
给你做了一个，你看看。
Sub 点击试试()
With ActivePresentation.SlideShowWindow.View.Slide.Shapes(1)
If .HasTextFrame Then
n = n + 1
cnt = .TextFrame.TextRange.Characters.Count
m = cnt - n
MsgBox .TextFrame.TextRange.Characters(m)
End If
End With
End Sub
本来咨询问题的功能是用在PPT中给词语注音的（在论坛上下载了一个Excel VBA的汉语转拼音，已将其转到PPT中。），词语的能自动添加拼音，设想如果能单独选中词语中的某个字自动添加拼音就完美了，看来PPT的局限性很多，这样的功能不可能实现，只有单独给词语中要添加的拼音的字设置颜色来判断了。