Mehreren geschütze Dokumente gleichzeitg ungeschütz kopieren

anfänger erstellt 29 Jan. 2015 11:22

Hallo zusammen

Ich weiss nicht ob ich den Beitrag in der richtige Forum eingestellt habe, denn es geht um SharePoint 2013 aber auch um VBA.

Folgendes:
Ausganglage Teil 1: Geschütze Dokumente befinden sich im Bibliothek A - um diese Dokumente zu bearbeiten werden kopiert und in einen andere Bibliothek gesendet.

Ich habe ein VBA Code gefunden - der Makro wird ins Office Word eingestellt.

Habe es so probiert und es funktioniert (allerdings nur auf C:\).
Der Prinzip ist die Passwort Geschütze Dokumente werden in einen andere Verzeichnis kopiert und das ohne Password somit die Daten bearbeitet werden können.

Hier den Code:

 Sub WordDateienEntsperren()
 
 ' Entfernt das Passwort von allen Word-Dateien aus Quelle und
 ' schreibt die Worddateien ohne Passwort nach Ziel
 Const Quellverzeichnis = "C:\test"
 Const Zielverzeichnis = "C:\test"
 Const MyPasswort = "1234"

 Dim DatNam As String
 DatNam = Dir(Quellverzeichnis & "\*.doc") '1. Dateinamen holen
 Do Until DatNam = "" 'Alle Files im VZ abklappern
 ' Worddatei mit Passwort öffnen
 Documents.Open FileName:=Quellverzeichnis & "\" & DatNam, ConfirmConversions:=False, ReadOnly:= _
 False, AddToRecentFiles:=False, PasswordDocument:=MyPasswort, PasswordTemplate:= _
 "", Revert:=False, WritePasswordDocument:=MyPasswort, WritePasswordTemplate:= _
 "", Format:=wdOpenFormatAuto

 ' Worddatei ohne Passwort schreiben
 ActiveDocument.SaveAs FileName:=Zielverzeichnis & "\" & DatNam, FileFormat:=wdFormatDocument, _
 LockComments:=False, Password:="", AddToRecentFiles:=True, WritePassword _
 :="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _
 SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:= _
 False

 ' Dokument schließen
 ActiveDocument.Close

 ' nächste Datei holen
 DatNam = Dir
 Loop
 End Sub

Das Problem:

 Const Quellverzeichnis = "C:\test"
hier habe ich die SharePoint URL eingegeben
 Const Zielverzeichnis = "C:\test"
hier habe ich die SharePoint URL eingegeben
 Const MyPasswort = "1234"

Dim DatNam As String
 DatNam = Dir(Quellverzeichnis & "\*.doc") '1. Dateinamen holen
hier das .doc durch docx geändert

und bekomme die Fehlermeldung: Laufzeitfehler "52"
Dateiname oder -nummer falsch.

Verwendet wird Office Word 2010 - und SharePoint 2013
Kann das sein, dass die SharePoint URL Probleme macht
Ich habe aus der Hilfe die Fehlermeldung nachgelesen - doch ich begreife meine Fehler nicht.

Danke fürs Feedback.
Gruss Liliane