Fast tablecell replacement

I use Word automation (WordXp) in my VB6 app.
I have in my word document several tables
Where some cells contain one word of text "Oke" (is allways one and the same word)

Table example
.................................
:..Oke..:..........:..........:
:.........:..........:.Oke....:
:.........:..........:..........:

I want the cells containing that word "Oke" replaced with a Autotext "MyAText1" which I defined earlier.
I know how to do that but i look for a faster way!
I now have to loop through 3 loops one for all the tables, one for the rows and one for the columns of that table to cover all the cells on that document.

I replace the cell with the autotext (i do first check if the tableceltext contains the text 'Oke')

VB Code:

AppWord.ActiveDocument.Tables(K).cell(J,I).Select
AppWord.Selection.InsertFormula "Autotext ""MyAText1"""

This code is nested in several loops like i mentioned.
But Cant i use one replace command to replace alle the Oke text words by my autotext MyText1.
Important to mention The Autotext MyText1 contains text and images!
So a simple textreplace doesn't work a'm afraid.