VBA在PPT中批量替换的问题

十二邪神

我想使用VBA在PPT中批量替换文字，比如A换成1，B换成2，C换成3。。。。。。一直到很多，大概就是CTRL+H的意思
然后在网上搜索了一下


Sub 宏1()
    Dim i, ctrl
    '下一行是查找和替换的内容，依次成对填写
    ctrl = Array("A", "1", "B", "2", "C", "3")
    For i = LBound(ctrl) To UBound(ctrl) - 1 Step 2
        Cells.Replace What:=ctrl(i), Replacement:=ctrl(i + 1), LookAt:=xlPart, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
    Next i
End Sub



并不能用，运行错误，424要求对象

请教，这个应该怎么改

十二邪神

或者这样，怎么把下面这个改成可以连续替换的，比如A换1,B换2,C换3。。。。。。等等等等

Sub yy()
Dim a As Slide
Dim s As Shape

For Each a In ActivePresentation.Slides
    For Each s In a.Shapes
      If s.HasTextFrame Then
        With s.TextFrame
            If .TextRange.Text = "源数据" Then
                If .HasText Then .TextRange.Text = "十二"
            End If
        End With
      End If
    Next
Next

End Sub

jaffedream

https://cloud.tencent.com/developer/ask/195180

nzkboy

jaffedream 发表于 2020-4-24 12:36
https://cloud.tencent.com/developer/ask/195180

这个连接对应的堪称完美

nzkboy

这个连接尝试了，在PPT宏运行正常，但是封装到vb6中，无法封装成dll，封装过程提示HasTable“未找到方法或数据成员”
各个网站搜索了，找不到HasTable对应的解决方案。

尚左

3楼提供的链接太给力啦，正好遇到替换表格中文字的需求，搬运了下代码，仅加了一个set就可以正常运行：

1. '仅针对表格内容替换
   
2. If shp.HasTable Then
   
3. 
   
4.         'give name to table
   
5.         Set tbl = shp.Table
   
6. 
   
7.         'loops on table rows and columns：遍历行列
   
8.         For i_tb = 1 To shp.Table.Rows.Count
   
9.             For j_tb = 1 To shp.Table.Columns.Count
   
10. 
    
11.                 'Store cell text into a variable
    
12.                 '注意此处要用set，否则变量为文本，无法正常进行后文的替换修改
    
13.                 '前文尝试对ShpTxt、TmpTxt设置为TextRange对象，但不set仍会报错
    
14.                 Set ShpTxt = tbl.Cell(i_tb, j_tb).Shape.TextFrame.TextRange
    
15. 
    
16. 
    
17.                   'Ensure There is Text To Search Through
    
18.                   If ShpTxt <> "" Then
    
19.                     
    
20.                      'Store text into a variable
    
21.                     'Set ShpTxt = shp.TextFrame.TextRange
    
22. 
    
23.                      'Find First Instance of "Find" word (if exists)
    
24.                      Set TmpTxt = ShpTxt.Replace( _
    
25.                       FindWhat:=str1, _
    
26.                       Replacewhat:=mystr, _
    
27.                       WholeWords:=False)
    
28. 
    
29.                      'Find Any Additional instances of "Find" word (if exists)
    
30.                       Do While Not TmpTxt Is Nothing
    
31.                         Set ShpTxt = ShpTxt.Characters(TmpTxt.Start + TmpTxt.Length, ShpTxt.Length)
    
32.                         Set TmpTxt = ShpTxt.Replace( _
    
33.                           FindWhat:=str1, _
    
34.                           Replacewhat:=mystr, _
    
35.                           WholeWords:=False)
    
36.                       Loop
    
37.                      
    
38.                   End If
    
39. 
    
40. 
    
41.              Next j_tb
    
42.         Next i_tb
    
43. End If
    

复制代码