Hi Steve: Thanks for replying.
The tables are getting modified as the result of what I'm doing
programmatically, and they are all Word tables embedded in PPT.
Again, thanks for your imput. Rgds, JS

Here's the code I run on the Presentation:
============================
Sub EmbeddedWord_Replace_All_Ask()
Dim oSlide As Slide: Dim oShape As Shape: Dim oDoc As Word.Document
Dim SldNum, Indice, IndiceMax As Long: Dim celtxt, timeS, TimeF, tStart,
tEnd As String
Dim wdCoc, wdApp As Object: Dim FindText, ReplaceText As String
FindText = InputBox("Enter text to be found (to be replaced)")
ReplaceText = InputBox("Enter replacement text")
On Error Resume Next: NewWordOpened = False ' Set wdApp =
CreateObject("Word.Application")
Set wdApp = GetObject(, "Word.Application")
If wdApp Is Nothing Then
Set wdApp = CreateObject("Word.Application"): NewWordOpened = True
Else
MsgBox ("There is one or more instances of WORD open")
End If
On Error GoTo 0
For Each oSlide In ActivePresentation.Slides
     SldNum = SldNum + 1
     With oSlide
      For Each oShape In .Shapes
       If oShape.Type = msoEmbeddedOLEObject Then
        If oShape.OLEFormat.ProgID = "Word.Document.8" Then
         Set wdDoc = oShape.OLEFormat.Object
         wdDoc.Select
          timeS = Time
           With wdApp.Selection.Find
            .Text = FindText
            .ClearFormatting
            .Replacement.Text = ReplaceText
            .Replacement.ClearFormatting
            .Forward = True
            .Wrap = wdFindContinue
            .Format = False
            .MatchCase = True
            .MatchWholeWord = False
            .MatchWildcards = False
            .MatchSoundsLike = False
            .MatchAllWordForms = False
            .Execute Replace:=wdReplaceAll
           End With
          TimeF = Time
          wdDoc.Save
          wdApp.ActiveDocument.Close wdSaveChanges = False
        End If
      End If
     Next oShape
    End With
  Next oSlide
  If NewWordOpened Then wdApp.Quit
End Sub