powershellでword文書をhtml一括保存

save_as_html.ps1

[reflection.assembly]::LoadWithPartialName("Microsoft.Office.Interop.Word") | out-null

$word = new-object Microsoft.Office.Interop.Word.ApplicationClass
$word.Visible = $true
foreach($arg in $args)
{
	foreach($doc in (Get-Item $arg))
	{
		$fn_doc = $doc.FullName
		$word_doc = $word.Documents.Open($fn_doc, $false, $false)
		$word_doc.Activate()

		$ext = $doc.Extension
		$wo_ext = $fn_doc.Substring(0, $fn_doc.Length - $ext.Length)
		$fn_html = $wo_ext + ".html"
		$word_doc.SaveAs([ref]$fn_html, [ref][Microsoft.Office.Interop.Word.WdSaveFormat]::wdFormatFilteredHTML)
	}
}

$word.Quit()