Office - Word, Excel und Co. 9.753 Themen, 41.598 Beiträge

Word baut Verbindung beim Öffnen einer Datei auf

honsel01 / 15 Antworten / Flachansicht Nickles

Hallo, es bringt mich zur Verzweiflung. Die Mitarbeiter Nutzen beim erstellen eines Dokumentes immer ein bereits existierendes Dokument als Vorlage, anstatt die vorgegebene Dot-Datei. Hierdurch entsteht folgender Mißstand:


Beim Öffnen des Dokumentes versucht Word 2003/XP Verbindung zu einem Server aufzubauen, (der vor 100 Jahren mal im lokalen Netz lag - //nt-server/verzeichnis/vorlage.dot - , aber jetzt eben nicht mehr da ist) und Informationen aus einer Dot-Datei zu lesen, die aber eben auch schon ewig nicht mehr da ist.


Wie kann ich den Verweis auf die externe Vorlagendatei verhindern. Das Dokument enthält keinerlei Makros.


Vielen Dank

bei Antwort benachrichtigen
Und nu? Uli M
Uli M honsel01 „Ich hatte so etwas wie einen Verweis gesucht, aber eigentlich eetwas in der Art...“
Optionen

Wenn du etwas programmieren willst: die entscheidende Eigenschaft ist die AttachedTemplate-Eigenschaft eines Document-Objektes.
Du könntest z.B. mit FileSearch, Dir() oder mit WinApi's eine Dateiliste generieren und die Doks in einer Schleife abarbeiten. Alternativ den Usern ein entspr. Add-In zur Verfügung stellen.
Du überprüfst AttachedTemplate auf den ungültigen Netzwerkpfad und ersetzt durch den aktuellen. Wenn es immer nur um die gleiche Vorlage geht, sollte das easy sein. Dok dann speichern und schliessen.
Hierzu ein Bsp. für eine Routine in bel. *.do?:

Sub AktuelleVorlageZuweisen()
Const START_DIR = "U:\\Test"
' da sowohl ein UNC-Pfad eingetragen sein kann, wie bel. Mappings wird's letztlich noch etwas komplizierter, aber lösbar
Const ALTE_DOT = "\\\\AlterServer\\Allgemein\\Z-Vorlagen\\Stückliste.dot"
Const NEUE_DOT = "\\\\NeuerServer\\Allgemein\\Z-Vorlagen\\Stückliste2004.dot"
Dim objDoc As Word.Document
Dim L As Long, lCount As Long, lWork As Long

On Error Resume Next
With Application.FileSearch
.NewSearch
.LookIn = START_DIR
.SearchSubFolders = True
.FileName = "*.doc" ' hier wohl immer zutreffend
.Execute
lCount = .FoundFiles.Count
If lCount > 0 Then
' ggf.:
' Application.ScreenUpdating = False
For L = 1 To lCount
' Probleme können v.a. Dok's mit Makros, insb. Auto-Routinen und Seriendruck-Hauptdok's machen
Set objDoc = Documents.Open(.FoundFiles(L), False, False, False)
StatusBar = "Dokument " & L & " von " & lCount & " wird untersucht. Drücken Sie

bei Antwort benachrichtigen