Word VBAのRange.Collapseメソッドとは？初心者でもわかる使い方ガイド

2025.05.262026.01.27

Word VBAを使って文書を自動化したいけれど、どこから始めればいいのか迷っていませんか？特に「Range.Collapse」というメソッドは、初心者には少し難しく感じられるかもしれません。でも安心してください。今回は、この「Range.Collapse」メソッドをわかりやすく解説し、実際の活用方法を紹介します。

Range.Collapseメソッドとは？
基本的な使い方
実践的な活用例
よくある質問
まとめ

Range.Collapseメソッドとは？

Wordのイメージ

Word VBAにおける「Range.Collapse」メソッドは、指定した範囲（Range）や選択（Selection）の開始位置と終了位置を同じにすることで、カーソルをその位置に移動させるためのものです。これにより、文書の特定の位置に新しいテキストを挿入したり、編集を行ったりする際に便利です。

例えば、文書の先頭にカーソルを移動させて、新しい見出しを追加する場合などに使用します。

基本的な使い方

「Range.Collapse」メソッドには、以下の2つの方向があります

ここがポイント！

wdCollapseStart範囲の開始位置にカーソルを移動させます。
wdCollapseEnd範囲の終了位置にカーソルを移動させます。

デフォルトでは、wdCollapseStartが使用されます。例えば、文書の先頭にカーソルを移動させて、新しい見出しを追加するコードは以下のようになります

Sub AddHeading()

    Dim rng As Range

    Set rng = ActiveDocument.Range

    rng.Collapse Direction:=wdCollapseStart

    rng.InsertAfter "新しい見出し"

End Sub

このコードを実行すると、文書の先頭に「新しい見出し」が追加されます。

実践的な活用例

次に、実際の文書編集で「Range.Collapse」メソッドをどのように活用するかを見ていきましょう。

文書の先頭に見出しを追加する

文書の先頭に新しい見出しを追加したい場合、以下のコードを使用します

Sub AddHeadingAtStart()

    Dim rng As Range

    Set rng = ActiveDocument.Range

    rng.Collapse Direction:=wdCollapseStart

    rng.InsertAfter "新しい見出し"

    rng.InsertParagraphAfter

End Sub

このコードを実行すると、文書の先頭に「新しい見出し」が追加され、その後に段落が挿入されます。

特定の段落の後にテキストを追加する

特定の段落の後に新しいテキストを追加したい場合、以下のコードを使用します

Sub AddTextAfterParagraph()

    Dim rng As Range

    Set rng = ActiveDocument.Paragraphs(2).Range

    rng.Collapse Direction:=wdCollapseEnd

    rng.InsertAfter "このテキストは2番目の段落の後に追加されます。"

End Sub

このコードを実行すると、2番目の段落の後に指定したテキストが追加されます。

テーブル内のセルにテキストを追加する

テーブル内の特定のセルにテキストを追加したい場合、以下のコードを使用します

Sub AddTextToTableCell()

    Dim rng As Range

    Set rng = ActiveDocument.Tables(1).Cell(2, 3).Range

    rng.Collapse Direction:=wdCollapseEnd

    rng.InsertAfter "このテキストは2行3列目のセルに追加されます。"

End Sub

このコードを実行すると、1つ目のテーブルの2行3列目のセルに指定したテキストが追加されます。

よくある質問

Q1: Range.Collapseメソッドを使う際に注意すべき点はありますか？

はい、Range.Collapseメソッドを使用する際には、カーソルの位置が変更されるため、次に行う操作（例えばテキストの挿入や書式設定など）に影響を与える可能性があります。操作の順序やカーソルの位置に注意してコードを組み立てることが重要です。

Q2: SelectionオブジェクトにもCollapseメソッドはありますか？

はい、SelectionオブジェクトにもCollapseメソッドがあります。Selectionオブジェクトは、ユーザーが現在選択している範囲を表すもので、これを使用することで、ユーザーの選択範囲に対して操作を行うことができます。

Q3: Collapseメソッドを使うと、選択範囲はどのように変わりますか？

Collapseメソッドを使用すると、選択範囲の開始位置と終了位置が同じになり、選択範囲が1点（カーソル位置）になります。これにより、その位置から新しいテキストを挿入したり、編集を行ったりすることが可能になります。

まとめ

今回は、Word VBAのRange.Collapseメソッドについて、初心者の方にもわかりやすく解説しました。このメソッドを活用することで、文書の特定の位置にカーソルを移動させ、新しいテキストを追加したり、編集を行ったりすることができます。実際の文書編集で役立つテクニックですので、ぜひ試してみてください。

他にも疑問やお悩み事があれば、お気軽にLINEからお声掛けください。