ppt vba怎样获取文本框中选中的某个字符

jxnklzy

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 选中.rar (30.02 KB, 下载次数: 13)

2020-11-24 19:18 上传

点击文件名下载附件

一滴水

这是系统自动选择，如果人为选择再判断不行吗?比如我选中的是“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”的值，而是别的值也是这样的要求，也就是文本框的值不是固定的。

gjbhqs

用第一个就行了，你任意更换文本框里的值，第一次的代码都可以实现。

warmth

如果是要选中那个文本框本身，那么这个带就要修改。
而且修改之后的代码不能实现单个字符如你图中所示的选中状态。
因为你那个选中状态的效果，只有在幻灯片编辑视图下才会有的；
若要选中那个包含数字的图形，显示相应的字符，就必须在幻灯片放映状态下。
而在放映状态下显示的效果，并不能出现单个字符的选中效果的。

chenxuanyi

好的，谢谢！

fjyalfs

给你做了一个，你看看。
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 选中试试能不能显示.rar (35.57 KB, 下载次数: 11)

2020-11-24 19:18 上传

点击文件名下载附件

diaoaoke

本来咨询问题的功能是用在PPT中给词语注音的（在论坛上下载了一个Excel VBA的汉语转拼音，已将其转到PPT中。），词语的能自动添加拼音，设想如果能单独选中词语中的某个字自动添加拼音就完美了，看来PPT的局限性很多，这样的功能不可能实现，只有单独给词语中要添加的拼音的字设置颜色来判断了。