Nach Domain Change Pfade anpassen

# --- Variablen ---------------------------
# Alter und neuer Servername angeben
$serverold = "\\oldserver"  
$servernew = "\\newserver"  

# Ordner der *.docx und *.docm Dateien enthält und rekursiv verarbeitet wird
$folder = "D:\word-dateien"  
# --------------------------------------

# Benötigt wird mindestens NET-Framework 4.5 und Powershell 3.0
if ($PSVersionTable.PSVersion.Major -lt 3){write-host "ERROR: Minimum Powershell Version 3.0 is required!" -F Yellow; return}   

# benötigte Assemblies laden
Add-Type -AssemblyName System.IO.Compression
Add-Type -AssemblyName System.IO.Compression.Filesystem

gci "$folder\*" -Include '*.docx','*.docm' -File -Recurse | %{  
    # Excel File als ZIP-Datei im Update-Modus öffnen
    $zipfile = [System.IO.Compression.ZipFile]::Open($_.FullName,[System.IO.Compression.ZipArchiveMode]::Update)
    
    # Einträge der benötigte Dateien aus dem Dokument holen
    $entries = $zipfile.Entries | ?{$_.FullName -match '^word/_rels/.*?\.rels$'}  
    $remove = @()
    $entries | %{
        $tmp = "$env:TEMP\$($_.Name)"  
        if (Test-Path $tmp){del $tmp -Force -ErrorAction SilentlyContinue}
        
        # file entry extrahieren
        [System.IO.Compression.ZipFileExtensions]::ExtractToFile($_,$tmp)

        $content = gc $tmp
        if ($content -match [regex]::Escape($serverold)){
            # Einträge ersetzen
            $content -replace [regex]::Escape($serverold),$servernew | Set-Content $tmp -Encoding UTF8
            # geänderte Datei wieder hinzufügen
            [System.IO.Compression.ZipFileExtensions]::CreateEntryFromFile($zipfile,$tmp,$_.FullName) | out-null
            $remove += $_
        }
        # Temporäre Files löschen
        del $tmp -Force -ErrorAction SilentlyContinue
    }
    # lösche ersetzte Dokumentteile im ZIP
    $remove | %{$_.Delete()}
    #>

    # Zipfile-Resourcen freigeben
    $zipfile.Dispose()
}

'Pfad zu den Dokumenten  
Const strPathDocs = "D:\Daten"  
'Logfile für eventuell auftretende Fehler  
Const strPathLogfile = "D:\Daten\logfile.txt"  
'Alter Servername  
Const strOldServer = "\\SERVEROLD"  
'Neuer Servername  
Const strNewServer = "\\SERVERNEW"   

If MsgBox("Wollen sie nun alle Word-Dokumente unterhalb von '" & strPathDocs & "' verarbeiten und die Stapelverarbeitung starten?",vbQuestion Or vbYesNo) = vbNo Then  
	WScript.Quit
End If

'Objekte erstellen  
Set fso = CreateObject("Scripting.Filesystemobject")  
Set objWord = WScript.CreateObject("Word.Application")  
'Wenn das ganze unsichtbar ablaufen soll nächste Zeile auf false setzen  
objWord.Visible = True
objWord.DisplayAlerts = False
On Error Resume Next
'Im Ordner Rekursiv alle Word-Dokumente verarbeiten  
parseFolders fso.GetFolder(strPathDocs), True
objWord.DisplayAlerts = True
objWord.Quit True
MsgBox "Vorgang abgeschlossen.",vbInformation  
Set fso = Nothing
Set objWord = Nothing

Function parseFolders(fldr, boolRecursion)
    For Each file In fldr.Files
   		'Verarbeite nur Dateien mit den Endungen *.doc, *.docx, *.docm   
        If LCase(Right(file.Name, 3)) = "doc" Or LCase(Right(file.Name, 4)) = "docx" Or LCase(Right(file.Name, 4)) = "docm" Then  
            doc_changed = False
            Set objDoc = objWord.Documents.Open(file.Path)
            If Err.Number <> 0 Then
            	'Wenn Fehler beim Öffnen des Dokuments aufgetreten ist notiere das im Logfile  
            	Set objLog = fso.OpenTextFile(strPathLogfile,8,True)
            	objLog.WriteLine("Fehler beim öffnen der Datei: -> " & file.Path)  
            	objLog.Close
            	Err.Clear
            Else
            	With objDoc
	              ' Dokumentvorlage überprüfen und ersetzen  
	              Set dlgTemplate = objWord.Dialogs(87)
	              If InStr(1,dlgTemplate.Template,strOldServer,1) Then    
	                    ' neuen Templatepfad erstellen  
		            	newTemplate = Replace(dlgTemplate.Template,strOldServer,strNewServer,1,1,1)
		            	' Alle alten Vorlageninformationen entfernen  
		            	.RemoveDocumentInformation (9)
		            	' Neue Vorlage zuweisen  
		            	.AttachedTemplate = newTemplate
		            	doc_changed = True
	              End If
	              
	              ' Verknüpfungen im Dokument überprüfen und ersetzen  
	              For Each story In .StoryRanges
		            For Each shape In story.InlineShapes
		                If Not shape.LinkFormat Is Nothing Then
		                    strFullPath = shape.LinkFormat.SourceFullName
		                    If InStr(1, strFullPath, strOldServer, 1) Then
		                        shape.LinkFormat.SourceFullName = Replace(strFullPath, strOldServer, strNewServer, 1, -1, 1)
		                        doc_changed = True
		                    End If
		                End If
		            Next
		          Next
		          'Wurden Änderungen vorgenommen Dokument speichern ansonsten ungespeichert schließen  
		          If doc_changed Then
			          ' Dokument speichern  
				      .Save
				      .Close True
				  Else
				  	  .Close False
				  End If
		        End With
            End if
        End If
    Next
    
    If boolRecursion Then
		For Each subFolder in fldr.SubFolders
			parseFolders subFolder, True
		Next
	End If
End Function