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 IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit

gelöst Vorlagendatei hat den Server gewechselt - Word lädt ewig

Mitglied: Mad-Eye

Mad-Eye (Level 1) - Jetzt verbinden

12.03.2008, aktualisiert 28.03.2008, 13643 Aufrufe, 12 Kommentare

Hallo erst mal,

und zwar haben wir in unserer Firma die Vorlagendateien von einem relativ alten Server auf einen anderen umgezogen. Zugriff ist auch sehr schnell und an sich funktioniert auch alles Problemlos. Jetzt ist allerdings ein Problem aufgetaucht, bei dem wir selbst nach stundenlangem Suchen zu keiner Lösung gekommen sind.

Als wir den alten Server abgeschaltet haben hatten fast alle unsere Word-Dokumente auf einmal eine Ladezeit Jenseits von Gut und Böse in Office 2003.

Zur Untersuchung des Problems haben wir die Dateien mit einer Office 2007 Installation geöffnet und siehe da er Versucht die Vorlagendatei noch auf dem alten Server zu holen. Das komische daran ist das die Freigabe auf die Word zugreifen will schon seit etwa 2 Wochen vor Ausschalten des Servers entfernt wurde. Also Server einfach wieder angeschaltet und seit dem läuft’s auch wieder flott.

So das kann aber doch keine endgültige Lösung sein einen Server am Laufen zu haben nur das er läuft. Gibt es einen Weg die Vorlagendatei per Script oder ähnliches automatisiert umzustellen oder gar aus dem Dokument zu entfernen?

Eine Änderung von Hand würde zwar funktionieren aber bei mehreren Tausend betroffenen Dateien keine Alternative.

Vieleicht hat ja einer von euch schon einmal dieses Problem gehabt oder eine gute Idee dazu, wäre sehr Dankbar.

MfG
Mad-Eye
Mitglied: Logan000
12.03.2008 um 13:50 Uhr
Folgendes VBS Skript sollte alle Docs aus einem Quellverz. öffnen.
den Inhalt in ein Neues Doc kopieren
und dieses mit altem namen in einem Zielverz speichern.

01.
Const WINDOW_HANDLE = 0 
02.
Const OPTIONS = 0 
03.
Const FILE_NAME = 0 
04.
 
05.
Set objFso = CreateObject("Scripting.FileSystemObject") 
06.
Set objShell = CreateObject("Shell.Application") 
07.
Set objWord = CreateObject("Word.Application") 
08.
 
09.
Set objSourceFolder = SelectFolder("Wählen Sie den Quellordner:") 
10.
szSourcePath = objSourceFolder.self.Path 
11.
 
12.
' Anwender Ziel ordner auswählen lassen  
13.
Set objDestFolder = SelectFolder("Wählen Sie den Zielordner:") 
14.
szDestPath = objDestFolder.self.Path 
15.
 
16.
' Alle Files Durchgehen 
17.
For Each strFileName in objSourceFolder.Items 
18.
	' Dateinamen holen 
19.
	szFilename = objSourceFolder.GetDetailsOf (strFileName, FILE_NAME) 
20.
	If Ucase(Right(szFilename,4)) = ".DOC" Then	' Nur Word Docs 
