Hallo zusammen,

ich versuche gerade mithilfe von vba aus einem Word-Template, welches beim mir im Unternehmen in Sharepoint abgelegt ist eine Word-Datei zu erstellen. Das Dokument wird dann aus einer Excel befüllt.... Sofern das Template Lokal auf meinem Laufwerk abgespeichert ist funktioniert das ganze problemlos. Sobalt ich aber den Sharepoint link einfüge kommt nur die Fehlermeldung: Laufzeitfehler '5941': Das angeforderte Element ist nicht in der Sammlung vorhanden.

Der Code schaut wie folgt aus:

Sub word1()
'
' word1 Makro
'

'

Dim appWord     As Object
Dim docWord     As Object
Dim wks         As Worksheet

Set wks = ThisWorkbook.Worksheets("Vorlage")
Set appWord = CreateObject("Word.Application")
Set docWord = appWord.Documents.Add("https://sharepoint.LINKLINKLINK/DocIdRedir.aspx?ID=T75R2UVPYUUS-1078821679-208")
appWord.Visible = True

With docWord
.Bookmarks("Header1").Range.Text = wks.Range("B1").Value
.Bookmarks("Header2").Range.Text = wks.Range("B2").Value
.Bookmarks("Date").Range.Text = wks.Range("B3").Value
.Bookmarks("Place").Range.Text = wks.Range("B4").Value
.Bookmarks("Partner").Range.Text = wks.Range("B5").Value
.Bookmarks("Intro1").Range.Text = wks.Range("B7").Value
.Bookmarks("Position").Range.Text = wks.Range("B8").Value
.Bookmarks("Expect").Range.Text = wks.Range("B9").Value
.Bookmarks("Topic1").Range.Text = wks.Range("B10").Value
.Bookmarks("Topic2").Range.Text = wks.Range("B11").Value
.Bookmarks("Topic3").Range.Text = wks.Range("B12").Value
.Bookmarks("Topic4").Range.Text = wks.Range("B13").Value
.Bookmarks("Topic5").Range.Text = wks.Range("B14").Value
.Bookmarks("Topic6").Range.Text = wks.Range("B15").Value
.Bookmarks("Topic7").Range.Text = wks.Range("B16").Value
.Bookmarks("Intro2").Range.Text = wks.Range("B17").Value
.Bookmarks("Talk1").Range.Text = wks.Range("B18").Value
.Bookmarks("Talk2").Range.Text = wks.Range("B19").Value
.Bookmarks("Talk3").Range.Text = wks.Range("B20").Value
.Bookmarks("Talk4").Range.Text = wks.Range("B21").Value
.Bookmarks("Talk5").Range.Text = wks.Range("B22").Value
.Bookmarks("Ending").Range.Text = wks.Range("B24").Value
.Bookmarks("Signature").Range.Text = wks.Range("B25").Value
.Bookmarks("Test").Range.Text = wks.Range("B21").Value
.Bookmarks("Supertest").Range.Text = wks.Range("B21").Value
.Bookmarks("Megatest").Range.Text = wks.Range("B21").Value
.Bookmarks("Hypertest").Range.Text = wks.Range("B21").Value
End With
End Sub

Hab den Code von einem Kollegen, der aber diesbzgl. auch nicht weiter weiß und selber benutz ich VBA gerade zum ersten mal. Bin daher für jede Hilfe dankbar^^