求教ppt中的vba的find和replace问题

yajirio2010

请教各位高手，ppt中的查找和替换功能无法用宏录制。
2003中，其中的代码不知怎样写。
一下是一家英文网站上的代码，但是不灵。请高手指教。不胜感谢！
Sub replacement()
    Dim oSld As Slide
    Dim oShp As Shape
    Dim oTxtRng As TextRange
    Dim oTmpRng As TextRange
    Dim strWhatReplace As String, strReplaceText As String
     
     ' write  find text
    strWhatReplace = "原文"
     ' write change text
    strReplaceText = "被替换文"
     
     ' go during each slides
    For Each oSld In ActivePresentation.Slides
         ' go during each shapes and textRanges
        For Each oShp In oSld.Shapes
             ' replace in TextFrame
            Set oTxtRng = oShp.TextFrame.TextRange
            Set oTmpRng = oTxtRng.Replace( _
            FindWhat:=strWhatReplace, _
            Replacewhat:=strReplaceText, _
            WholeWords:=True)
            
            Do While Not oTmpRng Is Nothing
                 
                Set oTxtRng = oTxtRng.Characters _
                (oTmpRng.Start + oTmpRng.Length, oTxtRng.Length)
                Set oTmpRng = oTxtRng.Replace( _
                FindWhat:=strWhatReplace, _
                Replacewhat:=strReplaceText, _
                WholeWords:=True)
             Loop
        Next oShp
    Next oSld
End Sub

laose

代码很正常啊，可能是你使用方法不当。
说明：１）检查你的宏安全性级别，要调到中或低，确定。重新打开ＰＰＴ文档
２）代码中的 strWhatReplace = "原文"/strReplaceText = "被替换文"中的字符根据你的需要设置　　　　　　

cxffxc

经测试，必须是独立的词（与其他文本间必须要有间隔）才可以实现

yajirio2010

谢谢各位指点。单独中文、或单独英文词均可。可是遇到混合词，比如把“图a”换成“图b”，就不灵了。还有，遇到台湾繁体也不行了。而ppt2003自带的替换对话框就能够实现。不知道原因出在哪里。还请高手继续指点。谢谢。