If Left(LCase(ActiveDocument.AttachedTemplate.FullName), Len(strServerAlt)) = _
   LCase(strServerAlt) Then
                  With ActiveDocument
                        .AttachedTemplate.FullName = Replace( _
                          .AttachedTemplate.FullName, strServerAlt, _
                          strServerNeu)
                        .Save 'verhindert, dass Speichernachfrage kommt
                        .Close
                  End With
              Else
                  ActiveDocument.Close