Dateinamen anpassen (Word-Dateien)

$pfad = "d:\dokumente"  
$dokumente = gci -Filter *.docx -Recurse
foreach ($dokument in $dokumente)
{
    $jahr = $dokument.LastWriteTime.Year
}

$word = New-Object -ComObject Word.Application
$word.visible = false

$file = $word.Documents.Open($dokument)
$range = $dokument.Content
$nummer = $dokument.Paragraphs[3].range.Text

# ordner mit den Dateien
$folder = 'D:\Docs'  
# Word Objekt erzeugen
$objWord = New-Object -Com Word.Application -P @{Visible=$false;DisplayAlerts=0}
# für alle Word-Dokumente rekursiv im Ordner
foreach ($file in Get-ChildItem "$folder\*.do[ct][xm]" -File -Recurse){  
    try{
        # öffne Dokument
        $doc = $objWord.Documents.Open($file.Fullname,$false,$true)
        # extrahiere Nummer
        $number = [regex]::match($doc.Content.Text,'(?i)Nr.\s*([^\s]+)').Groups[1].Value  
        # schließe Dokument
        [void]$doc.Close($false)
        # wenn eine Nummer extrahiert werden konnte
        if ($number){
            # baue neuen Dateinamen zusammen
            $newname = "$($file.LastWriteTime.Year)-$number$($file.Extension)"  
            # und benenne Datei um
            $file | rename-item -NewName $newname -Force -verbose
        }else{
            throw "Number not found in '$($file.Fullname)', please check content or used regex pattern!"  
        }
    }catch{
        write-host $_.Exception.Message -F Red
    }
}
# Alerts wieder einschalten
$objWord.DisplayAlerts=-1
# Word beenden und COM Resourcen wieder freigeben
[void]$objWord.Quit()
[void][System.Runtime.InteropServices.Marshal]::ReleaseComObject($objWord)