aus Excel (VBA) > Word (Formatiert) erzeugen und a

Dominik · 2016-11-28T23:01:00+00:00

Guten Abend zusammen, Ein Thema lässt mich nicht los... Die heutige Ausgangslage: Ich muss regelmässig Vertragsdokumente erstellen, und zwar auf Basis eines einmal festgelegten Standarddokuments. Ich gehe also hin und kopiere mir die Bausteine die ich benötige zusammen und füge sie in einem neuen Word-Dokument ein, bereinige und formatiere das Dokument und voila, fertig. Das ist natürlich nicht nur extrem fehleranfällig, sondern Ressourcen bindend. Ziel ist nun eine Dokumentation der Bausteine in Excel (übersichtlicher, Historie ablesbar, etc.) quasi als Ausgangslage/Startpunkt. In diesem Dokument kann ich mir via Dropdownlisten, Sverweis, wenn-Funktion, etc. die Bausteine aussuchen, die ich benötige, soweit so gut, das ist Fleissarbeit. Die Idee ist nun, dass ich einen CommandButton zur Verfügung habe, der mir aus Excel heraus eine Word-Datei mitsamt der gewählten Bausteine erstellt, und zwar in einer bestimmten Reihenfolge (und auf einem von mir zu definierenden Ziel-Pfad ablegt). Die Word-Datei müsste auch ein spezielles Format haben, z.B. 2-spaltig, Textgrösse so und so, Überschrift Fett, etc. und bearbeitbar sein, da sich das Dokument im Verhandlungsprozess noch dauernd ändern wird. Nur... wie zur Hölle macht man das? Ist es überhaupt der richtige Weg via Excel? Macht man das besser aus Word heraus und liest Excel aus, fügt die Inhalte "nur" in Textfelder ein? Fragen über Fragen.. Vielen herzlichen Dank für Eure Inputs. Vielleicht hat ja zufälligerweise jemand dazu bereits mal was getextet. Beste Grüsse, Dominik

Guten Tag Michael,
Besten Dank für Deinen Input.
Als ich die Fragestellung anging, habe ich das (auch mit Forenhilfe) erstellt, allerdings via AutoText. Ich habe eine Word-Vorlage erstellt, alle Textbausteine als AutoText erfasst und eine AutoForm erstellt. Diese sieht der User, wenn er auf das Dokument zugreift und kann via Checkbox die notwendigen Bausteine auswählen. Das ergibt allerdings ein riesiges Formular, sehr unübersichtlich, wäre allerdings, falls nicht anders möglich, eine Alternative.
Aktuell habe ich eine andere Variante ausprobiert, und zwar habe ich alle Bausteine in Excel erfasst, in allen Varianten, da verschiedene Kombinationen zulässig sind. Eine Eingabemaske erlaubt die Auswahl der Bausteine, welche auf einer bestimmten Mappe geplottet werden. Diese Mappe (resp. die Markierung) wird dann in ein Word-Dokument kopiert und gespeichert/abgelegt.

Sub BereichNachWord()
'Kopiert den aktuellen Druckbereich des gewählten Blattes und fügt diesen
'als Excel-Tabelle im angegebenen Word-Dokument an der gewählten Textmarke ein
'----- Anpassen -----
Const Wdoc As String = "O:ZielverzeichnisVorlage_Word.docx" 'Ziel-Dokument Word
Const QBlatt As String = "Output" 'Quell-Blatt Excel
Const Tm As String = "Vertragsgrundlagen" 'Name der Word-Textmarke
'----- Ende -----
Dim Wb As Workbook
Dim WsQ As Worksheet
Dim rQ As Range
Dim oWord As Object
Dim oDoc As Object
Set Wb = ThisWorkbook 'Ausgangspunkt: Diese Mappe
Set WsQ = Wb.Worksheets(QBlatt) 'Das Quell-Blatt dieser Mappe
'Word öffnen, wenn noch nicht offen
On Error Resume Next
Set oWord = GetObject(, "Word.Application")
If Err.Number  0 Then
Set oWord = CreateObject("Word.Application")
End If
Err.Clear
On Error GoTo 0
ThisWorkbook.Worksheets("Output").Activate
'Quell-Bereich kopieren...
Row = ThisWorkbook.Worksheets("Output").Range("B65536").End(xlUp).Row
ThisWorkbook.Worksheets("Output").Range(Cells(1, 1), Cells(Row, 7)).Copy
'Ziel-Dokument öffnen
Set oDoc = oWord.Documents.Open(Wdoc)
'kopierten Bereich als Excel-Tabelle einfügen
oDoc.Bookmarks(Tm).Range.PasteExcelTable False, False, False
'Word/Ziel-Dokument anzeigen
With oWord
.Visible = True
.ActiveWindow.WindowState = 0
.Activate
End With
End Sub

