convert_to_docx.ps1

$files = @(
    @{ Source = "d:\project2569\iot_project_proposal.html"; Dest = "d:\project2569\iot_project_proposal.docx" },
    @{ Source = "d:\project2569\speaker_invitation.html"; Dest = "d:\project2569\speaker_invitation.docx" }
)

try {
    $word = New-Object -ComObject Word.Application
    $word.Visible = $false
    $word.DisplayAlerts = [Microsoft.Office.Interop.Word.WdAlertLevel]::wdAlertsNone

    foreach ($file in $files) {
        try {
            Write-Host "Converting $($file.Source)..."
            $doc = $word.Documents.Open($file.Source)
            $doc.SaveAs([ref]$file.Dest, [ref]16)
            $doc.Close()
            Write-Host "Success: $($file.Dest)"
        }
        catch {
            Write-Error "Failed to convert $($file.Source): $_"
        }
    }
    
    $word.Quit()
}
catch {
    Write-Error "Global error: $_"
    if ($word) { $word.Quit() }
}