この記事について

以前、PowerShellでExcelをいじる方法を書き留めましたが、今回Wordから情報を抜いてくる方法を調べる際に、同様にWordもPowerShellで操作できないか、試してみました。

~~本当は別の方法も模索したいんですが、諸事情により必ず入っているPowerShellと（ほぼ必ず入っている）Wordを使う方法を取っています…~~

例のごとく、寝かせていたら、数か月そのままになってしまっていたので、現時点で公開することにしました。適宜追記したいと思います。

備忘録

Wordファイルを開く

ファイルを開く

$word = New-Object -ComObject Word.Application
$word.Visible = $true #画面に表示させたい時
$FileName = "sample.docx"
$FullPath = (Get-Childitem -Path $FileName).FullName
$doc = $word.Documents.Open($FullPath)

ファイルを新規作成

$word = New-Object -ComObject Word.Application
$word.Visible = $true #画面に表示させたい時
$doc = $word.Documents.Add()

ページ設定

PageSetup

#ページの向き
$doc.PageSetup.Orientation = 1 #既定は0で縦向き、1で横向き

# 余白
## 標準
$doc.PageSetup.TopMargin = 99.25
$doc.PageSetup.BottomMargin = 85.05
$doc.PageSetup.LeftMargin = 85.05
$doc.PageSetup.RightMargin = 85.05

## やや狭い
$doc.PageSetup.TopMargin = 72
$doc.PageSetup.BottomMargin = 72
$doc.PageSetup.LeftMargin = 54
$doc.PageSetup.RightMargin = 54

入力関係

テキスト入力

$doc.Paragraphs(1).Range.Text = "第１段落のテキスト"#パラグラフのテキストを設定
$doc.Paragraphs(1).Range.InsertAfter("`r`n")#段落最後に改段落を挿入（パラグラフの追加）（WordでのEnter）
$doc.Paragraphs(1).Range.InsertBefore("`t")#段落頭にタブを挿入
$doc.Paragraphs(1).Range.InsertAfter("`v")#段落最後に改行を挿入（WordでのShift+Enter）

フォント周り

フォント等

下線・アンダーライン
$doc.Paragraphs(10).Range.Underline = 1
#1 下線、2 空白以外下線、3 二重線、4 点線、6 太い下線、7 破線、9 一点鎖線、10二点鎖線、11波線

$fontSerif = "BIZ UDP明朝 Medium" #変数にフォント名を入れる。
#Range.Font.Nameで設定
$doc.Paragraphs(10).Range.Font.Name = "$fontSerif"

フォントの色

# Colorで設定する方法
$doc.Paragraphs(1).Range.Text.Font.Color = 16776960 #wdTurquoise
$doc.Paragraphs(1).Range.Text.Font.Color = -16777216 #wdColorAutomatic（通常は黒）
# ColorIndexで設定する方法
$doc.Paragraphs(1).Range.Text.Font.ColorIndex = 3 #wdTurquoise
$doc.Paragraphs(1).Range.Text.Font.ColorIndex = 0 #wdAuto（通常は黒）

Colorでの指定は、WdColorにある10進数で行う。
- RGB値で指定する場合は、「R + G * 256 + B * 256 * 256」で計算した値を用いることもできる模様。

ColorIndexでの指定は、WdColorIndexにある値で指定する。

表

表の挿入など

# 10行目に、3×3の表を挿入する
$newTable = $doc.Tables.Add($doc.Paragraphs(10).Range(), 3, 3)

# 表のスタイルの変更
$newTable.Style = "表 (格子)"

# 表全体のフォントの変更
$newTable.Range().Font.Name = "BIZ UDPゴシック"
$newTable.Range().Font.Size = 9
# 表のセルのフォントの変更
$newTable.Cell(1,1).Range.Font.name = "BIZ UDPゴシック"

# セルへのテキスト入力
$newTable.Cell(1,1).Range().Text = "1列1行目"

# セルのテキスト末尾に改段落を追加
$newTable.Cell(1,1).Range().InsertParagraphAfter()

# セルのテキスト末尾にテキストを追加
$newTable.Cell(1,1).Range().InsertAfter("追加のテキスト")

# セルの結合
$newTable.Cell(1,1).Merge($newTable.Cell(1,3)) #結合の開始セルと終了セルを指定する

# 表の位置
## 基準
$newTable.Rows.RelativeVerticalPosition = 0 #0がページ余白、1がページ、2が段落（文字列と一緒に移動する）

# セルのテキストの向き
$newTable.Cell(1,1).Range.Orientation = 0 #0で横書き、1で縦書き

# セルの文字の揃え
## 縦
## 0上揃え:wdCellAlignVerticalTop
## 1中央揃え:wdCellAlignVerticalCenter
## 3下揃え:wdCellAlignVerticalBottom
$newTable.Cell(1,1).Range.Cells.VerticalAlignment = 0

## 横
## 0左揃え: wdAlignParagraphLeft
## 1中央揃え: wdAlignParagraphCenter
## 2右揃え：wdAlignParagraphRight
## 3両端揃え: wdAlignParagraphJustify
## 4均等割り付け: wdAlignParagraphDistribute
$newTable.Cell(1,1).Range.ParagraphFormat.Alignment = 3

保存用ダイアログ

ファイルダイアログを開く

# Bing AIに聞きつつ調べました
[void][System.Reflection.Assembly]::LoadWithPartialName("System.Windows.Forms")
$dialog = New-Object System.Windows.Forms.SaveFileDialog
$dialog.Filter = "Wordファイル (*.docx)|*.docx" #ファイル形式の指定
$dialog.InitialDirectory = (Get-Location).Path #初期ディレクトリの指定（現在のディレクトリ）
$dialog.FileName = "既定のファイル名.docx"
if($dialog.ShowDialog() -eq "OK"){
    $dialog.FileName
}

参考

Bing AIに聞きつつ調べて、微修正しました。
Bing AIが参照したのは以下のページです。

終了する

ファイルを閉じて、終了する

$doc.Close()
$word.Quit()

オブジェクトのリリース

[System.Runtime.Interopservices.Marshal]::ReleaseComObject($doc) | Out-Null
[System.Runtime.Interopservices.Marshal]::ReleaseComObject($word) | Out-Null
[System.Runtime.Interopservices.Marshal]::ReleaseComObject($range) | Out-Null
[System.Runtime.Interopservices.Marshal]::ReleaseComObject($table) | Out-Null

# 解放する変数
Remove-Variable doc,word, range, table

# ガベージコレクション
[gc]::collect()
[gc]::WaitForPendingFinalizers()

参考

notes

2024-05-06 公開