ich habe ein VBA-Makro geschrieben, daß mehrere Word-Dateien in einem Verzeichnis hintereinander öffnet und deren Inhalte zwecks weiterer Verarbeitung in meine Excel-Tabelle kopiert.
Dies mache ich nach dem Öffnen der Datei mit
With objWordApp
.Selection.WholeStory
varText = .Selection
Cells(Rows.Count, 1).End(xlUp).Offset(1, 0) = varText
End With
Ich habe jetzt festgestellt, daß es einfacher wäre, nicht den gesamten Word-Text, sondern nur den Teil ab einer bestimmten Stelle (dort steht in allen Dokumenten immer das gleiche Wort "Beihilfeantrag") zu kopieren.
Wie lautet die Alternative zu .Selection.WholeStory wenn ich ab dem Wort bis zum Textende selektieren möchte?
DANKE
Claudia