Ir a un texto en Word

03/02/2005 - 18:53 por Medardo | Informe spam
Saludos:

Desde este grupo, es la primera vez que envío un mensaje.
Ya soy asiduo en el grupo de Access, pero en esta
ocasión, la duda se relaciona más con este grupo. Estoy
terminando un programa en Access donde los informes los
envío directamente hacia Word.
Supongamos que tenemos una tabla en Word con 6 columnas,
y que los títulos de las columnas son:
No.Expediente
Nombre
Apellidos
Centro
Provincia
Municipio
Supongamos que el cursor se encuentra en la primera
celda, y que a través de código lo quiero posicionar
donde dice 'Centro'.
¿Cómo pudiera lograrlo?

He hecho varios intentos. Por ejemplo:

Uno: Selection.Goto.Text "Centro"
Dos: Selection.Find.Execute FindText:= "Centro"
Tres: With Selection.Find
.Text = "Centro"
.Execute
End With
Cuatro: wrd.ActiveWindow.Selection.TypeText "Centro"
Cinco: wrd.ActiveDocument.Content.Find.Execute
FindText:="Nombre", Forward:=True

Y otros ejemplos, aunque esos han sido los que más me han
parecido que se acercan, pero no ha habido resultado
alguno.
¿Cómo entonces puedo lograr desde código VBA que el
cursor se posicione en la celda donde dice 'Centro'?

Saludos
Desde Ciudad de La Habana, Cuba
Medardo

Preguntas similare

Leer las respuestas

#1 Medardo
03/02/2005 - 21:42 | Informe spam
Ya resolví. Esta es la respuesta:

With Selection.Find
.Text = "Centro"
.Wrap = wdFindContinue
End With
Selection.Find.Execute

Saludos
Medardo

Saludos:

Desde este grupo, es la primera vez que envío un


mensaje.
Ya soy asiduo en el grupo de Access, pero en esta
ocasión, la duda se relaciona más con este grupo. Estoy
terminando un programa en Access donde los informes los
envío directamente hacia Word.
Supongamos que tenemos una tabla en Word con 6 columnas,
y que los títulos de las columnas son:
No.Expediente
Nombre
Apellidos
Centro
Provincia
Municipio
Supongamos que el cursor se encuentra en la primera
celda, y que a través de código lo quiero posicionar
donde dice 'Centro'.
¿Cómo pudiera lograrlo?

He hecho varios intentos. Por ejemplo:

Uno: Selection.Goto.Text "Centro"
Dos: Selection.Find.Execute FindText:= "Centro"
Tres: With Selection.Find
.Text = "Centro"
.Execute
End With
Cuatro: wrd.ActiveWindow.Selection.TypeText "Centro"
Cinco: wrd.ActiveDocument.Content.Find.Execute
FindText:="Nombre", Forward:=True

Y otros ejemplos, aunque esos han sido los que más me


han
parecido que se acercan, pero no ha habido resultado
alguno.
¿Cómo entonces puedo lograr desde código VBA que el
cursor se posicione en la celda donde dice 'Centro'?

Saludos
Desde Ciudad de La Habana, Cuba
Medardo

.

Respuesta Responder a este mensaje
#2 Medardo
07/02/2005 - 21:32 | Informe spam
Ya tengo la respuesta:

Selection.Find.ClearFormatting
With Selection.Find
.Text = "CentroTrab"
.Wrap = wdFindContinue
End With
Selection.Find.Execute

Saludos
Medardo

Saludos:

Desde este grupo, es la primera vez que envío un


mensaje.
Ya soy asiduo en el grupo de Access, pero en esta
ocasión, la duda se relaciona más con este grupo. Estoy
terminando un programa en Access donde los informes los
envío directamente hacia Word.
Supongamos que tenemos una tabla en Word con 6 columnas,
y que los títulos de las columnas son:
No.Expediente
Nombre
Apellidos
Centro
Provincia
Municipio
Supongamos que el cursor se encuentra en la primera
celda, y que a través de código lo quiero posicionar
donde dice 'Centro'.
¿Cómo pudiera lograrlo?

He hecho varios intentos. Por ejemplo:

Uno: Selection.Goto.Text "Centro"
Dos: Selection.Find.Execute FindText:= "Centro"
Tres: With Selection.Find
.Text = "Centro"
.Execute
End With
Cuatro: wrd.ActiveWindow.Selection.TypeText "Centro"
Cinco: wrd.ActiveDocument.Content.Find.Execute
FindText:="Nombre", Forward:=True

Y otros ejemplos, aunque esos han sido los que más me


han
parecido que se acercan, pero no ha habido resultado
alguno.
¿Cómo entonces puedo lograr desde código VBA que el
cursor se posicione en la celda donde dice 'Centro'?

Saludos
Desde Ciudad de La Habana, Cuba
Medardo

.

email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida