Visual Basic para Aplicaciones - Ayuda con un verificador de texto

Life is soft - evento anual de software empresarial
 
Vista:

Ayuda con un verificador de texto

Publicado por korne gomez (1 intervención) el 08/01/2008 01:34:30
Hola a todos los programadores en general, bien, tengo una práctica que no he podido resolver, la práctica trata de hacer un verificador de textos en visual basic, por ejemplo, que en una parte abra un documento de word en el cual compare las cadenas de titulo, desarrollo, conclusion , que son las cabeceras o titulos del documento, esto poniendo estas cadenas en un textbox, y que al dar click a un boton te diga si el tittulo, desarrollo y conlusion se encuentran dentro del archivo de word que abriste, no lo he podido hacer porque no se como abrir un documento de word en el visual basic, le he calado de varias formas y no he podido, les agradecería muchisimo su ayuda. de antemano muchas gracias a quien lo pueda hacer, o que me diga que es lo que puedo hacer... parece no estar complicado para los expertos que aqui estan... bueno, muchas gracias.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Ayuda con un verificador de texto

Publicado por JONATHAN PINALES (8 intervenciones) el 13/01/2008 16:33:41
Tengo un problema similar, casi resuelto te envío el codigo:

Sub Busca_e_Informa()
[A:A].ClearContents
With Application.FileSearch
.NewSearch
.LookIn = "C:Aaa"
.FileName = "A*; P*"
.SearchSubFolders = False
.TextOrProperty = "Turbocompresor"
.FileType = msoFileTypeWordDocuments

If .Execute() > 0 Then
For i = 1 To .FoundFiles.Count
Range("A" & i) = .FoundFiles(i)
Next i
Else
MsgBox "No se encontró ningún archivo."
End If
End With
End Sub

COMENTARIOS:
a) Este código busca en archivos Word la palabra "Turbocompresor". Si la encuentra, lista en la columna "A" los archivos contenedores.
Si no la encuentra, lo informa mediante un MsgBox.

b) .LookIn = "C:Aaa"
Carpeta de búsqueda

c) .SearchSubFolders = False
Se indica que la búsqueda no incluye a las subcarpetas.

d) .FileName = "A*; P*"
La búsqueda se dará en archivos que comiencen con "A" ó con "P".

e) .TextOrProperty = "Turbocompresor"
Texto a buscar.

f) .FileType = msoFileTypeWordDocuments
La búsqueda se circunscribe a los archivos tipo Word.

Suerte
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar