kann man von einem excel-Makro aus prüfen, ob ein bestimmter Text in einer bestimmten Word-Datei vorkommt, ohne dieses zu öffnen?
Zum Beispiel ob im Dokument Berechnung.docx das Wort Mobilkran existiert?
LG,
Barbara
Option Explicit
Sub Main()
Dim objWD As Object
Dim lngTMP As Long
On Error GoTo Fin
Set objWD = GetObject("C:\Temp\Berechnung.docx") ' Anpassen!!!
With objWD
For lngTMP = 1 To .Words.Count
If .Words(lngTMP).Text Like "Mobilkr" & "*" Then
MsgBox "Vorhanden!"
End If
Next lngTMP
.Parent.Quit
End With
Fin:
Set objWD = Nothing
If Err.Number 0 Then MsgBox "Error: " & _
Err.Number & " " & Err.Description
End Sub
Die Datei wird ausgeblendet geöffnet.