UNC-Pfad in etlichen Word-Dokumenten (Verzeichnis) per Script ändern möglich?

Hallo Zusammen,

seit unser Novellserver endlich aus ist haben wir vermehrt Probleme mit Word Dokumenten. Das Öffnen dauert seitdem nämlich sehr lange.
Habe lange gerätselt woran das liegen kann und letztlich herausgefunden, dass in diesen Dokumenten unter Dokumentenvorlge ein UNC-Pfad auf unseren alten Novell Server eingetragen ist. Da kann man auch manuell ändern in dem man wie folgt vorgeht

1. ggf. Dokumentenschutz aufheben.

2. Extras --> Vorlagen und Add-Ins

3. Entfernen des alten Vorlagenpfades (alles rauslöschen!), siehe Bild

4. Dokumentenschutz wieder aktivieren

5. Dokument speichern

Mehr Infos zum Problem findet Ihr hier: http://support.microsoft.com/default.aspx?scid=kb;de;D509511

Da es sich in unserem Fall aber nicht um 5-10 Dokumente Handelt sondern um 200-500 würde ich das ganze lieber von einem Script ändern lassen.

Habe dazu auch schon was gefunden. Leider handelt es sich dabei um ein VBA-Macro ich würde lieber ein VB-Script haben. Gibt es so was vielleicht schon?

Sub Remove_Template_UNC_Path()
Dim sFileName As String
Dim sFolder As String

'Replace with your foldername  
sFolder = "f:\test"  
sFileName = Dir(sFolder & "*.doc")  

  Do While sFileName <> ""  
  Documents.Open (sFolder & sFileName)
    
'Attach new template  
ActiveDocument.AttachedTemplate = ""  
ActiveDocument.Close savechanges:=wdSaveChanges
sFileName = Dir()
Loop
End Sub

Leider macht der immer einen \ nach oder vor jedem ", \, ' wie kann ich das abschalten?

Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben

Content-ID: 31091

Url: https://administrator.de/forum/unc-pfad-in-etlichen-word-dokumenten-verzeichnis-per-script-aendern-moeglich-31091.html

Ausgedruckt am: 22.12.2024 um 15:12 Uhr

4 Kommentare

Neuester Kommentar

Wie passe ich das Script so an, dass es alle *.doc Dateien in allen Unterordnern ändert?

Hallo,

Habe exakt das selbe Problem.
Wie kann man automatisiert den Pfad rauslöschen?
http://support.microsoft.com/default.aspx?scid=kb;de;D509511
mit diesem Codebeispiel komme ich nicht zurecht.
Wo füge ich das ein?
Wenn ich bei Word unter Extras->Makro->Makros->Erstellen klicke und den Code hier einfüge, dann speicher, werden in der Übersicht 3 Makros aufgeführt. ICh kann aber nur eins Ausführen.

Also wie geht das richtig?

Grüße