RE:llamar documento de word
Copia y pega este código en un proyecto nuevo, y haz pruebas:
Sub Main()
Dim XWord As Object
Dim DocDeWord As Object
Dim UnArchivo As String
Dim UnaPalabra As String
Dim UnRango As Range
Dim Ind As Long
UnArchivo = "C:\UnaPrueba.doc" 'PON AQUI EL NOMBRE DEL ARCHIVO
Set XWord = CreateObject("Word.Application")
Set DocDeWord = XWord.Documents.Open(UnArchivo)
XWord.Visible = True
UnaPalabra = DocDeWord.Words(5)
MsgBox UnaPalabra
Set UnRango = DocDeWord.Content
UnRango.Find.Execute FindText:="ESCRIBE AQUI UNA PALABRA DEL DOCUMENTO", Forward:=True
Set UnRango = DocDeWord.Range(Start:=UnRango.End, End:=UnRango.End + 10)
MsgBox UnRango.Text
DocDeWord.Close SaveChanges:=wdDoNotSaveChanges
XWord.Quit
Set XWord = Nothing
End Sub
Saludos
Josetxu.