Txt to Word Doc using PowerShell

txtToWord.ps1

#Requires -Modules Pscx
# First load MS Office base assemblies into the environment
Add-Type -Path $env:WINDIR\assembly\GAC_MSIL\office\*\office.dll -PassThru  # Use -PassThru to verify it worked (otherwise, fails silently)
# Then, add the target MS Word assembly
Get-ChildItem -Path $env:windir\assembly -Recurse -Filter Microsoft.Office.Interop.Word* -File | ForEach-Object {
    Add-Type -LiteralPath ($_.FullName) -PassThru # PassThru again to verify
}
$wordApp = New-Object -ComObject Word.Application
if($null -eq $wordApp){
    Write-Host "Failed to create Word.Application object"
    exit
}
foreach ($txt in Get-ChildItem -Path . -Filter *.txt)
{
    try
    {
        $wordDoc = $wordApp.Documents.Add()
        $wordDocWindow = $wordDoc.ActiveWindow
        $wordDocWindow.Selection.InsertFile(('"' + ($txt | Get-ShortPath | Select-Object -ExpandProperty ShortPath ) + '"'))
        $wordDoc.SaveAs([ref]$(Join-Path $txt.Directory.FullName -ChildPath $txt.BaseName))
    }
    catch
    {
        Write-Host $_.Exception.Message
    }
}
$wordApp.Quit()
[void][System.Runtime.InteropServices.Marshal]::ReleaseComObject($wordApp)
[GC]::Collect()
[GC]::WaitForPendingFinalizers()
$wordApp = $null
Remove-Variable wordApp