Word VBAで特定のページを削除する方法

皆さん、こんにちは。今日は、Microsoft Wordで特定のページを削除する方法についてお話しします。特に、VBA（Visual Basic for Applications）を使って、簡単にページを削除する方法をご紹介します。パソコンやスマホの操作が少し苦手な方でも、安心して取り組める内容になっていますので、ぜひ最後までご覧ください。

VBAとは何か？
なぜVBAでページを削除するのか？
VBAを使って特定のページを削除する方法
注意点
よくある質問や疑問
1. Q1: VBAを使うのが初めてですが、大丈夫でしょうか？
2. Q2: 複数のページを一度に削除することは可能ですか？
今すぐ解決したい！どうしたらいい？
まとめ

VBAとは何か？

Wordのイメージ

まず、VBAについて簡単に説明します。VBAとは、Microsoft Office製品に組み込まれているプログラミング言語で、作業の自動化やカスタマイズを行うことができます。例えば、繰り返しの多い作業を自動化したり、特定の操作をボタン一つで実行できるようにしたりすることが可能です。

なぜVBAでページを削除するのか？

Word文書が長くなると、特定のページを削除したい場面が出てくることがあります。手動で削除することもできますが、複数のページを一度に削除したい場合や、定期的に同じページを削除する必要がある場合、VBAを使うと非常に便利です。

VBAを使って特定のページを削除する方法

それでは、具体的な手順をご紹介します。以下の手順に従って進めてみましょう。

まず、Wordを開きます。
次に、キーボードの「Alt」キーと「F11」キーを同時に押して、VBAエディターを開きます。
左側のプロジェクトエクスプローラーで、削除したいページが含まれている文書を選択し、「ThisDocument」をダブルクリックします。
右側のコードウィンドウに、以下のコードを入力します。

vba

Sub DeletePage()

    Dim pge As Integer

    Dim rng As Range

    On Error GoTo Errhandler:

    pge = InputBox("削除したいページ番号を入力してください。", "ページ削除")

    Set rng = ActiveDocument.GoTo(What:=wdGoToPage, Name:=pge)

    Set rng = rng.GoTo(What:=wdGoToBookmark, Name:="\page")

    rng.Delete

    Set rng = Nothing

    Exit Sub

Errhandler:

    MsgBox Err.Number & ": " & Err.Description

    Set rng = Nothing

End Sub

コードを入力したら、VBAエディターを閉じます。
次に、Wordのメニューから「開発」タブを選択し、「マクロ」をクリックします。
表示されたマクロ一覧から「DeletePage」を選択し、「実行」をクリックします。
ポップアップが表示されるので、削除したいページ番号を入力し、「OK」をクリックします。

以上の手順で、指定したページを削除することができます。

注意点

VBAを使う際には、以下の点に注意してください。

誤って必要なページを削除しないよう、操作前に文書のバックアップを取っておくことをおすすめします。
VBAのコードは正確に入力する必要があります。スペルミスや記号の抜け漏れがあると、正しく動作しない場合があります。
このコードは、指定したページが存在しない場合や、入力が正しくない場合にエラーメッセージを表示するようになっています。

よくある質問や疑問

Q1: VBAを使うのが初めてですが、大丈夫でしょうか？

はい、大丈夫です。今回ご紹介した手順は、初心者の方でも取り組みやすいように構成されています。手順に沿って進めていただければ、問題なく実行できるはずです。

Q2: 複数のページを一度に削除することは可能ですか？

はい、可能です。ただし、コードを少し変更する必要があります。例えば、5ページ目から10ページ目までを削除したい場合、以下のようにコードを修正します。

vba

Sub DeletePages()

    Dim startPage As Integer

    Dim endPage As Integer

    Dim rng As Range

    On Error GoTo Errhandler:

    startPage = InputBox("削除を開始するページ番号を入力してください。", "ページ削除")

    endPage = InputBox("削除を終了するページ番号を入力してください。", "ページ削除")

    Set rng = ActiveDocument.GoTo(What:=wdGoToPage, Name:=startPage)

    Set rng = rng.GoTo(What:=wdGoToBookmark, Name:="\page")

    rng.End = ActiveDocument.GoTo(What:=wdGoToPage, Name:=endPage + 1).Start

    rng.Delete

    Set rng = Nothing

    Exit Sub

Errhandler:

    MsgBox Err.Number & ": " & Err.Description

    Set rng = Nothing

End Sub