Verknüpfung zu neuem Worddokument
26.08.2021 20:08:39
Bioniker
vorab Vielen Dank für eure Arbeit im Forum, ihr habt mir schon bei vielen Problemen geholfen.
Nun bin ich leider wieder etwas ratlos.
In meinem Excelsheet trägt der User ein Wort in eine Zelle ein und am Ende wird ein Dokument, mit der Eingabe als Dokumentenname erstellt (siehe unten, strDoc enthält dabei Pfad+Name).
Nun soll der Benutzer aber in dem Dokument einen Status angeben können, so etwas wie ToDo/in Bearbeitung/Fertig. Diese Status soll in Excel wiederrum ausgelesen werden können, um die anfangs beschriebene Zelle einzufärben.
Jetzt bin ich nach langen Suchen leider auf keine Möglichkeit gestoßen, wie ich bei dem Dokumentations-erstellungsprozess noch eine Verknüpfung von Word nach Excel hinzufügen kann. Hat von euch jemand eine Idee oder ein Stichwort, in das ich mich weiter einlesen kann.
Beste Grüße Bioniker
Sub dokumentErstellen(strDoc As String)
Dim wdDocument As Object
Dim App As Object
Set App = CreateObject("Word.Application")
Dim strTemplate As String
App.Visible = True
strTemplate = ThisWorkbook.Path + "\Vorlage.docx"
Set wdDocument = App.documents.Add(strTemplate)
wdDocument.SaveAs (strDoc)
Set wdDocument = Nothing
Set App = Nothing
End Sub