PPT宏中怎样定位行数

Learner2022

我有很多这种格式的产品清单在PPT的文本框里，我想要把wholesale这一行和下面的价格删掉，我用find定位到了这两行，但是获取不了行数，，请问怎么获取find结果的行数而进行删除

Learner2022

1. Public Sub Test()
   
2. Dim oSlide As Slide, txtRng, De, shp, n As Integer,foundText as TextRange,foundText2 as TextRange
   
3. For Each oSlide In Application.ActivePresentation.Slides
   
4.     For Each shp In oSlide.Shapes
   
5.         If shp.HasTextFrame Then
   
6.             Set txtRng = shp.TextFrame.TextRange
   
7.             Set foundText = txtRng.Find(FindWhat:="Wholesale")
   
8.             Set foundText2 = txtRng.Find(FindWhat:="$")
   
9.             If Not foundText Is Nothing Then
   
10.                 foundText.line(1,2).delete
    
11.             End If
    
12.             If Not foundText2 Is Nothing Then
    
13.                 foundText2.line(1,2).delete
    
14.             End If
    
15.         End If
    
16.     Next
    
17. Next
    
18. End Sub

复制代码

Learner2022

我本来是如上代码写的，但是foundtext本身只能返回find结果本身行数而不是在整个文本框里面的

taller

lss001

Learner2022 发表于 2023-2-7 23:27
我本来是如上代码写的，但是foundtext本身只能返回find结果本身行数而不是在整个文本框里面的

Sub 删除ppt文本框指定文本行()
    Dim z As String * 1, x%, i%, j%
    For Each sld In ActivePresentation.Slides
    For Each shp In sld.Shapes
        If shp.HasTextFrame Then '判断文本框
        With shp.TextFrame.TextRange
            arr = Array("Wholesale", "$") '指定文本
            For i = 0 To UBound(arr)
                Set s = .Find(arr(i)) '查找
                If Not s Is Nothing Then
                x = s.Start '开始位置
                For j = x To .Length '结束位置
                     If Mid(.Text, j, 1) = z Then Exit For
                Next
                .Characters(x, j - x + 1).Delete '删除
                End If
            Next
        End With
        End If
    Next
    Next
End Sub

lss001

请参考楼上代码

Learner2022

lss001 发表于 2023-2-8 13:44
Sub 删除ppt文本框指定文本行()
    Dim s As String * 1, x%, i%, j%
    For Each sld In ActivePres ...

这里Dim的*1是啥意思

Learner2022

lss001 发表于 2023-2-8 13:52
请参考楼上代码

我直接运行的时候显示要求对象，set s =.Find(arr(i))这句报错，我就直接把s的string删了，成功运行

lss001

参考楼上修改代码