Mit VBA Textinhalt diverser Worddokumente in Excel einfügen

Forumthread: Mit VBA Textinhalt diverser Worddokumente in Excel einfügen

10.12.2024 10:13:02

RayRuder

Hallo Zusammen

Ich habe eine Exceldatenbank wo die Dokumentnamen diverser Worddateien stehen (Spalte E).
Die in Spalte E enthaltenen Dokumentnamen sind jeweils mit einem Arbeitsblatt verlinkt wo der ganze Textinhalt der Worddokumente hinterlegt ist (Arbeitsblatt 1 bis Arbeitsblatt 5) .

Da der Inhalt dieser Worddokumente immer wieder wechselt, benötige ich ein Skript, das den Text aller Worddokumente in meiner Datenbank auf den neusten Stand bringt.

Zwar konnte ich den Skriptablauf definieren, scheitere aber am öffnen, kopieren und einfügen des Textinhalts der jeweiligen Worddatei. Kann mir da Jemand weiterhelfen?

Hier meine Test DB: https://www.herber.de/bbs/user/174219.xlsx

Mein Ablauf sieht folgendermassen aus
Kopieren Text von Spalte E Zeile 6
Link von Text in Spalte E Zeile 6 anklicken
Entsprechendes Arbeitsblatt «Inhalt ganze Seite löschen»
Kopierter Text von Spalte E Zeile 6 in Spalte E Zeile 2 einfügen
Word Dokument mit Dokumentname von Spalte E Zeile 6 und .doc-Erweiterung öffnen
Ganzen Textinhalt kopieren
Kopierten Text in Spalte B Zeile 2 einfügen mit «Start/Einfügen/Inhalte einfügen/Text»
Mit nächster Zeile weiterfahren (Spalte E Zeile 7) usw.

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Mit VBA Textinhalt diverser Worddokumente in Excel einfügen

10.12.2024 10:22:11

RayRuder

PS: die Wordokumente sind alle in einem einzigen Ordner mit dem Titel "Wordvorlagen" auf dem Schreibtisch abgelegt.

AW: Mit VBA Textinhalt diverser Worddokumente in Excel einfügen

10.12.2024 11:42:44

JoWE

Hallo xxxx,
hier ist es üblich sich mit Vornamen anzureden, sorry Deinen kenne ich leider (noch?) nicht!
Wieviel VBA-Code hast Du denn bereits, in der hochgeladenen XLSX konnte ja kein Code eingebettet sein.
Gruß
Jochen

AW: Mit VBA Textinhalt diverser Worddokumente in Excel einfügen

10.12.2024 15:00:47

RayRuder

Hallo Jochen,

Vielen Dank für Deine Antwort und sorry, dass ich mich nicht gleich richtig vorgestellt habe. Ich bin Ray und habe mittlerweile diesen Code erstellt:
Was ich noch nicht geschafft habe, ist es diesen Vorgang zu loopen.

Sub Aktualisierung_Ganze_Datenbank()

Cells(6, 5).Select
ActiveCell.FormulaR1C1 = "Worddokument 1"
Sheets (“Arbeitsblatt 1”).Select
Cells.Select
Selection.ClearContents
Range("E2").Select
ActiveSheet.Paste
Range("B2").Select

' Inhalt des Baustein aus Word in Excel übertragen
Dim AppWD As Object
Set AppWD = CreateObject("Word.Application") 'Word als Object starten

With AppWD
' .Visible = True
.documents.Open "O:\GD\MD\03 Kantonsärztlicher Dienst\03-08 Bewilligungen\03-08-03 Berufsbewilligungen\Gesuchformulare und eDoc Vorlagen\Evidence\Wordvorlagen\" + Range("E6").Value + ".docx"
.Selection.wholeStory 'alles auswählen
.Selection.Copy
End With

' Wordinhalt im Excel einfügen
Cells(2, 2).Select
ActiveSheet.Paste

AppWD.Quit
Set AppWD = Nothing
Range("E2").Select

End Sub

Sub Aktualisierung_Ganze_Datenbank()
Cells(6, 5).Select
ActiveCell.FormulaR1C1 = "Worddokument 1"
Sheets (“Arbeitsblatt 1”).Select

' Inhalt des Tabellenblattes löschen
Rows("10:300").Rows.ClearContents

' Inhalt des Baustein aus Word in Excel übertragen
Dim AppWD As Object
Set AppWD = CreateObject("Word.Application") 'Word als Object starten

With AppWD
' .Visible = True
.documents.Open "O:\GD\MD\03 Kantonsärztlicher Dienst\03-08 Bewilligungen\03-08-03 Berufsbewilligungen\Gesuchformulare und eDoc Vorlagen\Evidence\Wordvorlagen\" + Range("E2").Value + ".docx"
.Selection.wholeStory 'alles auswählen
.Selection.Copy
End With

' Wordinhalt im Excel einfügen
Cells(2, 2).Select
ActiveSheet.Paste

AppWD.Quit
Set AppWD = Nothing
Range("E2").Select

End Sub

Beste Grüsse
Ray

AW: Mit VBA Textinhalt diverser Worddokumente in Excel einfügen

11.12.2024 12:25:59

Ray

Mittlerweile konnte ich das Problem selbständig lösen. Vielen Dank und Beste Grüsse
Ray

Sub CopyTextFromWordToExcel()
Dim i As Integer
Dim sourceSheet As Worksheet
Dim targetSheet As Worksheet
Dim wordApp As Object
Dim wordDoc As Object
Dim textToCopy As String
Dim filePath As String

' Setze den Namen des Quellblatts
Set sourceSheet = ThisWorkbook.Sheets("Tabelle1") ' Ersetze "Tabelle1" mit dem Namen deines Quellblatts

' Starte die Word-Anwendung
Set wordApp = CreateObject("Word.Application")
wordApp.Visible = False

' Schleife durch die Zeilen E6 bis E10
For i = 6 To 10
textToCopy = sourceSheet.Range("E" & i).Value
filePath = "Pfad zu Ordner mit Worddokumenten\" & textToCopy & ".docx" ' Passe den Pfad entsprechend an

' Öffne das Word-Dokument
On Error Resume Next
Set wordDoc = wordApp.Documents.Open(filePath)
If Err.Number > 0 Then
MsgBox "Dokument " & filePath & " konnte nicht geöffnet werden.", vbExclamation
Err.Clear
On Error GoTo 0
GoTo NextIteration
End If
On Error GoTo 0

' Kopiere den Inhalt des Word-Dokuments
wordDoc.Content.Copy
Set targetSheet = ThisWorkbook.Sheets("T" & i)
targetSheet.Range("B2").PasteSpecial xlPasteValues
wordDoc.Close False

NextIteration:
Next i

' Schließe die Word-Anwendung
wordApp.Quit
Set wordApp = Nothing
Set wordDoc = Nothing
End Sub

AW: Mit VBA Textinhalt diverser Worddokumente in Excel einfügen

11.12.2024 14:15:27

JoWE

Hallo Ray,
sorry - ich war seit meinem Post auf Deine Eingangsfrage leider nicht mehr im Forum (Familie!!!).
Nun Du hast es ja (sieht aus wie die Hilfe von AI oder GEMINI) auch so hinbekommen.
Gratuliere!!!
Gruß
Jochen

Mit VBA Textinhalt diverser Worddokumente in Excel einfügen

Forumthread: Mit VBA Textinhalt diverser Worddokumente in Excel einfügen

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Mit VBA Textinhalt diverser Worddokumente in Excel einfügen

Forumthread: Mit VBA Textinhalt diverser Worddokumente in Excel einfügen

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread