Word Makro zur Übernahme von Word Daten nach Excel

Ich brauche Hilfe bei einem Makro, welches Wörter, bzw. Sätze aus einem freien Text in Word in bestimmte und von mir vorzudefinierende Spalten/Zeilen in Excel schreibt.

Die Wörter/Sätze können nur dadurch selektiert werden, dass sie immer zwischen zwei Überschriften stehen, welche immer gleich sind. D.h. sozusagen Beginn Überschrift 1 -> kopieren <- Überschrift 2.



Dann sollte ich eben das kopierte noch ins Excel schreiben können.



Kann mir da jemand helfen? Geht das überhaupt?
Vielen Dank im Voraus...

[Eckard41]

Klar geht das:

Const Überschrift1 As String = "Text1"
Const Überschrift2 As String = "Text2"
Dim StartPos As Long, EndPos As Long

'Mit Instr die Anfangsposition von Überschrift1 ermitteln
StartPos = InStr(1, ActiveDocument.Range.Text, Überschrift1)
'Länge von Überschrift1 addieren
StartPos = StartPos + Len(Überschrift1) - 1

'Anfangsposition von Überschrift2 ermitteln
EndPos = InStr(1, ActiveDocument.Range.Text, Überschrift2)
'1 Zeichen abziehen, da die Instr-Funktion das erste Zeichen
'von Überschrift2 zurückgibt, aber nur der Text zwischen Ü1
'und Ü2 wichtig ist
EndPos = EndPos - 1

'Range-Objekt mit Start- und Endposition definieren
Set Text = ActiveDocument.Range(StartPos, EndPos)

'Excel öffnen
Dim ExcelSheet As Object
Set ExcelSheet = CreateObject("Excel.Sheet")
ExcelSheet.Application.Visible = False
'Text in Zelle A1 schreiben
ExcelSheet.Application.Cells(1, 1).Value = Text
'Abspeichern und schließen
ExcelSheet.SaveAs "C:\test.xls"
ExcelSheet.Application.Quit
Set ExcelSheet = Nothing

Super, vielen Dank!

Werd ich gleich mal ausproieren und mich im Fall wieder melden...