Excel - Buscar dentro de documentos de Word

Saludos a todos
Necesito ayuda, quisiera saber el código para una macro que me busque en una carpeta especifica (digamos c:oficios) en todos los documentos de Word y me ponga los nombres de los archivos que contienen dicha palabra en su interior, sería fantastico que salieran vinculados en una lista

debo aclarar que se trata de una hoja de excel, en la columna A tengo como 15 renglones con las palabras a buscar.

Desde ya muchas gracias, esperando su apoyo quedo en espera

Jonathan Gutierrez

Option Explicit

'//By JuanC - Ene. 2008

Sub SearchWordsInDoc()
Dim wDoc As Object
Dim wApp As Object
Dim fs As Variant
Dim lCount&, i&, sText$
Dim sFullName$, lOff&

Set fs = Application.FileSearch

Set wApp = GetWord
If wApp Is Nothing Then GoTo Fin

Application.ScreenUpdating = False

sText = "julio" '//Texto a buscar

Set fs = Application.FileSearch
With fs
.LookIn = "c:windowsescritorio" '//Carpeta de búsqueda
.SearchSubFolders = True
.Filename = "*.doc"
If .Execute(SortBy:=msoSortByLastModified, SortOrder:=msoSortOrderAscending, AlwaysAccurate:=True) > 0 Then
lCount = .FoundFiles.Count
For i = 1 To lCount
sFullName = .FoundFiles(i)
Set wDoc = wApp.Documents.Open(sFullName)
If Not wDoc Is Nothing Then
If FindText(wDoc, sText) Then
[A1].Offset(lOff).Hyperlinks.Add Anchor:=[A1].Offset(lOff), Address:=wDoc.FullName, TextToDisplay:=Mid(sFullName, InStrRev(sFullName, "") + 1)
lOff = lOff + 1
End If
wDoc.Close False
End If
Next
End If
End With

wApp.Quit

Fin:
Application.ScreenUpdating = True

Set fs = Nothing
Set wApp = Nothing
Set wDoc = Nothing
End Sub

Private Function GetWord() As Object
On Error GoTo Create
Set GetWord = GetObject(, "Word.Application")
Exit Function
Create:
Set GetWord = CreateObject("Word.Application")
End Function

Private Function FindText(ByVal Doc As Object, ByVal sText As String) As Boolean
On Error Resume Next
With Doc.Content.Find
.ClearFormatting
If .Execute(FindText:=sText) Then
FindText = True
Else
FindText = False
End If
End With
End Function

Saludos desde Baires, JuanC

Gracias, por contestar, solo tengo un problema, en Excel 2007 me marca un error que dice que el objeto no permite esa acción y en Excel 2003 corre pero no hace nada.

pregunto ¿Debo crear algun tipo de formulario? ¿Se guarda como una formula personalizada? ¿Qué estoy haciendo mal?

Muchas Gracias nuevamente por tu respuesta

Atte. Jonathan

lo que te pasé es una macro y debe manejarse como tal
podría convertirse en función, pero si no puedes hacerla andar como está no creo que puedas convertirla a función...
y si no tienes el conocimiento elemental de VBA no podrás hacer mucho
yo sólo te dí una base como para que lo termines a tu gusto, suponiendo que sabes algo de VBA / macros
si no es así, pues habrá que empezar a leer un poco!

Saludos desde Baires, JuanC

Gracias nuevamente por responder, si conozco de VBA, aunque reconozco que no mucho, ya resolví el problema, lo que sucede es que yo puse unos archivos en word en el escritorio con la palabra "julio" como dice el codigo de tu macro, soloi que en la ruta faltaba la diagonal invertida y por eso no me funcionaba, por el momento me ha sacado de apuros, voy a tratar de crear un formulario para mejorarla, muchas gracias nuevamente.
Saludos desde Mexico
Jonathan Gutierrez

Te adjunto el archivo en http://scuestam.tripod.com/buscar_archivos.xls

Un saludo desde Ambato, Ecuador
SCM