21.
		call CopyText(szSourcePath & "\" & szFilename, szDestPath & "\" & szFilename) 
22.
	end if 
23.
Next 
24.
 
25.
objWord.quit 
26.
 
27.
Function CopyText(szFullDockSourcePath,szFullDockDestPath) 
28.
	objWord.visible = true ' Nur zum Testen 
29.
	Set objDocOld = objWord.Documents.Open(szFullDockSourcePath)	 
30.
	Set objSelectionOld = objWord.Selection					 
31.
	objSelectionOld.WholeStory								 
32.
	objSelectionOld.Copy					 
33.
	Set objDocNew = objWord.Documents.Add()					 
34.
	Set objSelectionNew = objWord.Selection					 
35.
	objSelectionNew.paste		 
36.
	objDocNew.SaveAs szFullDockDestPath, 107, False, "", True, "", False,False, False, False, False 
37.
	on error resume next 
38.
	objDocOld.close 
39.
	objDocNew.close 
40.
end function 
41.
 
42.
Function SelectFolder(szText)	 
43.
	Set objFolder = objShell.BrowseForFolder(WINDOW_HANDLE, szText, OPTIONS, "")  
44.
	Set SelectFolder = objFolder 
45.
end Function
Bitte warten ..
Mitglied: Mad-Eye
12.03.2008 um 14:01 Uhr
Leider erhalte ich auf 3 Rechnern immer die Fehlermeldung

Skript: C:\Test.vbs
Zeile: 36
Zeichen: 2
Fehler: Wert nicht im Definitionsbereich
Code: 800A1200
Quelle Microsoft Word

Sagt dir das was Logan? Oder hat noch jemand anderes eine Idee?
Bitte warten ..
Mitglied: drop-ch
12.03.2008 um 20:46 Uhr
Hi Mad-Eye

Das ist ein bekanntes Problem.
Microsoft bietet das Tool RHD (Remove Hidden Data) welches noch mehr kann als diesen Fehler beheben. Man kann das Programm via CMD auch über mehrere Dateien rattern lassen.
Nachteil: Die neu erstellten Word-Dateien haben per default die Funktion "Schreibschutz empfehlen" aktiviert. Dies führt dazu, dass beim Öffnen eine Schreibschutz-Abfrage erscheint. Somit ist dieses Tool für Firmen unbrauchbar.

Auch ich bin seit langem auf der Suche nach einer massentauglichen Lösung. Werde mit das Script von Logan000 angucken. thx

gretz drop

btw: die Ladezeiten betragen 30 Sekunden. In dieser Zeit sucht er den Server und läuft danach in ein TimeOut
Bitte warten ..
Mitglied: Logan000
13.03.2008 um 08:54 Uhr
Versuchs mal so:
01.
        ... 
02.
        Function CopyText(szFullDockSourcePath,szFullDockDestPath) 
03.
        ... 
04.
        objSelectionNew.paste		 
05.
	objDocNew.SaveAs szFullDockDestPath, , False, "", True, "", False,False, False, False, False 
06.
	on error resume next 
07.
        .....
Bitte warten ..
Mitglied: Mad-Eye
13.03.2008 um 09:38 Uhr
Hallo,

das Script funktioniert mit der geänderten Zeile, allerdings habe ich zum Test ein paar Word-Dateien konvertiert und dabei habe ich festgestellt das die Formatierung teilweise flöten geht.

Gerade bei Tabellen ändert sich die Höhe der Zeilen bei uns, ansonsten echt eine feine Sache. Nur dadurch ist es in unserem Fall komplett unbrauchbar.

Nun ein paar weitere Gedanken zu Workarounds:

Kann man vieleicht den Time-out auf 1 Sekunde setzten?

einfach einen DNS-Eintrag erstellen der den alten Namen des Servers auf einen bestehenden Übersetzt? Weil Trotz das die Vorlagendatei nicht vorhanden ist geht die Datei fast sofort auf wenn der Server erreichbar ist.

Hoffentlich kommen wir irgendwann auf eine etwas sauberere Lösung

Servus
Mad-Eye
Bitte warten ..
Mitglied: 32393
27.03.2008 um 15:46 Uhr
Hallo zusammen,

also ich hab genau das gleiche Problem. Kann man den Server, auf den das Dokument zugreift, irgendwo herrauslesen? Bin mir nämlich nicht sicher welcher genau das ist...

Danke
Grüße
Bitte warten ..
Mitglied: Mad-Eye
28.03.2008 um 07:09 Uhr
Ja wenn man das Dokument zum Beispiel mit Office 2007 öffnet sieht man ganz unten im Fenster welche Vorlage er laden will.
Bitte warten ..
Mitglied: Mad-Eye
04.03.2009 um 15:38 Uhr
Lösung: Wir haben es mit einem gefälschten DNS Eintrag gelöst bis das Office 2007 Rollout bei uns fertig war.

Der Sauberkeit halber als gelöst markiert^^
Bitte warten ..
Mitglied: bjoernanger
06.04.2010 um 16:38 Uhr
Hallo,

schön, das ihr das gelöst habt. Aber diese Option haben wir leider nicht, da wir den Server endgültig loswerden wollen.

Hat vielleicht jemand inzwischen eine andere Lösung gefunden?
Ich bin für jede Hilfe dankbar.

Gruß
Bitte warten ..
Mitglied: bjoernanger
08.04.2010 um 10:19 Uhr
Hallo zusammen,

ich habe inzwischen eine Interessante Lösung gefunden. Jetzt haben wir allerdings das Problem, das mit dem Script nur ein Verzeichnis abgearbeitet wird. Kann jemand das so "tunen" das es rekuriv alle Unterverzeichnisse abarbeitet :

Hier das Script
01.
Sub RemoveTemplatePathBatch() 
02.
Dim Dateiname As String, Verzeichnis As String 
03.
Verzeichnis = "<Verzeichnis das bearbeitet werden soll>" 
04.
Dateiname = Dir(Verzeichnis & "*.doc", vbDirectory) 
05.
Do While Dateiname <> "" 
06.
' Dokument öffnen: 
07.
Documents.Open FileName:=Verzeichnis & Dateiname 
08.
RemoveTemplatePath 
09.
'Aktionen am Dokument ausführen 
10.
 
11.
Dateiname = Dir 
12.
Loop 
13.
End Sub 
14.
 
15.
Sub RemoveTemplatePath() 
16.
Dim OrigVorlage As String 
17.
Dim path As String 
18.
Dim AlterServer As String 
19.
Dim NeuerServer As String 
20.
Dim lenServer As Integer 
21.
 
22.
AlterServer = "<alter Server>" 
23.
NeuerServer = "<neuer Server>" 
24.
lenServer = Len(AlterServer) 
25.
With Dialogs(wdDialogToolsTemplates) 
26.
    path = .Template 
27.
End With 
28.
    With ActiveDocument 
29.
    ' Prüfung, ob die Vorlageninfo im Dokument tatsächlich auf den 
30.
    ' nicht mehr vorhandenen Server zeigt: 
31.
    If Mid(path, 1, 9) = Mid(AlterServer, 1, 9) Then 
32.
        ' Ermittlung des ursprünglichen Vorlagennamens: 
33.
        OrigVorlage = Mid(path, lenServer + 1, Len(path) - lenServer + 1) 
34.
        ' Weise Vorlage mit gleichem Namen im neuen Vorlagenpfad zu: 
35.
        .AttachedTemplate = NeuerServer & OrigVorlage 
36.
        ' Aktuelles Dokument als nicht gespeichet markieren: 
37.
        .Saved = False 
38.
        ' Änderungen speichern und Dokument schließen: 
39.
        .Close SaveChanges:=wdSaveChanges, _ 
40.
        OriginalFormat:=wdOriginalDocumentFormat 
41.
    Else 
42.
        ' Falls die Vorlage nicht auf dem nicht mehr vorhandenen Server liegt: 
43.
        ' Dokument wieder schließen: 
44.
        ActiveDocument.Saved = True 
45.
        ActiveDocument.Close 
46.
    End If 
47.
End With 
48.
End Sub


Das Script stammt von http://support.microsoft.com/kb/509511/de

Ich bin für jede Hilfe dankbar.
Bitte warten ..
Mitglied: Mad-Eye
08.04.2010 um 11:15 Uhr
Könnt Ihr nicht trotzdem den DNS Eintrag fälschen? Also Server Weg DNS-Eintrag auf einen bestehenden?
Bitte warten ..
Mitglied: bjoernanger
08.04.2010 um 15:28 Uhr
Ja, generell könnten wir das machen und ich hab bei ein paar Benutzern einen Eintrag in die hosts-Datei gemacht. Damit funktioniert's. Allerdings bin ich kein Freund solcher Sachen.

Ich halte das Script für die bessere Lösung, weil damit nicht das Symptom sondern die Ursache bekämpft wird.
Bitte warten ..
Ähnliche Inhalte
Windows Server

Gruppenrichtlinien Windows-Einstellungen Vorlagendatei?

Frage von AlbertMinrichWindows Server2 Kommentare

Hallo, die Gruppenrichtlinieneinstellungen Benutzerkonfiguration Administrative Vorlagen und Computererkonfiguration Administrative Vorlagen basieren ja auf adm- bzw. admx-Dateien, die man anschauen, ...

Windows Update

"WSUS Offline" - Windows 8.1 Enterprise Clients - Update lädt ewig

Frage von andrewwWindows Update1 Kommentar

Hallo, hat jemand Tips bzgl. des als bereits "gelösten Beitrages" (siehe url unten) bei Windows 8.1 - welche manuelle ...

Windows Server

Windows Server 2012 lädt keine Updates

Frage von AVG123Windows Server4 Kommentare

Hallo, ich stehe hier leider seit gestern vor einem größeren Problem, das mich so langsam verzweifeln lässt. Ich hatte ...

Outlook & Mail

Outlook2013 lädt Mails nur sporadisch vom Server

gelöst Frage von Dieter-56Outlook & Mail7 Kommentare

Hallo, habe seit drei Tagen ein ganz seltsames Problem. zuerst: Win7 SP1 64bit mit Outlook 2013 Seit der Installation, ...

Neue Wissensbeiträge
Humor (lol)

WhatsApp-Nachrichten endlich auch per Bluetooth versendbar

Information von BassFishFox vor 27 MinutenHumor (lol)

Genau darauf habe ich gewartet! ;-) Der beliebte Messaging-Dienst WhatsApp erhält eine praktische neue Funktion: Ab dem nächsten Update ...

