PPT封装VBA代码的未找到方法或数据成员问题

nzkboy

网上找的代码，可以批量替换指定字符的VBA程序

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

1.     'Loop through each slide in Presentation
   
2.     Dim sld As Slide
   
3.     For Each sld In ActivePresentation.Slides
   
4.         Dim shp As Shape
   
5.         For Each shp In sld.Shapes
   
6.             '''''for tables
   
7.             If shp.HasTable Then
   
8.                 ReplaceWordsInTable shp, FindList, ReplaceList
   
9. 
   
10.             ElseIf shp.HasTextFrame Then
    
11.                 ReplaceWordsInTextFrame shp, FindList, ReplaceList
    
12.             Else
    
13.                 '--- doing nothing for all other shapes (at this time)
    
14.             End If
    
15.         Next shp
    
16.     Next sld

复制代码

我想要将这段代码封装到VB的dll中，但是代码中的Hastable，HasTextFrame，Table等代码，总是提示“未找到方法或数据成员”，不知道这是为什么，求解

nzkboy

终于解决了问题
Dim sld As Slide修改为Dim sld As PowerPoint.Slide

Dim shp As Shape修改为 Dim shp As PowerPoint.Shape
这样封装的时候就不提示错误了
--------------------------
目前代码封装是没有问题了，但是执行的时候，到了循环这一句就不执行了
For Each sld In ActivePresentation.Slides
不知道为什么，就算改成
For Each sld In PowerPoint.ActivePresentation.Slides
也是一样不执行。奇怪了