wenn ich an stelle von
Set WordApp = CreateObject("Word.Application")
With WordApp
.Visible = True
.WindowState = 1
AppActivate .Caption
.Documents.Open Filename:="C:\Users\IDM117654\Documents\Lieferschein.docx"
End With
den UNC Pfad eingebe funktioniert das leider nicht.