Leer documentos Word
Hola!
Mi pregunta es la siguiente tengo que hacer una búsqueda en un archivo de WORD ya tengo una parte de código en Vb sin embargo la búsqueda solo la hace una vez, me podrías ayudar a hacer la búsqueda varias veces de la misma palabra.
Dim apWord As New Word.Application 'variable tipo aplicacion de Word
Private Sub Command1_Click()
With apWord.Selection
.Find.Execute FindText:=Text1.Text
.StartOf Unit:=wdParagraph 'colocarse al principio del párrafo
.MoveEnd Unit:=wdParagraph 'colocarse al final del párrafo
'lo anterior realiza una selección del párrafo actual
.Copy 'copiar la selección
Text2.SetFocus 'colocar el cursor en el segundo TextBox
SendKeys "^v" 'enviar la combinación de teclas para pegar
End With
End Sub
Private Sub Form_Load()
apWord.Documents.Open App.Path & "\Ejemplo.doc"
End Sub
Private Sub Form_Unload(Cancel As Integer)
apWord.Documents.Close 'cerrar el documento
Set apWord = Nothing 'quitar la referencia del objeto
End Sub
Gracias.
Atentamente: Karla
Mi pregunta es la siguiente tengo que hacer una búsqueda en un archivo de WORD ya tengo una parte de código en Vb sin embargo la búsqueda solo la hace una vez, me podrías ayudar a hacer la búsqueda varias veces de la misma palabra.
Dim apWord As New Word.Application 'variable tipo aplicacion de Word
Private Sub Command1_Click()
With apWord.Selection
.Find.Execute FindText:=Text1.Text
.StartOf Unit:=wdParagraph 'colocarse al principio del párrafo
.MoveEnd Unit:=wdParagraph 'colocarse al final del párrafo
'lo anterior realiza una selección del párrafo actual
.Copy 'copiar la selección
Text2.SetFocus 'colocar el cursor en el segundo TextBox
SendKeys "^v" 'enviar la combinación de teclas para pegar
End With
End Sub
Private Sub Form_Load()
apWord.Documents.Open App.Path & "\Ejemplo.doc"
End Sub
Private Sub Form_Unload(Cancel As Integer)
apWord.Documents.Close 'cerrar el documento
Set apWord = Nothing 'quitar la referencia del objeto
End Sub
Gracias.
Atentamente: Karla
1 Respuesta
Respuesta de emperador20
1
Se me ocurre meter la búsqueda en un for y le podes decir
De 1 a 10 veces que busque o depende de lo que quieras
for a 1 to 10
codigo de busqueda
a=a+1
next a
De 1 a 10 veces que busque o depende de lo que quieras
for a 1 to 10
codigo de busqueda
a=a+1
next a
Disculpa la molestia pero no podrías ser un poquito más especifico lo que sucede es que intente meterle l ciclo for pero me marca errores, lo que sucede es que no se usar bien las sentencias de control había intentado con while pero no hace la búsqueda varias veces espero me puedas ayudar
el ciclo for es asi
for A 1 to 10
codigo k keres repetir
a=a+1 'contador del for
next a
Me tendrías que decir que error te tira y en que linea
for A 1 to 10
codigo k keres repetir
a=a+1 'contador del for
next a
Me tendrías que decir que error te tira y en que linea
