Automatisierung der Serienbrieffunktion in Word über ein PowerShell-Skript

# manuell zu definierende Dateipfade und Variablen
$wordPfad = "...\Brief.docx"  
$excelPfad = "...\DB.xlsx"  
$savePfad = "...\"  
$spalteName = 3
$spalteVorname = 4

# Word-Anwendung öffnen
$word = New-Object -ComObject Word.Application

# Word-Anwendung unsichtbar machen
$word.Visible = $false

# ID einlesen
[int]$ID = Read-Host "Geben Sie die ID ein"  

# Hinweis auf manuelle Tabellenauswahl
Write-Host "  
Um ein Dokument für die ID $ID zu erzeugen, öffnet sich automatisch ein Fenster."  
Write-Host "Bitte bestätigen Sie dort die Auswahl von Tabelle 1, damit das Dokument erzeugt werden kann." -ForegroundColor Green  
Write-Host "  
Die Anwendung schließt sich danach automatisch."  

# Excel-Objekt erstellen
$excel = New-Object -ComObject Excel.Application
$excel.Visible = $false
$workbook = $excel.Workbooks.Open($excelPfad)
$worksheet = $workbook.Sheets.Item("Tabelle1")  

#Speicherdaten
$zeile = ($ID + 1)
$name = $worksheet.Cells.Item($zeile, $spalteName).Text
$vorname = $worksheet.Cells.Item($zeile, $spalteVorname).Text
$erstellungsdatum = Get-Date -Format "yy-MM-dd"  

# Ordner erstellen
$folderName = "$erstellungsdatum $name, $vorname"  
$folderPath = Join-Path $savePfad $folderName
New-Item -ItemType Directory -Path $folderPath | Out-Null
$ablageort = "$folderPath\Brief_ausgefüllt.docx"  

# Schließen Sie das Arbeitsblatt und die Excel-Anwendung
$workbook.Close()
$excel.Quit()

# Word-Dokument öffnen
$doc = $word.Documents.Open($wordPfad)

# Serienbrieffunktion aktivieren
$mailMerge = $doc.MailMerge

# Datenquelle öffnen und Datensatzauswahl festlegen
$datasource = $mailMerge.OpenDataSource($excelPfad)
#$datasource.Open($excelPfad, $null, $true, $null, $null, $null, $null, $null, $null, $null, $null, "Tabelle1$") 

# Serienbrieffunktion aktivieren
$mailMerge.Destination = [Microsoft.Office.Interop.Word.WdMailMergeDestination]::wdSendToNewDocument

# Benutzer nach der Startzeile fragen und für Von und An festlegen
$mailMerge.DataSource.FirstRecord = $ID   # Startzeile
$mailMerge.DataSource.LastRecord = $ID    # Endzeile

# Serienbrief zusammenführen
$mailMerge.Execute()

# Speichern des Serienbriefs unter dem angegebenen Pfad
$word.ActiveDocument.SaveAs([ref]$ablageort)

# Ursprüngliches Word-Dokument schließen
$doc.Close()

# Word-Dokument schließen
$word.Quit()

Es ist nicht möglich, eine Methode für einen Ausdruck aufzurufen, der den NULL hat.
In Zeile:54 Zeichen:1
+ $datasource.Open($excelPfad, $null, $true, $null, $null, $null, $null ...
+ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
    + CategoryInfo          : InvalidOperation: (:) [], RuntimeException
    + FullyQualifiedErrorId : InvokeMethodOnNull