Das ist der Code (am schluss noch viele textmarken die ausgefüllt werden. den teil hab ich weg gelassen). Die unterschstrichene Zeile muss dann ersetzt werden, richtig? Ich frag mich nur, an welcher Stelle die Verknüpfung zu der Bibliothek kommt?
Sub WordExport()
Dim lngZeile As Long
Dim strName As String
Dim strNCRNr As String
Dim strDateiname As String
Dim strPath As String
'Ein Word-Objekt erstellen
Dim objWord As New Word.Application
strPath = "Z:\NCR\QS-FO 56 C Mängelfeststellungsbericht.dotx"
'Word sichtbar machen
objWord.Visible = True
'Ein neues Word-Dokument auf Basis der Vorlage erstellen
objWord.Documents.Add strPath
'Sicher stellen, dass das richtige Tabellenblatt aktiv ist
Sheets("NCR").Activate
'ermitteln der Zeile mit aktiver zelle
lngZeile = ActiveCell.Row
|