Thema Datum  Von Nutzer Rating
Antwort
Rot Mit Excel VBA das Inhaltsverzeichnis aus einem Word-Doc nach Excel kopieren
21.04.2022 21:55:26 Mo
NotSolved

Ansicht des Beitrags:
Von:
Mo
Datum:
21.04.2022 21:55:26
Views:
31
Rating: Antwort:
  Ja
Thema:
Mit Excel VBA das Inhaltsverzeichnis aus einem Word-Doc nach Excel kopieren

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


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Mit Excel VBA das Inhaltsverzeichnis aus einem Word-Doc nach Excel kopieren
21.04.2022 21:55:26 Mo
NotSolved