Hier kommt dann die Frage auf, wie ich mehrere Textmarken (davon gibts im Word-Dokument natürlich einige) ins Word-Dokument schreibe.
Const Wdoc As String = "O:ZielverzeichnisVorlage_Word.docx" 'Ziel-Dokument Word
Const QBlatt As String = "Output" 'Quell-Blatt Excel
Const Tm1 As String = "Vertragsgrundlagen" 'Name der Word-Textmarke
Const Tm2 As String = "Vertragsverhältnis" 'Name der Word-Textmarke
Const Tm3 As String = "Beteiligte_Personen" 'Name der Word-Textmarke

Guten Morgen Michael,
Ich bin bei meinem Code selber etwas weiter gekommen, habe nun zwei Dokumente, ein Excel mit allen Daten und eine Word-Vorlage mit Textmarken.
Der folgende Code schreibt mir die jeweiligen Daten ins Word-Dokument, soweit so gut.
Das wesentlichste Problem, das ich allerdings noch habe, ist folgendes: Die Zellen sollen nur unter bestimmten Voraussetzungen übergeben werden.
Als Lösung habe ich mir Folgendes gedacht: Wenn in Spalte (A:A) ein "x" steht (z.B. Zelle A1), soll es mir die Zelle aus Spalte (B:B), z.B. B1 kopieren, und bei der Textmarke einfügen. So habe ich Excel auch vorbereitet, nur kann ich das nicht in den entsprechenden Code übersetzen und da wäre ich sehr froh um Deine Hilfe.
(Ich werde Dir bei Bedarf noch meine Excel-Datei zur Verfügung stellen)

Private Sub CommandButton1_Click()
Dim wdApp As Object ' Word.Application
On Error Resume Next
Set wdApp = GetObject(, "Word.Application")
If wdApp Is Nothing Then Set wdApp = CreateObject("Word.Application")
On Error GoTo 0
'wdApp.ActiveDocument.Unprotect
wdApp.Visible = True
wdApp.Documents.Add "C:\DOC Export_Textmarke.dotx"
' Ausgabe der Textmarken fur Testzwecke
Dim i As Integer, sStr As String
sStr = wdApp.ActiveDocument.Bookmarks.Count & "  Textmarken:" & vbCrLf
For i = 1 To wdApp.ActiveDocument.Bookmarks.Count
sStr = sStr & wdApp.ActiveDocument.Bookmarks(i).Name & vbCrLf
Next
MsgBox sStr
wdApp.ActiveDocument.Bookmarks("Textmarke1").Range = Range("b1")
wdApp.ActiveDocument.Bookmarks("Textmarke2").Range = Range("b2")
wdApp.ActiveDocument.Bookmarks("Textmarke3").Range = Range("b3")
wdApp.ActiveDocument.Bookmarks("Textmarke4").Range = Range("b4")
wdApp.ActiveDocument.Bookmarks("Textmarke5").Range = Range("b5")
wdApp.ActiveDocument.Bookmarks("Textmarke6").Range = Range("b6")
wdApp.ActiveDocument.Bookmarks("Textmarke7").Range = Range("b7")
wdApp.ActiveDocument.Bookmarks("Textmarke8").Range = Range("b8")
Set wdApp = Nothing
End Sub

aus Excel (VBA) > Word (Formatiert) erzeugen und a

Forumthread: aus Excel (VBA) > Word (Formatiert) erzeugen und a

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Infobox / Tutorial

Excel in Word: Dokumente automatisiert erstellen

Schritt-für-Schritt-Anleitung

Häufige Fehler und Lösungen

Alternative Methoden

Praktische Beispiele

Tipps für Profis

FAQ: Häufige Fragen

Beliebteste Forumthreads (12 Monate)

aus Excel (VBA) > Word (Formatiert) erzeugen und a

Forumthread: aus Excel (VBA) > Word (Formatiert) erzeugen und a

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Infobox / Tutorial

Excel in Word: Dokumente automatisiert erstellen

Schritt-für-Schritt-Anleitung

Häufige Fehler und Lösungen

Alternative Methoden

Praktische Beispiele

Tipps für Profis

FAQ: Häufige Fragen

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread