Alte Microsoft Dokumente in neues Format konvertieren

# PowerShell-Skript zur Massenkonvertierung von alten Office-Dateien auf neue Formate# Verzeichnis mit den alten Dateien angeben$sourceFolder = "C:\Pfad\Zu\Alten\Dateien"# Word-Dateien konvertieren$word = New-Object -ComObject Word.Application$word.Visible = $falseGet-ChildItem -Path $sourceFolder -Filter "*.doc" | ForEach-Object { $doc = $word.Documents.Open($_.FullName) $newPath = $_.FullName -replace "\.doc$", ".docx" $doc.SaveAs([ref] $newPath, [ref] 16) # 16 = wdFormatDocumentDefault $doc.Close($true)}$word.Quit()# Excel-Dateien konvertieren$excel = New-Object -ComObject Excel.Application$excel.Visible = $falseGet-ChildItem -Path $sourceFolder -Filter "*.xls" | ForEach-Object { $wb = $excel.Workbooks.Open($_.FullName) $newPath = $_.FullName -replace "\.xls$", ".xlsx" $wb.SaveAs($newPath, 51) # 51 = xlOpenXMLWorkbook $wb.Close($true)}$excel.Quit()# PowerPoint-Dateien konvertieren$ppt = New-Object -ComObject PowerPoint.Application$ppt.Visible = $falseGet-ChildItem -Path $sourceFolder -Filter "*.ppt" | ForEach-Object { $presentation = $ppt.Presentations.Open($_.FullName, $true, $true, $false) $newPath = $_.FullName -replace "\.ppt$", ".pptx" $presentation.SaveAs($newPath, 24) # 24 = ppSaveAsOpenXMLPresentation $presentation.Close()}$ppt.Quit()Write-Host "Konvertierung abgeschlossen!"