Vorlagendatei hat den Server gewechselt - Word lädt ewig

        ...
        Function CopyText(szFullDockSourcePath,szFullDockDestPath)
        ...
        objSelectionNew.paste		
	objDocNew.SaveAs szFullDockDestPath, , False, "", True, "", False,False, False, False, False  
	on error resume next
        .....

Sub RemoveTemplatePathBatch()
Dim Dateiname As String, Verzeichnis As String
Verzeichnis = "<Verzeichnis das bearbeitet werden soll>"  
Dateiname = Dir(Verzeichnis & "*.doc", vbDirectory)  
Do While Dateiname <> ""  
' Dokument öffnen:  
Documents.Open FileName:=Verzeichnis & Dateiname
RemoveTemplatePath
'Aktionen am Dokument ausführen  

Dateiname = Dir
Loop
End Sub

Sub RemoveTemplatePath()
Dim OrigVorlage As String
Dim path As String
Dim AlterServer As String
Dim NeuerServer As String
Dim lenServer As Integer

AlterServer = "<alter Server>"  
NeuerServer = "<neuer Server>"  
lenServer = Len(AlterServer)
With Dialogs(wdDialogToolsTemplates)
    path = .Template
End With
    With ActiveDocument
    ' Prüfung, ob die Vorlageninfo im Dokument tatsächlich auf den  
    ' nicht mehr vorhandenen Server zeigt:  
    If Mid(path, 1, 9) = Mid(AlterServer, 1, 9) Then
        ' Ermittlung des ursprünglichen Vorlagennamens:  
        OrigVorlage = Mid(path, lenServer + 1, Len(path) - lenServer + 1)
        ' Weise Vorlage mit gleichem Namen im neuen Vorlagenpfad zu:  
        .AttachedTemplate = NeuerServer & OrigVorlage
        ' Aktuelles Dokument als nicht gespeichet markieren:  
        .Saved = False
        ' Änderungen speichern und Dokument schließen:  
        .Close SaveChanges:=wdSaveChanges, _
        OriginalFormat:=wdOriginalDocumentFormat
    Else
        ' Falls die Vorlage nicht auf dem nicht mehr vorhandenen Server liegt:  
        ' Dokument wieder schließen:  
        ActiveDocument.Saved = True
        ActiveDocument.Close
    End If
End With
End Sub