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

Gracias Nilda, solo tuve que hacerle un pequeño ajuste y,
finalmente quedó así:

For J = 0 To 3
Selection.Find.ClearFormatting
Selection.Find.Text = Palabras(J)
Selection.Find.Wrap = wdFindContinue
Selection.Find.Execute
If Selection.Find.Wrap = 1 Then
EncontroCenTrab = EncontroCenTrab + 1
Debug.Print EncontroCenTrab
End If
Next J

Por supuesto, incluyendo también la primera parte sobre
las variables.

Gracias nuevamente,
Saludos
Medardo

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



.

;-DD

Suerte
Nilda Beatriz Díaz
Desde el tercer planeta a partir del Sol.
"Medardo" escribió en el mensaje
news:2ba801c50dee$77763420$
Gracias Nilda, solo tuve que hacerle un pequeño ajuste y,
finalmente quedó así:

For J = 0 To 3
Selection.Find.ClearFormatting
Selection.Find.Text = Palabras(J)
Selection.Find.Wrap = wdFindContinue
Selection.Find.Execute
If Selection.Find.Wrap = 1 Then
EncontroCenTrab = EncontroCenTrab + 1
Debug.Print EncontroCenTrab
End If
Next J

Por supuesto, incluyendo también la primera parte sobre
las variables.

Gracias nuevamente,
Saludos
Medardo

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



.