Hallo zusammen,
ich bin ein absoluter Neuling im VBA Bereich und häng an einem, wahrscheinlich kleinen, Problemchen :(
ein Makro in einem Masterdokument innerhalb einer SharePoint Bibliothek soll alle anderen Dokumente darin automatisch anhängen.
lokal funktioniert das soweit ganz gut, allerdings musste ich feststellen, dass die Funktion ChDir leider nicht mit URL's umgehen kann.
gibt es hier ggf. eine simple andere Lösung? wäre für einen kurzen Tipp sehr dankbar :)
soweit mein Code:
Private Sub Button101_Click()
Dim lobjWord As Word.Application
Dim lwrdDoc As Word.Document
Set lobjWord = CreateObject("Word.Application")
Set lwrdDoc = lobjWord.Documents.Add("")
ChDir ThisDocument.Path 'leider keine URL möglich
myName = Dir("*.DOCX")
While myName <> ""
With Selection
.InsertFile FileName:=myName, ConfirmConversions:=False
.InsertParagraphAfter
' .InsertBreak Type:=wdSectionBreakNextPage
.Collapse Direction:=wdCollapseEnd
End With
myName = Dir()
Wend
End Sub
Danke im Vorraus!!
beste Grüße aus FFM
Tobias |