Rubrum eines anwaltlichen Schreibens auslesen

Rubrumauslese.ps1

function Rubrumauslese () {
	$wordApp = [Runtime.Interopservices.Marshal]::GetActiveObject('Word.Application')
	$doc = $wordApp.ActiveDocument
	$documentText = $doc.Content.Text -replace '\r',[System.Environment]::Newline

	$Az = [regex]::match($documentText, '\d{1,5}/\d{2}').Value

	$Mandant, $Gegner = ((Select-String -InputObject $documentText -Pattern '.*\./\..*').matches.value -split './.').trim()
	
	[System.Runtime.Interopservices.Marshal]::ReleaseComObject($wordApp) | Out-Null

	return [PSCustomObject]@{
		Mandant = $Mandant
		Gegner = $Gegner
		Az = $Az
	}
}

$Rubrum = Rubrumauslese

$Az = $Rubrum.Az
$Mandant = $Rubrum.Mandant
$Gegner = $Rubrum.Gegner

Write-Output "$Mandant"
Write-Output "./."
Write-Output "$Gegner"
Write-Output "$Az"