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

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

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

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

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

Beliebteste Forumthreads (12 Monate)

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

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

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

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

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread