Hallo liebes Forum,
für ein kleines Projekt probiere ich seit Tagen ein kleines Problem zu lösen, komme jedoch nicht auf die endgültige Lösung.
Daher wende ich mich an Euch mit der Bitte mir zu helfen oder mir einen Tipp zu geben.
Ausgangssituation
Ich habe ein Excel-Sheet mit meinem kleinen VBA Code, der mir ein MS-Word Dokument über Bookmarks Stück für Stück auslesen
und nach Excel in je ein Sheet kopieren soll.
Hilfestellung: Die Bookmarks heißen "c1", "c2", "c3" etc
Mein Code:
For i = 1 to 6 'hier durchlaufe ich zunächst 6 Bookmarks, worunter sich ein Inhaltsverzeichnis befindet, welches das Bookmark "c2" enthält.
If wDoc.Bookmarks("c" & i) = "c2" Then
ActiveWorkbook.Sheets("Chapter").Cells.Range("A1").Value = "Inhaltsverzeichnis"
sheetname = "Inhaltsverzeichnis"
wDoc.Activate
bkmark = wDoc.Bookmarks("c" & i).Range.Text
wDoc.Bookmarks("c" & i).Range.Copy
Set sht = ActiveWorkbook.Sheets.Add(After:=ActiveWorkbook.Worksheets(ActiveWorkbook.Worksheets.Count))
ActiveSheet.PasteSpecial
End if
Next i
Problem
Auf dem Monitor zeigt das Excel-Sheet in das ich das MS-Word-Inhaltsverzeichnis hinein kopieren möchte genau 31 Zeilen.
Das Inhaltsverzeichnis aus dem Word-Dokument hat aber wesentlich mehr Zeilen. Beim Kopieren werden also nur soviele Zeilen kopiert, wie im Excel-Sheet an Zeilen sichtbar sind.
Ich möchte aber gerne das gesamte Inhaltsverzeichnis nach Excel kopieren.
Frage
Könntet Ihr mir bitte dabei helfen dieses kleine aber feine Problem zu lösen und mir evtl. einen Tipp geben? Das wäre großartig.
Herzlichen Dank im Voraus und viele Grüße
Mo
|