找回密码
 立即注册
搜索

VBA在PPT中批量替换的问题

1
回复
1088
查看
[复制链接]

3

主题

10

帖子

102

幻币

一流武者

Rank: 3Rank: 3

积分
250
QQ
2019-3-4 19:18:19 显示全部楼层 |阅读模式
我想使用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要求对象

请教,这个应该怎么改
PPT学习论坛
回复

使用道具 举报

5

主题

9

帖子

20

幻币

一流武者

Rank: 3Rank: 3

积分
265
QQ
2019-3-4 20:57:39 显示全部楼层
或者这样,怎么把下面这个改成可以连续替换的,比如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
PPT学习论坛
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册