Doc Dokumente leicht in .docx umwandeln

.\OfficeDocumentConverter.ps1 "D:\Dokumente" "D:\Konvertiert"

<# 
    Office Document-Format Converter
#>

param(
    [Parameter(Mandatory=$true)][ValidateNotNullOrEmpty()][string]$foldersource,
    [Parameter(Mandatory=$true)][ValidateNotNullOrEmpty()][string]$foldertarget
)

if ($PSVersionTable.PSVersion.Major -lt 3){write-host "ERROR: Minimum Powershell Version 3.0 is required!" -F Yellow; return}  

# ==== GLOBAL VARS ====
$valid_extensions = '*.xls','*.xlt','*.doc','*.dot','*.ppt','*.pot','*.pps'  
$mpar = [System.Reflection.Missing]::Value
# =====================

# Create output directory
if(!(Test-Path $foldertarget)){md $foldertarget -Force | out-null}

# enum all office files in source with recursive search
$files = gci $foldersource -Recurse -Force -File -Include $valid_extensions
$files_excel = $files | ?{$_.Extension -match '\.(xls|xlt)$'}  
$files_word = $files | ?{$_.Extension -match '\.(doc|dot)$'}  
$files_powerpoint = $files | ?{$_.Extension -match '\.(ppt|pot|pps)$'}  

# ====== EXCEL ========

if ($files_excel){
    write-host "Processing EXCEL Workbooks:" -F White -B Green  
    
    # Prepare Excel for conversion
    $xl = New-Object -Com Excel.Application
    $xl.DisplayAlerts = $false
    $xl.Screenupdating = $false
    $xl.Visible = $false

    
    # For each file
    foreach($file in $files_excel){
        write-host "Converting '$($file.Fullname)' ... " -NoNewline -F Green  
        # generate and create targetfolder for file
        $targetfolder = $file.Directory.Fullname -replace "^$([regex]::escape($foldersource))",$foldertarget  
        if(!(Test-Path $targetfolder)){md $targetfolder -Force | out-null}
        try{
            $wb = $xl.Workbooks.Open($file.Fullname,$false,$true)
            # file has macroproject ?
            $macroproject = $wb.HasVBProject
            $targetformat = '.xlsx'  
            $format = 51
            # determine file extension and set format number
            switch($file.Extension){
                '.xls' {  
                    $targetformat = @{$true='.xlsm';$false='.xlsx'}[$macroproject]  
                    $format = @{$true=52;$false=51}[($targetformat -like '*m')]  
                }
                '.xlt' {  
                    $targetformat = @{$true='.xltm';$false='.xltx'}[$macroproject]  
                    $format = @{$true=53;$false=54}[($targetformat -like '*tm')]  
                }
            }
            # new filename in targetdirecory
            $targetfile = Join-Path $targetfolder ($file.Basename + $targetformat)
                    
            # Save file as new format
            $wb.SaveAs($targetfile,$format) | out-null
            if (Test-Path $targetfile){write-host 'OK.' -F Green}  
        }catch{
            # Error occured
            write-error "Error converting file '$($file.Fullname)': $($_.Exception.Message)"  
        }finally{
            # close workbook
            if ($wb){$wb.Close($false) | out-null}
        }
    }
    # Quit Excel and tidy up
    $xl.DisplayAlerts = $true
    $xl.Screenupdating = $true
    $xl.Quit() | out-null
    [System.Runtime.InteropServices.Marshal]::ReleaseComObject($xl) | out-null
}

# ====== WORD ========

if ($files_word){
    write-host "Processing WORD documents:" -F White -B Green  
    # Prepare Word for conversion
    $word = New-Object -Com Word.Application
    $word.DisplayAlerts = 0
    $word.Screenupdating = $false
    $word.Visible = $false
    
    # For each file
    foreach($file in $files_word){
        write-host "Converting '$($file.Fullname)' ... " -NoNewline -F Green  
        # generate and create targetfolder for file
        $targetfolder = $file.Directory.Fullname -replace "^$([regex]::escape($foldersource))",$foldertarget  
        if(!(Test-Path $targetfolder)){md $targetfolder -Force | out-null}
        try{
            $doc = $word.Documents.Open($file.Fullname,$false,$true)
            # file has macroproject ?
            $macroproject = $doc.HasVBProject
            $targetformat = '.docx'  
            $format = 12
            # determine file extension and set format number
            switch($file.Extension){
                '.doc' {  
                    $targetformat = @{$true='.docm';$false='.docx'}[$macroproject]  
                    $format = @{$true=13;$false=12}[($targetformat -like '*m')]  
                }
                '.dot' {  
                    $targetformat = @{$true='.dotm';$false='.dotx'}[$macroproject]  
                    $format = @{$true=15;$false=14}[($targetformat -like '*tm')]  
                }
            }
            # new filename in targetdirecory
            $targetfile = Join-Path $targetfolder ($file.Basename + $targetformat)
            # Convert to new format and enable all features
            $doc.Convert()
            # Save file as new format
            $doc.SaveAs2([ref][system.object]$targetfile,[ref]$format)
            if (Test-Path $targetfile){write-host 'OK.' -F Green}  
        }catch{
            # Error occured
            write-error "Error converting file '$($file.Fullname)': $($_.Exception.Message)"  
        }finally{
            # close document
            if ($doc -ne $null){$doc.Close($false)}
        }
    }
    # Quit Word and tidy up
    $word.DisplayAlerts = -1
    $word.Screenupdating = $true
    $word.Quit() | out-null
    [System.Runtime.InteropServices.Marshal]::ReleaseComObject($word) | out-null
}

# ====== POWERPOINT ========

if ($files_powerpoint){
    write-host "Processing POWERPOINT presentations:" -F White -B Green  
    # Prepare Word for conversion
    $pp = New-Object -Com Powerpoint.Application
    $pp.DisplayAlerts = 1
    
    # For each file
    foreach($file in $files_powerpoint){
        write-host "Converting '$($file.Fullname)' ... " -NoNewline -F Green  
        # generate and create targetfolder for file
        $targetfolder = $file.Directory.Fullname -replace "^$([regex]::escape($foldersource))",$foldertarget  
        if(!(Test-Path $targetfolder)){md $targetfolder -Force | out-null}
        try{
            $presentation = $pp.Presentations.Open($file.Fullname,$true,$mpar,0)
            # file has macroproject ?
            $macroproject = $presentation.HasVBProject
            $targetformat = '.pptx'  
            $format = 12
            # determine file extension and set format number
            switch($file.Extension){
                '.ppt' {  
                    $targetformat = @{$true='.pptm';$false='.pptx'}[$macroproject]  
                    $format = @{$true=25;$false=24}[($targetformat -like '*m')]  
                }
                '.pot' {  
                    $targetformat = @{$true='.potm';$false='.potx'}[$macroproject]  
                    $format = @{$true=27;$false=26}[($targetformat -like '*tm')]  
                }
                '.pps' {  
                    $targetformat = @{$true='.ppsm';$false='.ppsx'}[$macroproject]  
                    $format = @{$true=29;$false=28}[($targetformat -like '*sm')]  
                }
            }
            # new filename in targetdirecory
            $targetfile = Join-Path $targetfolder ($file.Basename + $targetformat)
                    
            # Save file as new format
            $presentation.SaveAs([ref][system.object]$targetfile,[ref]$format)
            if (Test-Path $targetfile){write-host 'OK.' -F Green}  
        }catch{
            # Error occured
            write-error "Error converting file '$($file.Fullname)': $($_.Exception.Message)"  
        }finally{
            # close presentation
            if ($presentation){$presentation.Close() | out-null}
        }
    }
    # Quit Powerpoint and tidy up
    $pp.DisplayAlerts = 2
    $pp.Quit() | out-null
    [System.Runtime.InteropServices.Marshal]::ReleaseComObject($pp) | out-null
}