Google Android

Googles "Android Enterprise Recommended" für Unternehmen

Information von kgborn vor 13 StundenGoogle Android3 Kommentare

Hier eine Information, die für Administratoren und Verantwortliche in Unternehmen, die für die Beschaffung und das Rollout von Android-Geräten ...

Sicherheit

Intel gibt neue Spectre V2-Microcode-Updates frei (20.02.2018)

Information von kgborn vor 13 StundenSicherheit

Intel hat zum 20. Februar 2018 weitere Microcode-Updates für OEMs freigegeben, um Systeme mit neueren Prozessoren gegen die Spectre ...

Microsoft
ARD-Doku - Das Microsoft Dilemma
Tipp von Knorkator vor 16 StundenMicrosoft3 Kommentare

Hallo zusammen, vor einigen Tagen lief in der ARD u.a. Reportage. Das Youtube Video dazu dürfte länger verfügbar sein. ...

Heiß diskutierte Inhalte
Windows Server
AD DS findet Domäne nicht, behebbar?
Frage von schapitzWindows Server40 Kommentare

Guten Tag, ich habe bei einem Kunden ein Problem mit den AD DS. Umgebung ist folgende: Windows Server 2016 ...

Router & Routing
LANCOM VPN CLIENT einrichten
Frage von Finchen961988Router & Routing27 Kommentare

Hallo, ich habe ein Problem und hoffe ihr könnt mir helfen, wir haben einen Kunden der hat einen Speedport ...

Router & Routing
ISC DHCP 2 Subnetze
gelöst Frage von janosch12Router & Routing19 Kommentare

Hallo, ich betreibe bei mir im Netzwerk einen ISC DHCP Server auf Debian, der DHCP verwaltet aktuell ein /24 ...

Switche und Hubs
Cisco SG350X-48 AdminIP in anderes VLAN
Frage von lcer00Switche und Hubs14 Kommentare

Hallo zusammen, ich habe ein Problem mir einem Cisco SG350X-48 bei der Erstinstallation wurde eine IP 192.168.0.254 (Default VLAN ...