Para probar esto debes crear un Documento de Word y escribir varias lineas. Entre medias escribes la frase: "Punto 1:". Esta será la frase a buscar después.
Luego lo guardas como: C:\UnaPrueba.doc
Después abre un proyecto nuevo en VB, inserta un módulo y copia y pega este código:
Sub Main()
Dim XWord As Object
Dim DocDeWord As Object
Dim UnArchivo As String
Dim UnaPalabra As String
Dim UnRango As Range
UnArchivo = "C:\UnaPrueba.doc"
Set XWord = CreateObject("Word.Application")
Set DocDeWord = XWord.Documents.Open(UnArchivo)
XWord.Visible = True
'Si quieres que el usuario no lo vea, pon Visible a False
UnaPalabra = DocDeWord.Words(5)
'Esto encuentra la 5ª palabra del documento
MsgBox UnaPalabra
Set UnRango = DocDeWord.Content
UnRango.Find.Execute FindText:="Punto 1:", Forward:=True
'Esto encuentra la frase "Punto 1:"
Set UnRango = DocDeWord.Range(Start:=UnRango.End, End:=UnRango.End + 10)
'Esto crea un rango de 10 caracteres que empieza al final de "Punto 1:"
MsgBox UnRango.Text
'Una vez que tienes el rango localizado le puedes hacer mil perrerías, desde editarlo, cambiar el tipo de letra, copiarlo y pegarlo en otro lado, etc.
DocDeWord.Close SaveChanges:=wdDoNotSaveChanges
'Hagas lo que hagas haz lo posible por que el archivo se cierre, evitarás que se quede incordiando en la memoria
XWord.Quit
Set XWord = Nothing
End Sub
Saludos
Josetxu
