Búsqueda de texto en un bucle

A ver si esto te ayuda

Sub Macro1()
Dim I As Integer
Dim Palabras(3) As String
Palabras(0) = "Nombre"
Palabras(1) = "Centro"
Palabras(2) = "Provincia"
Palabras(3) = "Municipio"
Dim J As Integer
For I = 0 To wrd.ActiveDocument.Tables.Count - 1
'primer sección
Selection.Find.ClearFormatting
For J = 0 To 3
'segunda sección
Selection.Find.Text = Palabras(J)

'tercera sección
Selection.Find.Wrap = wdFindContinue
Selection.Find.Execute
If Selection.Find.Wrap = 1 Then
EncontroCenTrab = EncontroCenTrab + 1
Debug.Print EncontroCenTrab
End If
Next J
Next I
End Sub

Suerte
Nilda Beatriz Díaz
Desde el tercer planeta a partir del Sol.
"Medardo" escribió en el mensaje
news:00e501c50d54$a99a68d0$
Saludos

Tengo el siguiente código:

Dim I As Variant
For I = 0 To wrd.ActiveDocument.Tables.Count
'primer sección
Selection.Find.ClearFormatting

'segunda sección
Selection.Find.Text = "Nombre"
Selection.Find.Text = "Centro"
Selection.Find.Text = "Provincia"
Selection.Find.Text = "Municipio"

'tercera sección
Selection.Find.Wrap = wdFindContinue
Selection.Find.Execute
If Selection.Find.Wrap = 1 Then
EncontroCenTrab = EncontroCenTrab + 1
Debug.Print EncontroCenTrab
End If

Next I

Tengo que realizar la búsqueda, dentro de un documento de
Word, de las palabras "Nombre", "Centro", "Provincia"
y "Municipio", que se especifican en la segunda sección.
Ahora bien, yo necesito que este bucle me haga lo
siguiente:
1- Que siempre realice la instrucción de la primera
sección.
2- Que tome solamente la primera instrucción de la
segunda sección.
3- Que inmediatamente salte a la tercera sección.
4- Que se repitan los pasos del 1 al 3, pero al llegar al
2, que esta vez tome solamente la segunda instrucción, (y
que también salte a la tercera sección), y en la tercera
vuelta que tome solamente la tercera instrucción y, así
sucesivamente.
Resumen: que repita el ciclo por cada una de las
instrucciones que se encuentren en la segunda sección.
¿Cómo logro eso?

Saludos
Desde Ciudad de La Habana, Cuba
Medardo