(PPT VBA) 选择 textrange.characters 失败

Question

我想在 textrange 中选择一些字符。当我使用“With activepresentation.slides(2).shapes(2)”时它可以工作。 代码：

dim Txtrng as textrange
dim Words_Instr as integer
dim aa as string
With ActivePresentation.Slides(2).Shapes(2)
    Set Txtrng = .TextFrame.textRange
    aa = "AAAA"
    Words_Instr = InStr(Txtrng, aa)
    If Words_Instr > 0 Then
        Txtrng.Characters(Words_Instr, Len(aa)).Select
    end if
end with

当我使用“pres.”时它不起作用。我想在每张幻灯片的每一个形状上做同样的事情。 代码：

dim pres as presentation
dim sli as slide
dim shp as shape
dim Txtrng as textRange
dim Words_Instr as integer
dim aa as string
set pres=Presentations.Open(filename:=f1)
aa = "AAAA"
For Each sLi In pRes.Slides
    for each sHp in sLi.shapes
        If sHp.HasTextFrame = msoTrue Then
            Set Txtrng = sHp.TextFrame.textRange
            Words_Instr = InStr(Txtrng, aa)
            If Words_Instr > 0 Then
                Txtrng.Characters(Words_Instr, Len(aa)).Select
            end if
        end if  
    next                        
next

“txtrng.characters(...).select”总是显示错误

如果有任何帮助，我将不胜感激。

Answer 1

如果你只引用当前的演示文稿而不是打开另一个ppt，那么下面的代码就可以了，我只更改set pre的一部分，复制并粘贴这个代码到你现有的ppt并运行它，它将选择形状上的text：

Sub test()

Dim pres As Presentation
Dim sli As Slide
Dim shp As Shape
Dim Txtrng As TextRange
Dim Words_Instr As Integer
Dim aa As String
Set pres = ActivePresentation
aa = "AAAA"
For Each sli In pres.Slides
    For Each shp In sli.Shapes
        If shp.HasTextFrame = msoTrue Then
            Set Txtrng = shp.TextFrame.TextRange
            Words_Instr = InStr(Txtrng, aa)
            If Words_Instr > 0 Then
                Txtrng.Characters(Words_Instr, Len(aa)).Select
            End If
        End If
    Next
Next


End Sub