Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1428to1432
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1428to1432
1428to1432
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Mehrseitiges Worddokument in Excel einbinden

Mehrseitiges Worddokument in Excel einbinden
11.06.2015 06:56:53
Bernd
Guten Morgen Ihr Excel Götter,
als Stoßgebet geht folgendes Problem.
Ich habe ein Mehrseitiges Dokument in Word oder PDF format und möchte es wegen Formatierungsgründen in Excel einbetten.
Auf der letzten Seite des Word Dokumentes habe ich Formularfelder die ich ausfüllen möchte und die Werte in Blatt 2 eintragen.
Umgedreht wäre es mir noch lieber wenn ich die Werte in Excel eintrage und an das Worddokument zum drucken übergeben kann.
liebe Grüsse Bernd

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Mehrseitiges Worddokument in Excel einbinden
11.06.2015 07:23:34
JoWE
Hallo Bernd,
da zeigt Dir die Recherche in diesem Forum und auch in Google unzählige Beispiele;
hier mal nur eines davon als Einstieghilfe:
Sub WordvorlageBefuellen()
'WICHTIG: Verweis auf Microsoft Word Library setzen
Dim wrd As Word.Application ' *
Set wrd = New Word.Application
Dim sPath As String
sPath = ActiveWorkbook.Path
If Not Right(sPath, 1) = "\" Then
sPath = sPath & "\"
End If
Dim doc As Word.Document
Set doc = Word.Documents.Open(sPath & "Vorlage.doc") 'Deine Wordvorlage
'Die Textmarken in der Wordvorlage ansteuern und mit den Daten aus Excel füllen
doc.Bookmarks.Item("Feld1").Range = Cells(1, 1).Text
doc.Bookmarks.Item("Feld2").Range = Cells(2, 1).Text
'Die Datei drucken
doc.PrintOut
'Die Datei speichern
doc.SaveAs sPath & "DeinDateiname" & Format$(Now(), "yyymmdd hhMMss") & ".docx"
'Die Datei schließen
doc.Close True
End Sub
Gruß Jochen

Anzeige
AW: Mehrseitiges Worddokument in Excel einbinden
11.06.2015 07:31:48
Bernd
Mit der Datenübergabe an Textmarken hab ich auch schon gefunden.
Danke für deine Mühe, den Code den du gefunden hast ist schön compact !!
Bleibt nur noch ein problem wie ich mehrseitige Dokumente in Excel einbette, das alle Seiten dargestellt werden.

AW: Mehrseitiges Worddokument in Excel einbinden
11.06.2015 18:19:43
JoWE
Bernd,
ein Teil Deiner Frage lautete: "Umgedreht wäre es mir noch lieber wenn ich die Werte in Excel eintrage und an das Worddokument zum drucken übergeben kann." Genau das beantwortet das Beispiel.
Word-Dokumente in Excel einbinden erscheint mir nicht wirklich erstrebenswert; geht aber:
so aufgezeichnet:
ActiveSheet.OLEObjects.Add(Filename:= _
"C:\Daten\BeispielDoc.docx", Link:=False, DisplayAsIcon:=False).Select
Gruß
Jochen
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge