Top-Themen

Aktuelle Themen (A bis Z)

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWünsch Dir wasWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit

gelöst Office 2010, Word Verknüpfte Vorlage per VBA entfernen

Mitglied: pixel24

pixel24 (Level 2) - Jetzt verbinden

18.01.2014 um 09:33 Uhr, 10126 Aufrufe, 13 Kommentare

Hallo zusammen,

wir haben in vielen Dokumenten in Word eine Vorlagen-Verknüpung (Datei -> Optionen -> AddIns -> Vorlagen enthalten die nicht mehr relevant sind und entfernt werden müssen.

Diese zeigen auf einen alten Server der nicht mehr existiert und deshalb dauert das öffnen der Dokumente eine kleine Ewigkeit. Diese Verknüpfungen sehen in etwa so aus:

\\192.168.3.1\daten\WBS\Personal\Arbeitsvertraege EUR\die_alte_vorlage.dotx

Nun ist es nicht machbar alle Dokumente per Hand zu öffen und diese Verknüpfung zu entfernen. Bei Microsoft habe ich hierzu folgenden Artikel bzw. Lösung mittels VBA gefunden:

http://support.microsoft.com/?kbid=830561#4

Habe darin also lediglich die Variable OldServer entsprechend angepasst:


Sub Test()
Dim strFilePath As String
Dim strPath As String
Dim intCounter As Integer
Dim strFileName As String
Dim OldServer As String
Dim objDoc As Document
Dim objTemplate As Template
Dim dlgTemplate As Dialog
Dim nServer As Integer

'hardcode the name of the old server.

OldServer = "{192.168.3.1}"
nServer = Len(OldServer)
strFilePath = InputBox("What is the folder location that you want to use?")

If Right(strFilePath, 1) <> "\" Then strFilePath = strFilePath & "\"

strFileName = Dir(strFilePath & "*.doc")
Do While strFileName <> ""
Set objDoc = Documents.Open(strFilePath & strFileName)
Set objTemplate = objDoc.AttachedTemplate
Set dlgTemplate = Dialogs(wdDialogToolsTemplates)
strPath = dlgTemplate.Template

If LCase(Left(strPath, nServer)) = LCase(OldServer) Then
objDoc.AttachedTemplate = NormalTemplate
End If

strFileName = Dir()
objDoc.Save
objDoc.Close
Loop

Set objDoc = Nothing
Set objTemplate = Nothing
Set dlgTemplate = Nothing

End Sub

Wenn ich das Skript starte wir der Pfad abgefragt und es werden auch die Dokumente geöffnet und wieder geschlossen aber danach ist die Verknüpfung noch immer enthalten. Was mache ich falsch?

Viele Grüße
pixel24
Mitglied: colinardo
LÖSUNG 18.01.2014, aktualisiert 28.05.2014
Hallo pixel24,
hatte hier dazu schon mal ein ähnliches VBS-Script gespostet, das den Servernamen im Template durch einen anderen ersetzt. Habe es dir nun so angepasst das es das verknüpfte Template auf die Normal.dotm zurücksetzt. Das Script durchläuft einen Ordner rekursiv und ändert alle Word-Dokumente mit den Endungen *.doc / *.docx / *.docm. Ob rekursiv oder nicht lässt sich mit dem zweiten Parameter in Zeile 14 ändern (True in False ändern)
In Zeile 2 muss der Pfad zum Root-Ordner der durchsucht werden soll angegeben werden, in Zeile 4 ein Pfad zu einer Log-Datei die im Fehlerfall die betreffenden Dokumente auflistet, und in Zeile 6 der Servername welcher im Template vorkommen muss damit die Vorlage zurückgesetzt wird.
VBS-Script
Grüße Uwe
Bitte warten ..
Mitglied: pixel24
18.01.2014 um 10:34 Uhr
ich bin absolut nicht bewandert in VBA/Makros. Das Skript was ich von der MS-Seite habe fänt mit 'Sub Test' an und endet mit 'End Sub'. Dass scheint der Name des Makros zu sein. Bei deinem Skript ist es 'Function. Bau ich da ein Sub drum herum?
Bitte warten ..
Mitglied: colinardo
LÖSUNG 18.01.2014, aktualisiert 27.01.2014
Zitat von pixel24:

ich bin absolut nicht bewandert in VBA/Makros. Das Skript was ich von der MS-Seite habe fänt mit 'Sub Test' an und
endet mit 'End Sub'. Dass scheint der Name des Makros zu sein. Bei deinem Skript ist es 'Function. Bau ich da ein
Sub drum herum?
Das ist ein VBS-Script, welches du nicht in ein Word-VBA-Projekt einbaust sondern in eine Textdatei mit der Endung *.vbs einfügst und es dann per Doppelklick startest.

Grüße Uwe
Bitte warten ..
Mitglied: pixel24
22.01.2014 um 07:18 Uhr
Hallo,

habe also die Datei als test.vbs gespeichert und die Die Pfade angepasst. Wenn ich es ausführe wird auch das Dokument (zum testen nur eines) welches im Pfad liegt geöffnet und anschließend wieder geschlossen.

Wenn ich jedoch anschließend versuche dieses Dokument ganz normal zu öffnen erscheint wieder:

Kontaktaufnahme: \\192.168.3.1\daten\WBS\Personal\Arbeitsvertraege EUR\die_alte_vorlage.dotx

also ist die Vorlage nach wie vor enthalten. Woran kann das liegen?

Viele Grüße
pixel24
Bitte warten ..
Mitglied: colinardo
LÖSUNG 22.01.2014, aktualisiert 27.01.2014
poste mal ein Link zur Datei, du kannst ja alles private daraus entfernen ...
Bitte warten ..
Mitglied: colinardo
LÖSUNG 25.01.2014, aktualisiert 27.01.2014
OK, zuerst mal solltet Ihr sicherstellen das der alte Serverpfad vorübergehend wieder erreichbar ist damit der Batchvorgang schneller vonstatten geht und Word nicht unendlich auf die verknüpfte Vorlage wartet.
Habe den obigen Code geringfügig angepasst, sollte damit jetzt einwandfrei laufen; habe es mit deinem Dokument positiv getestet.

Grüße Uwe
Bitte warten ..
Mitglied: pixel24
25.01.2014 um 11:43 Uhr
Den alten Server-Pfad zur Verfügung stellen wäre nur schwer möglich da das neue Netz in einem ganz anderen Bereich (Netmask) liegt. Die Zeit wäre nicht so tragisch da ich es in Häppchen jeweils über's Wochenende laufen lassen würde.

Klappt es trotzdem, auch wenn der alte Pfad nicht erreichbar ist?
Bitte warten ..
Mitglied: colinardo
LÖSUNG 25.01.2014, aktualisiert 27.01.2014
Zitat von pixel24:
Den alten Server-Pfad zur Verfügung stellen wäre nur schwer möglich da das neue Netz in einem ganz anderen Bereich
(Netmask) liegt.
Klappt es trotzdem, auch wenn der alte Pfad nicht erreichbar ist?
ja, aber eben langsamer.
Du kannst doch via Hosts-Datei den Pfad entsprechend auf einen anderen Server umbiegen wo die alten Vorlagen liegen, das ist doch kein Problem ....

z.B. so auf die 192.168.1.3 auf die 10.10.20.4 umbiegen:
Hosts-File
Bitte warten ..
Mitglied: pixel24
27.01.2014 um 09:43 Uhr
ok, dass ich die Hosts-Datei auch zur IP-IP - Suflösung nutzen kann wusste ich nicht. Danke , für den Hinweis. Wieder etwas gelernt.

Zum Skript. Ich fehlerfrei durch gelaufen.

VIELEN HERZLICHEN DANK!!
Bitte warten ..
Mitglied: frankmann2
30.03.2015 um 13:49 Uhr
Vielen Dank, hatte das gleiche Problem - HATTE
Gruß
Frank
Bitte warten ..
Mitglied: colinardo
30.03.2015, aktualisiert um 14:01 Uhr
Zitat von frankmann2:
Vielen Dank, hatte das gleiche Problem - HATTE
Hallo Frank,
falls es dich noch interessiert, ich hatte dazu auch eine Powershell-Version entwickelt die auch ohne das einzelne Öffnen der Dateien auskommt.
Pfad der Dokumentenvorlage mit einem Powershell Script ändern?

Grüße Uwe
Bitte warten ..
Mitglied: frankmann2
30.03.2015 um 15:44 Uhr
Hallo Uwe,
werde ich morgen ausproblieren.Hast mir sehr geholfen, Danke.

Grüße Frank
Bitte warten ..
Ähnliche Inhalte
VB for Applications
VBA in Word 2010 bzw 2013(16)
gelöst Frage von ahstaxVB for Applications11 Kommentare

Hallo, wir haben hier folgendes Word-Makro: Es wird bei der Abarbeitung eines Dokuments durch eine Bürosoftware ausgeführt (überprüft!). Anschließend ...

Microsoft Office
Word 2010 Vorlage
gelöst Frage von veniplexMicrosoft Office6 Kommentare

Hallo zusammen, ich verzweifel gerade Ich möchte in Word 2010 eine neue Vorlage erstellen, der Witz ist aber: Sobald ...

VB for Applications

VBA Word - dynamische Textformatierung mittels vba in Bausteinkatalogelementen

gelöst Frage von Pat.batVB for Applications5 Kommentare

Hallo zusammen, ich arbeite derzeit an einem Skript, das beim öffnen des Dokuments alle ContentControls sucht und diese farblich ...

Datenbanken

Syntaxfehler VBA Access 2010

gelöst Frage von Dr.CornwallisDatenbanken6 Kommentare

Liebe Gemeinde, ich habe (schon wieder) einen Fehler im Code und ich komm einfach nicht drauf warum es nicht ...

Neue Wissensbeiträge
Sicherheit

Eine ungepatchte Sicherheitslücke in der Windows Druckerwarteschlange ermöglicht das Ausführen von Malware mit Adminrechten

Information von transocean vor 52 MinutenSicherheit

Moin, eigentlich sollte die Sicherheitslücke schon seit Mai 2020 geschlossen sein. Aber lest selbst. Grüße Uwe

Erkennung und -Abwehr

Liste ungeschützter Pulse-VPN-Server veröffentlicht

Information von Visucius vor 2 TagenErkennung und -Abwehr

bzw. Der tiefe Blick in die Profi-Administratoren-Welt ;-)

Windows 10

Windows Defender verhindert Telemetrieblocking via hosts-Datei

Information von BirdyB vor 2 TagenWindows 102 Kommentare

Für diejenigen, die keine Daten an MS senden wollten, war die hosts-Datei manchmal eine Option.

Monitoring

Unabhängiger Ansatz - IoT (frei von Cloud- oder Appzwang) - Hier mit Schaltsteckdosen

Anleitung von beidermachtvongreyscull vor 4 TagenMonitoring2 Kommentare

Tach Kollegen, ich erzähle Euch mal von meiner Ausgangslage und den/m Problem(chen) Ich benutze ein NAS zur Lagerung meiner ...

Heiß diskutierte Inhalte
Off Topic
Arbeitsangebot
gelöst Frage von CoffeeJunkieOff Topic27 Kommentare

Da meine Firma massiv Stellen abbaut, bin ich auf der Suche nach einem neuen Job Basis Fakten: Abschuß Fisi ...

Server
Verbindung zum Linux Server nicht möglich
gelöst Frage von it-fraggleServer13 Kommentare

Hallo zusammen, habe gerade ein sonderbares Problem auf dessen Lösung ich gerade nicht komme. Wir haben hier seit einigen ...

DSL, VDSL
Nutzung zweier VDSL Anschlüsse an einer TAE Dose
Frage von PullorDSL, VDSL10 Kommentare

Hi, ich würde gerne bei mir zu Hause einen zweiten VDSL Tarif (eines anderen Providers) als failover buchen. Nur ...

Server-Hardware
Shop für Serverteile
Frage von thomas-hnServer-Hardware10 Kommentare

Hallo, als Privatanwender ist es oft nicht ganz so einfach professionelle Server-Hardware bzw. Zubehörteile zu kaufen. Welche seriösen Onlineshops ...

Weniger Werbung?
Administrator Magazin
07 | 2020 In der Juli-Ausgabe beleuchtet das IT-Administrator Magazin den Themenschwerpunkt "Monitoring & Support". Darin zeigt die Redaktion unter anderem, wie Sie die Leistung von Terminalservern im Blick behalten und welche Neuerungen das Ticketsystem OTRS 8 mitbringt. Auch die Überwachung von USV-Anlagen darf nicht fehlen. In ...