Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Word-Document auslesen

Forumthread: Word-Document auslesen

Word-Document auslesen
eres
Einen sonnigen Gruß aus Köln an alle Excel-Freunde,
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
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Word-Document auslesen
15.06.2011 11:02:33
Reinhard
Hallo Eres,
probier mal:

Sub cmdStart_Click()
Dim wdApp As Object, S
Const DIN As String = "din "
Set wdApp = CreateObject(Class:="Word.Application")
wdApp.Documents.Open "L:\Arbeitsverzeichnis\Meneghini\Test\Antwort lieber.doc"
S = Split(wdApp.activedocument.Content, DIN)
If UBound(S) = 0 Then
MsgBox DIN & " wurde nicht gefunden"
Else
Worksheets(2).Cells(1, 1).Value = DIN & S(1)
End If
wdApp.activedocument.Close SaveChanges:=False
wdApp.Quit
Set wdApp = Nothing
End Sub

Gruß
Reinhard
Anzeige
That's it. VIEILEN DANK Reinhard (oT)
15.06.2011 11:11:58
eres
.
;

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige