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

weiyingde

shenjianrong163 发表于 2020-2-18 21:03
好的，谢谢！

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

shenjianrong163

这是系统自动选择，如果人为选择再判断不行吗?比如我选中的是“3”，能不能判断出来?

weiyingde

可以的，加一句判断就行。

weiyingde

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

shenjianrong163

我的意思是我选中哪个，系统就自动识别出选择的值，假如我选中的不是“3”，而是“1”或“2”，这个代码就不起作用了；同样，如果文本框中不是“123”的值，而是别的值也是这样的要求，也就是文本框的值不是固定的。

weiyingde

shenjianrong163 发表于 2020-2-22 10:35
我的意思是我选中哪个，系统就自动识别出选择的值，假如我选中的不是“3”，而是“1”或“2”，这个代码就 ...

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

weiyingde

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

shenjianrong163

weiyingde 发表于 2020-2-22 13:22
如果是要选中那个文本框本身，那么这个带就要修改。
而且修改之后的代码不能实现单个字符如你图中所示的选 ...

好的，谢谢！

weiyingde

shenjianrong163 发表于 2020-2-22 13:53
好的，谢谢！

给你做了一个，你看看。
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

shenjianrong163

weiyingde 发表于 2020-2-22 13:54
给你做了一个，你看看。
Sub 点击试试()
With ActivePresentation.SlideShowWindow.View.Slide.Shapes( ...

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