2026年06月29日

起動中の word のドキュメントをその冒頭の内容をファイル名として保存したいなぁとかいう需要があって，PowerShell でやってみた．

とりあえず起動中の word を確保：

$word = [System.Runtime.InteropServices.Marshal]::GetActiveObject("Word.Application")

そして開いているファイルについて最初の段落の内容をファイル名として保存：

foreach ($doc in $word.Documents) {  if ($doc.Paragraphs.Count -ge 1) { $line = $doc.Paragraphs[1].Range.Text; $file="d:\words\"+($line.trim())+".docx";$doc.SaveAs([ref]$file, 16); } }

PowerShell は Office とかのオブジェクトを使えるので色々できて便利かも知れん．