おはようございます。すぎやまです。
この記事では、ps1ファイルを使用してWordを編集する方法を紹介します。
まず、結論を記載します。
ps1ファイルでword編集
- Excel編集は「New-Object -ComObject Word.Application」コマンドを使用してから実施
- Wordで実行できる作業は実行可能
下記、詳細を説明します。
使用するコマンド
前述の通り、まずは「New-Object -ComObject Word.Application」コマンドを使用します。
しかしこれはWordを起動するコマンドですので、最初におまじないのように記載します。
実際にWordの編集を行う場合、行いたい作業に合わせてコマンドを記載することになります。
Wordで行える作業は大体行えるため、すべてのコードを記載は出来ません。
下記、いくつか使いやすい例を記載します
文法 | 機能 |
= [Wordファイル].Characters([n]).Text | [Wordファイル]の[n]文字目を取得する |
= [Wordファイル].Words([n]).Text | [Wordファイル]の[n]単語目を取得する |
= [Wordファイル].Sentences([n]).Text | [Wordファイル]の[n]行目を取得する |
Wordの一括pdf化
# Wordアプリケーションを開始
$Word = New-Object -ComObject Word.Application
# Wordウィンドウを表示しないようにする
$Word.Visible = $false
# 現在のフォルダを指定
$path = get-location
$ext = ".pdf"
# 出力先のフォルダを指定
$outputFolder = ".\pdf化"
# フォルダが存在しない場合は作成
if (-not (Test-Path $outputFolder)) {
New-Item -ItemType Directory -Force -Path $outputFolder
}
# フォルダ内のWordファイルを取得
$Files = Get-ChildItem -Path $path -Filter *.docx
$WordFiles = $Files.FullName
foreach ($WordFile in $WordFiles){
# Wordファイルを開く
$doc = $word.Documents.Open($WordFile)
#変換対象ファイルをpdfとしてエクスポート
$doc.ExportAsFixedFormat($WordFile + ".pdf", 17)
#ファイル名に".docx"が残ってしまうのでリネーム
$pdffile = $WordFile + $ext
Get-ChildItem $pdffile | Foreach-Object {$newname = $_.Name -Replace ".docx",""}
#Move-Itemでリネーム
Move-Item $pdffile -Destination "$path\pdf化\$($newname)" -Force
}
# Wordアプリケーションを終了
$word.Quit()
[System.Runtime.Interopservices.Marshal]::ReleaseComObject($Word) | Out-Null
[GC]::Collect()
Write-Host "PDF変換が完了しました。"
こちらのコードでは、
Wordを起動→pdfの保存先ファイルを作成→Wordファイルをpdfで保存→リネーム
という処理をしています。
使用方法はこちらの記事をご覧ください。
Wordファイルの一括検索
# COMオブジェクトを作成してWordを起動
$word = New-Object -ComObject Word.Application
$word.Visible = $false # Wordウィンドウを非表示にする
# スクリプトファイルのディレクトリをカレントディレクトリに設定する
Set-Location -Path $PSScriptRoot
# 検索する単語の入力
$keyword = Read-Host "検索する単語を入力してください"
# Wordファイル内のテキストを検索する
$files = Get-ChildItem -Path . -Recurse -Filter *.docx
foreach ($file in $files) {
$document = $word.Documents.Open($file.FullName)
foreach ($paragraph in $document.Paragraphs) {
$text = $paragraph.Range.Text
if ($text -match $keyword) {
Write-Host "File: $($file.FullName)"
Write-Host "--------------------------"
}
}
$document.Close()
}
# Wordアプリケーションを終了
$word.Quit()
[System.Runtime.Interopservices.Marshal]::ReleaseComObject($word) | Out-Null
Remove-Variable word
Write-Host "検索が完了しました。"
こちらのコードでは、
Wordを起動→検索ワードを受け付け→Wordファイルの各段落を検索→該当するファイル名を表示
という処理をしています。
使用方法はこちらの記事をご覧ください。
その他のps1ファイル
今回はWordファイルの編集に焦点を当てましたが、
ps1ファイルを使用するとその他にも様々な処理も行うことができます。
ps1ファイルに可能なことを大まかに知りたい方はこちらの記事を、
実際に使用できるコードを知りたい方はこちらの記事を参照ください。
以上、最後まで読んでくださりありがとうございました。
メーカー勤務のサラリーマン
日々の業務を効率的に進めるため、
慣れない々プログラミングを勉強中。
AIを活用した日々の作業削減を目論みブログを開設。