Performing search/Replace in Powerpoint tables

[Lonely]

Hi,

I have been trying to make a search/replacement macro for PowerPoint. I have been using the replacement function defined by Microsoft for the purpose (given below).

However, I noticed that if the PowerPoint Presentation includes a Table, then replacements are not performed on these. I have been trying to access the cell contents for the purpose but havent really been successfull. For the timebeing I am ungrouping the table and converting them to shapes and then performing the replacements (see code below).

I have included some of the codes i have been using in my program below.

Please can someone help me in writing a code which can access the text in a cell in a table. I have been able to wite something as shown below, but without success.

************************
With ActivePresentation.Slides(2).Shapes(4).Table
    .Cell(2, 1).Shape.TextFrame.TextRange.Text = "Replace this"
End With
************************

Thanks,
Lonely

*******Replace (Code Start)***********
Sub ReplaceText()
    
    Dim oSld As Slide
    Dim oShp As Shape
    Dim oTxtRng As TextRange
    Dim oTmpRng As TextRange
     
    Set oSld = Application.ActivePresentation.Slides
    
    For Each oShp In oSld.Shapes
        Set oTxtRng = oShp.TextFrame.TextRange
        Set oTmpRng = oTxtRng.Replace(FindWhat:="like", _
            Replacewhat:="NOT LIKE", WholeWords:=True)
        Do While Not oTmpRng Is Nothing
            Set oTxtRng = oTxtRng.Characters(oTmpRng.Start + oTmpRng.Length, _
                oTxtRng.Length)
            Set oTmpRng = oTxtRng.Replace(FindWhat:="like", _
                Replacewhat:="NOT LIKE", WholeWords:=True)
        Loop
    Next oShp
 
End Sub
*******Replace (Code End)***********