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
1248to1252
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
1248to1252
1248to1252
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Excel soll neues DOC gemäß Vorlage starten

Excel soll neues DOC gemäß Vorlage starten
Tori
Hallo,
meine erste Anfrage, mein erster Beitrag ... hoffentlich habe ich die Suche vorher richtig bemüht ...
Mein zu lösendes Problem ist folgendes: Ich habe eine Liste von Dokumenten zu erstellen, was ich gern aus Excel heraus machen möchte. Ein neues Excel-Dokument auf der Basis einer bestehenden Vorlage habe ich schon hinbekommen. Dort kann ich Daten einfügen und dann das Dokument nach meinen Wünschen speichern. Das klappt.
Nun soll das auch mit Worddateien funktionieren. Eine bestehende Worddatei öffnen geht, eine neue auf der Basis einer bestehenden Vorlage will mir nicht gelingen. Und zum Speichern der dann vorhandenen Worddatei hab ich auch keinen Plan.
Kann mich da bitte jemand heranführen?
Später sollen die so geöffneten Dateien mit Werten aus der offenen Exceldatei gefüllt werden, exceluntereinander sehe ich da keine Probleme, für Word hätte ich ebenso einen theoretischen Weg.
Also rein praktisch habe ich eine Tabelle in Excel, darin stehen eine Anzahl von Dateiangaben zu Vorlagen (Excel und Word gemischt). Je Eintrag soll ein neues Dokument generiert werden. Diese Liste soll abgearbeitet und bei jeder geöffneten neuen Datei ein paar Werte nebenbei "versenkt" werden. Dann alle wieder schließen. Fertig.
Über Hinweise wäre ich sehr dankbar, diesmal komme ich mit suchen und anpassen nicht weiter ... vielen Dank!
Tori

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
Word-Dokument aus WORD-Vorlage erstellen
08.02.2012 22:53:44
NoNet
Hallo Tori,
hier ein Beispiel-Code zum Erstellen eines neuen WORD-Dokumentes auf Basis einer bereits vorhandenen Vorlage (DOTX-Template) aus Excel heraus :
Sub WordDokumentPerVorlageErstellen()
'08.02.2012, NoNet - www.excelei.de
Dim appWord As Object, objDoc As Object, strTemp As String
'Hier wird der Dateiname der WORD-Vorlage erstellt - bitte anpassen !
strTemp = Environ("appdata") & "\Microsoft\Vorlagen\MeineVorlage.dotx"
On Error Resume Next
Set appWord = GetObject(, "Word.Application")
If appWord Is Nothing Then
Set appWord = CreateObject("Word.Application")
End If
With appWord
'objDoc ist das neu zu erstellende Dokument :
Set objDoc = .documents.Add(strTemp) 'Neues Dokument auf Basis der Vorlage erstellen
.Visible = True 'WORD-Fenster anzeigen
End With
'Das neu erstellte Dokument speichern - Pfad bitte anpassen :
objDoc.SaveAs "C:\temp\MeinDokument.docx"
End Sub
Der verwendete Pfad der Vorlage ist der Standard-Vorlagenordner - den Pfad musst Du evtl. noch anpassen (ebenso wie den Pfad des zu speichernden Dokumentes).
Gruß, NoNet
Anzeige
AW: Word-Dokument aus WORD-Vorlage erstellen
08.02.2012 23:24:06
Tori
Hallo NoNet,
Danke! Ich bin begeistert, habe es ausprobiert und es funktioniert natürlich. Um das ganze wieder zu schließen, habe ich folgendes noch angefügt:
objDoc.Close
appWord.Quit
Set objDoc = Nothing
Set appWord = Nothing
Nun muss ich wieder selbst ran. Aber es hilft ungemein, wenn man solche Hürden rasch überspringen kann. also nochmals Danke!
Tori

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige