Categories: office

Wordをもっと便利に！VBAでできることと活用例まとめ

Wordは文書作成に欠かせないソフトですが、日々の業務で「同じ作業を繰り返していて面倒…」と感じたことはありませんか？
そんなときに役立つのが「Word VBA（Visual Basic for Applications）」です。
VBAを使えば、文書の一括編集や自動生成など、手間のかかる作業を一瞬で処理できます。
この記事では、Word VBAでできることや具体的な活用例、基本的な使い方までをわかりやすく解説していきます。
初心者の方でも理解できるように丁寧に説明しているので、ぜひ参考にしてください。

Word VBAとは？
Word VBAでできる主なこと
Word VBAの使い方：基本ステップ
Word VBAの注意点
まとめ

Word VBAとは？

Word VBAとは、「Visual Basic for Applications」の略で、Microsoft Word上で使える自動化プログラミング言語のことです。
Wordに組み込まれているマクロ機能と連携して、操作を記録・編集・再実行できるのが特徴です。

たとえば、以下のような作業をVBAで自動化できます。

特定のキーワードの置換
指定された書式設定の適用
定型文の挿入
文書構成の自動生成
表や図の一括挿入や調整

「繰り返しの多い作業」を「1クリックで完了」に変えることができるのが、VBAの強力な魅力です。

Word VBAでできる主なこと

文字の一括置換・修正

VBAを使えば、文書内の特定の語句を一括で検索し、別の語句に置き換えることができます。
通常の検索置換機能よりも柔軟で、複数の単語を同時に処理したり、書式ごと変えたりすることも可能です。

Sub ReplaceWords()
    With Selection.Find
        .Text = "株式会社"
        .Replacement.Text = "(株)"
        .Execute Replace:=wdReplaceAll
    End With
End Sub

上記のようなコードを使えば、文書全体の「株式会社」をすべて「(株)」に変換できます。

書式の自動整形

書類の整形（フォント、サイズ、段落設定など）は意外と時間がかかるものです。
VBAなら、テンプレート化して一発で整形できます。

Sub FormatParagraphs()
    With Selection.ParagraphFormat
        .Alignment = wdAlignParagraphJustify
        .LineSpacingRule = wdLineSpaceExactly
        .LineSpacing = 18
    End With
    Selection.Font.Name = "MS 明朝"
    Selection.Font.Size = 11
End Sub

上記の例では、選択範囲に対して行間やフォントサイズを設定するコードです。

定型文・テンプレートの自動挿入

社内文書や申請書など、決まった定型文を毎回入力するのは非効率です。
VBAを使えば、ボタン一つで定型文を挿入できます。

Sub InsertTemplate()
    Selection.TypeText Text:="お世話になっております。〇〇株式会社の○○です。"
End Sub

ボタンをクリックするだけで挨拶文や署名を挿入できるため、業務の効率が格段にアップします。

表の自動作成・編集

表を手動で作成するのは面倒ですが、VBAなら自動で表を挿入し、内容まで入力できます。

Sub CreateTable()
    Dim myTable As Table
    Set myTable = ActiveDocument.Tables.Add(Range:=Selection.Range, NumRows:=3, NumColumns:=4)
    myTable.Cell(1, 1).Range.Text = "氏名"
    myTable.Cell(1, 2).Range.Text = "部署"
    myTable.Cell(1, 3).Range.Text = "役職"
    myTable.Cell(1, 4).Range.Text = "連絡先"
End Sub

営業リストや社内記録など、表形式の文書作成に大活躍です。

文書の一括処理・バッチ操作

複数のWordファイルに対して同じ処理を行いたい場合にもVBAは便利です。
フォルダ内のすべての文書を開いて、一括で特定の操作を行うことも可能です。

Sub BatchProcessDocuments()
    Dim file As String
    Dim doc As Document
    file = Dir("C:\Documents\*.docx")
    Do While file <> ""
        Set doc = Documents.Open("C:\Documents\" & file)
        doc.Content.InsertBefore "【重要】"
        doc.Save
        doc.Close
        file = Dir
    Loop
End Sub

上記は、すべての文書の先頭に「【重要】」と追加する処理です。大量のファイルを管理する際に便利です。