请教PowerPoint的当前页面怎么表示

mohao

activepresentation.slides   一般表示第几页PPT，请问当前页面怎么表示？

lss001

以下对象均可表示当前页！
Set sSlide = ActiveWindow.Selection '当前选择页
s = sSlide.SlideRange.Name '当前选择页名
Set vSlide = ActiveWindow.View.Slide '当前页
v = vSlide.Name '当前页名

dongdonggege

lss001 发表于 2021-11-15 13:41
以下对象均可表示当前页！
Set sSlide = ActiveWindow.Selection '当前选择页
s = sSlide.SlideRange.Nam ...

借楼主帖子问个问题，新年快乐。
老师你好，新年快乐。
请教老师：
1、ppt幻灯片1的文本框有字符内容为：“北京冬奥会”，也可以是其他内容。现在已经选择了“奥”这个字符。
2、我想做一个程序，能得到反向选择，即用程序得到：“北京冬会”，并且选择它。

1. Sub test2()
   
2.     Set shp = ActiveWindow.Selection.ShapeRange(1)
   
3.     Set txt1 = shp.TextFrame.TextRange
   
4.     Set txt2 = ActiveWindow.Selection.TextRange
   
5.     Set txt3 = txt1.Text - txt2.Text
   
6. End Sub

复制代码

。
3、我知道txt3交或并的运算，不是准确的，不能运行。
4、请问如何修改？既能得到结果，又能选择剩下的字符。即反向选择。
麻烦老师，谢谢。

lss001

Sub 选择文本框指定文本()
    Set ppt = Application.ActivePresentation
    ppt.Slides.Range.Shapes(1).Select '激活文本框

    With ActiveWindow.Selection
        '第一次选择指定文本
        .ShapeRange.TextFrame _
        .TextRange.Characters(3, 1).Select

        a = .ShapeRange.TextEffect.Text '总文本
        s = 1 '总开始
        t = Len(a) '总长度
        b = .TextRange.Text '已选择
        m = .TextRange.Start '已开始
        n = .TextRange.Length '已长度
        x = Split(Replace(a, b, "$"), "$") '未选择
        
        '第二次选择指定文本
        .ShapeRange.TextFrame.TextRange. _
        Characters(s, m - 1).Select
        Stop '暂停查看
        
        '第三次选择指定文本
        .ShapeRange.TextFrame.TextRange _
        .Characters(n + m, t - m).Select

    End With
End Sub

dongdonggege

lss001 发表于 2022-2-9 21:07
Sub Selectionx()
With ActiveWindow.Selection
a = .ShapeRange.TextEffect.Text '总文本

辛苦老师
系统没能提醒，今天才看到文章。x能得到剩下的字符，但是没能选中。
这个字符的Characters(Start:=m, Length:=n),m、n数字怎么确认？

1. Sub Selectionx()
   
2.     With ActiveWindow.Selection
   
3.         Set txt1 = .ShapeRange.TextFrame.TextRange '总文本
   
4.         Set txt2 = .TextRange '已选
   
5.         m = .TextRange.Start
   
6.         n = .TextRange.Length
   
7.         x = Replace(txt1, txt2, "") '未选
   
8.         If m = 1 Then
   
9.             .ShapeRange.TextFrame.TextRange.Characters(Start:=.TextRange.Length + 1, Length:=.ShapeRange.TextFrame.TextRange.Length - .TextRange.Length).Select
   
10.         '选择可参考Characters(1, 2).Select '仅支持连续
    
11.         Else: n = .ShapeRange.TextFrame.TextRange.Length
    
12.             .ShapeRange.TextFrame.TextRange.Characters(Start:=1, Length:=.ShapeRange.TextFrame.TextRange.Length - .TextRange.Length).Select
    
13.         End If
    
14.     End With
    
15. End Sub

复制代码

麻烦老师看看，帮我修改，谢谢。

lss001

dongdonggege 发表于 2022-2-21 09:37
辛苦老师
系统没能提醒，今天才看到文章。x能得到剩下的字符，但是没能选中。
这个字符的Characters(St ...

见楼上修改代码！！！

dongdonggege

lss001 发表于 2022-2-21 18:33
见楼上修改代码！！！

选来选去，你还是选择了自己。
没有任何变化，我是在03,07中进行的。

dongdonggege

lss001 发表于 2022-2-21 18:33
见楼上修改代码！！！

5楼的代码，在先选择部分字符，特别是在选择最前最后的字符后，03/07能正常运行，也能得到正确的结果，非连续的字符除外。

lss001

dongdonggege 发表于 2022-2-21 19:04
5楼的代码，在先选择部分字符，特别是在选择最前最后的字符后，03/07能正常运行，也能得到正确的结果，非 ...

'并没安装03,07版，所以只能作为参考
Characters(Start:=m, Length:=n)
其中m表示从第几个字符开始
         n表示选择多少个字符
也可以简化为Characters(m, n)

dongdonggege

lss001 发表于 2022-2-21 20:35
'并没安装03,07版，所以只能作为参考
Characters(Start:=m, Length:=n)
其中m表示从第几个字符开始

看我的文件，看运行结果，03版的，相信其他版本也是这个结果。