Batch um Word-Datei für 365 Tage zu erstellen mit Datum als Dateiname und Inhalt

$oWord = New-Object -Com Word.Application
$oWord.Visible = $true
$oMissing = [System.Reflection.Missing]::Value
$oDoc = $oWord.Documents.Add($oMissing, $oMissing, $oMissing, $oMissing)
$oPara1 = $oDoc.Paragraphs.Add($oMissing)
$oPara1.Range.Text = " "  
$oPara1.Range.InsertParagraphAfter()
$oPara2 = $oDoc.Paragraphs.Add($oMissing)
$date = Get-Date -Format "dddd MM/dd/yyyy"  
$oPara2.Range.Text = "$date"  
$oPara2.Range.InsertParagraphAfter()
$filename = 'C:\temp\YOUR NAME.docx'  
$oDoc.SaveAs($filename,
$oMissing, $oMissing,
$oMissing, $oMissing,
$oMissing, $oMissing,
$oMissing, $oMissing,
$oMissing, $oMissing)
$oDoc.Close()
$oWord.Quit()

# Quellpfad
$Pfad = 'C:\Test'  

# Ordner für einzelne Monate Erzeugen
For ($i=1 ; $i -lt 13 ; $i++) { [void](md -Force ("$Pfad\{0:d2}" -f $i)) }  

# Anfangsdatum 1. Januar
$Date = Get-Date -Day 1 -Month 1

# Folgejahr
$NY = $Date.AddYears(1).Year

# Word Öffnen
$Word = New-Object -Com Word.Application
$Word.DisplayAlerts = $false
$Doc = $Word.Documents.Add()

# Dokumente erzeugen
while ($Date.Year -lt $NY) {
  $Doc.Select()
  $Word.Selection.TypeText(($Date.ToString("`ndddd, \den dd.MM.yyyy")))  
  $Doc.SaveAs(("$Pfad\" + $Date.ToString('MM\\dd') + '.docx'))  
  $Date = $Date.AddDays(1)
}

# Word Beenden
$Doc.Close()
[System.Runtime.InteropServices.Marshal]::ReleaseComObject($Word)

$Doc = $Word.Documents.Add("c:\pfad\vorlage.dotx")  

# Quellpfad
$Pfad = 'C:\Test'  
# Vorlage
$template = 'C:\test\vorlage.dotx'  

# Ordner für einzelne Monate Erzeugen
For ($i=1 ; $i -lt 13 ; $i++) { [void](md -Force ("$Pfad\{0:d2}" -f $i)) }  

# Anfangsdatum 1. Januar
$Date = Get-Date -Day 1 -Month 1

# Folgejahr
$NY = $Date.AddYears(1).Year

# Word Öffnen
$Word = New-Object -Com Word.Application -P @{DisplayAlerts = 0}
$Doc = $Word.Documents.Add($template)

# Dokumente erzeugen
while ($Date.Year -lt $NY) {
  # Datum in Absatz schreiben
  $Doc.Paragraphs[1].Range.Text = $Date.ToString("dddd, \den dd.MM.yyyy`n")  
  # Dokument speichern
  $Doc.SaveAs(("$Pfad\" + $Date.ToString('MM\\dd') + '.docx'))  
  # nächster Tag
  $Date = $Date.AddDays(1)
}

# Word Beenden
$Doc.Close()
# Meldungen auf Standard zurücksetzen
$Word.DisplayAlerts = -1
[void][System.Runtime.InteropServices.Marshal]::ReleaseComObject($Word)

# Anfangsdatum 1. Januar
$Date = Get-Date -Day 1 -Month 1 -Year 2024

# Datum an Textmarke schreiben
$Doc.Bookmarks["Textmarkenname"].Range.Text = $Date.ToString("dddd, \den dd.MM.yyyy`n")