Suche im Word-Dok
05.09.2005 11:14:10
Matthias
ich möchte über ein Excel-Makro ein Word-Dok nach einem Begriff durchsuchen und diesen + die zehn nachfolgenden Zeichen ausgeben.
Folgender Quelltext funktioniert, aber ich kann damit nur den Suchbegriff ausgeben.
Public
Sub cmdStart_Click()
Dim wdApp As Object
Dim ISO, EN As Double
Dim DIN As Variant
DIN = "din "
Set wdApp = CreateObject(Class:="Word.Application")
wdApp.Documents.Open "L:\Arbeitsverzeichnis\Meneghini\Test\Antwort lieber.doc"
With wdApp.ActiveDocument.Content.Find
If .Execute(FindText:=DIN) = True Then
Worksheets(2).Cells(1, 1).Value = DIN
End If
End With
wdApp.ActiveDocument.Close SaveChanges:=False
wdApp.Quit
Set wdApp = Nothing
End Sub
Bin für jede Hilfe dankbar.
Matthias