你好，请教ppt vba高手，我想在ppt中批量替换选定的值（比如吧“;”替换成“；”）

Question

我的代码是，但是每次只能替换一部分，需要点好几下才看上上去都换成想要的“；”
Private Sub CommandButton1_Click()
Dim s As Slide
Dim shp As Shape
Dim oTxtRng As TextRange
Dim oTmpRng As TextRange '查找foundtext
Dim i As Integer

' /* 遍历活动窗口中打开的演示文稿中的幻灯片. */
For Each s In ActivePresentation.Slides
' /* 遍历当前幻灯片中的形状对象. */
For Each shp In s.Shapes
' /* 当前幻灯片中的当前形状含有文本框架. */
If shp.HasTextFrame Then
' /* 当前幻灯片中的当前形状包含文本. */
If shp.TextFrame.HasText Then
' 引用文本框架中的文本.
Set oTxtRng = shp.TextFrame.TextRange

Set oTmpRng = oTxtRng.Replace(FindWhat:=";", _
Replacewhat:="；", WholeWords:=True)
Do While Not oTmpRng Is Nothing
Set oTxtRng = oTxtRng.Characters(oTmpRng.Start + oTmpRng.Length, oTxtRng.Length)
Set oTmpRng = oTxtRng.Replace(FindWhat:=";", Replacewhat:="；", WholeWords:=True)
Loop

End If
End If
Next
Next
End Sub
没有大牛看见啊

Answer 1

VBA Code:

Private Sub CommandButton1_Click()
    Dim s As Slide
    Dim shp As Shape
    Dim oTxtRng As TextRange
    Dim oTmpRng As TextRange
    
    ' /* éåŽ†æ´»åŠ¨çª—口中打开的演示文稿中的幻灯片. */
    For Each s In ActivePresentation.Slides
        ' /* éåŽ†å½“前幻灯片中的形状对象. */
        For Each shp In s.Shapes
            ' /* å½“前幻灯片中的当前形状含有文本框架. */
            If shp.HasTextFrame Then
                ' /* å½“前幻灯片中的当前形状包含文本. */
                If shp.TextFrame.HasText Then
                    ' å¼•ç”¨æ–‡æœ¬æ¡†æž¶ä¸­çš„文本.
                    Set oTxtRng = shp.TextFrame.TextRange
                    Set oTmpRng = oTxtRng.Replace(";", "；", WholeWords:=msoTrue)
                    
                    Do While Not oTmpRng Is Nothing
                        Set oTmpRng = oTxtRng.Replace(";", "；", WholeWords:=msoTrue)
                    Loop
                End If
            End If
        Next
    Next
End Sub

运行效果：

来自：求助得到的回答