nach Suche im Archiv habe ich folgenden Code zum Auslesen von Informationen aus einem Word-Dokument gefunden:
(https://www.herber.de/forum/archiv/660to664/t662458.htm)
Sub cmdStart_Click()
Dim wdApp As Object
Dim ISO, EN As Double
Dim DIN As Variant
Dim rng As Object
DIN = "din "
Set wdApp = CreateObject(Class:="Word.Application")
wdApp.Documents.Open "L:\Arbeitsverzeichnis\Meneghini\Test\Antwort lieber.doc"
Set rng = wdApp.activedocument.content
If rng.Find.Execute(FindText:=DIN) = True Then
rng.End = rng.End + 10
Worksheets(2).Cells(1, 1).Value = rng
End If
wdApp.activedocument.Close SaveChanges:=False
wdApp.Quit
Set wdApp = Nothing
End Sub
Hier wird der gefundene Begriff plus 10 weitere Zeichen in eine Excel-Zelle geschrieben. Kann mir jemand sagen was ich ändern muß, dass in die Excel Zelle nicht nur der gefundene Begriff plus 1o Zeichen, sondern der gefundene Begriff plus der Rest des Dokuments geschrieben wird?
(Bei meinen Dokumenten gibt es hier kein Problem mit den max. 255 Zeichen pro Zelle, da der Begriff, den ich suchen lasse immer weit am Ende steht und nur max 100 bis 150 Zeichen danach kommen).
Bin für jeden Tipp sehr dankbar.
Gruß
eres