【入門編】【初心者向け】表の行をコピーして末尾に追加し、前行の書式を継承させる方法 – Word VBA解析バイブル

こんにちは！世界最高の業務自動化エンジニア、チーフアーキテクトの〇〇です。Word VBAの世界へようこそ！

Word VBAで表を扱うのは、一見難しそうに見えて、実はすごく奥深く、そして楽しい領域です。特に「表の行をコピーして末尾に追加する」という操作は、レポート作成やデータ入力の自動化において、まさに”基本中の基本”であり、”避けては通れない道”と言えるでしょう。

手作業で表の行を増やして、いちいち書式を整える作業…想像するだけでゾッとしますよね。Word VBAを使えば、そんな手間から完全に解放されます。しかし、初心者が陥りやすい落とし穴があるのも事実。「せっかくコピーしたのに、書式が崩れちゃった！」なんて経験、ありませんか？

ご安心ください。今回は、Word VBAの強力な核となる`Range`オブジェクトを徹底的に活用し、書式設定を完璧に引き継ぎながら、表の行をスマートに複製・追加する安全な手法を、魂を込めて解説していきます。ここをクリアすれば、Word VBAの表操作の基本はバッチリですよ！

—

Word VBAで表を自在に操るための「基本のキ」

Word VBAで表を操作する上で、まずはいくつかの重要なオブジェクトを理解する必要があります。

• `Table` オブジェクト: Word文書内の「表」そのものを指します。
• `Row` オブジェクト: `Table` オブジェクトの構成要素である「行」を指します。
• `Cell` オブジェクト: `Row` オブジェクトの構成要素である「セル」を指します。

そして、最も強力で理解すべきは、今日の主役である`Range` オブジェクトです。

`Range` オブジェクトは単なる「範囲」ではない！

多くの方が`Range`と聞くと、Excelの「セルの範囲」を思い浮かべるかもしれません。Wordにおける`Range`は、それ以上に奥深い概念を持っています。

Word VBAにおける`Range`は、「文書内の特定の領域とその中身、そしてそこに適用されているすべての書式情報」をまるごと内包する、強力な”塊”だとイメージしてください。テキスト、画像、段落書式、文字書式、そして表の構造まで、`Range`一つでその全てを表現し、操作できるのです。

マクロの記録で生成されるコードにありがちな`Selection`オブジェクト（ユーザーが選択している範囲）に依存した操作は、意図しない書式の崩れやエラーの温床になりがちです。しかし、`Range`オブジェクトを直接操作するようになれば、あなたのVBAコードは堅牢かつ柔軟に進化します。

【核心】Rangeオブジェクトで書式ごと行をコピーする「魔法」

今回の目標は、既存の表の最終行をコピーして、その書式設定を完全に保持したまま、表の末尾に新しい行として追加することです。

この操作を最も安全かつスマートに行うには、`Range.Copy`メソッドと`Range.Paste`メソッドの組み合わせが非常に強力です。

なぜ `Range.Copy` と `Range.Paste` がベストなのか？

Word VBAで表の行を追加する方法はいくつかあります。例えば、`Rows.Add`メソッドで新しい行を追加し、その後で既存の行から書式をコピーするというアプローチも考えられます。しかし、これは非常に手間がかかりますし、複雑な書式設定（条件付き書式、セル内の段落書式など）を完璧に再現するのは至難の業です。

ここで登場するのが、`Range.Copy`と`Range.Paste`の「魔法」です。

1. `Range.Copy`: コピー元の`Range`（この場合はコピーしたい行全体）の内容と書式を、そっくりそのままWordのクリップボードに保存します。これは、まるでその行の「完璧なスナップショット」を撮るようなものです。
2. `Range.Paste`: クリップボードに保存されたこの「スナップショット」を、指定した挿入先の`Range`に、内容も書式も寸分違わず再現して貼り付けます。

この一連の操作は、Wordの内部で最適化されており、最も効率的かつ確実に書式を保持したまま行を複製できる方法なのです。

操作のイメージ

1. コピー元: 最終行の`Range`を取得します。

+—————–+
| ヘッダ |
+—————–+
| データ1 |
+—————–+
| データ2 | ← コピー元 Range (最終行)
+—————–+

2. コピー: `Range.Copy`でクリップボードに保存。

3. 挿入位置: 最終行の直後（つまり表の末尾）の`Range`を指定します。

+—————–+
| ヘッダ |
+—————–+
| データ1 |
+—————–+
| データ2 |
+—————–+
↑ ここに貼り付けたい！

4. 貼り付け: `Range.Paste`でクリップボードの内容を挿入位置に貼り付けます。

+—————–+
| ヘッダ |
+—————–+
| データ1 |
+—————–+
| データ2 |
+—————–+
| データ2 | ← コピーされた新しい行
+—————–+

このイメージを頭に入れて、具体的なコードを見ていきましょう！

実践コード: 表の最終行をコピーして追加する

以下のコードは、アクティブなWord文書の1番目の表の最終行をコピーし、その書式を完璧に保持したまま、表の末尾に新しい行として追加します。

Sub CopyLastRowAndAppendToTable()

‘ 画面更新を一時的に停止し、処理を高速化します。
‘ これにより、VBA実行中の画面のちらつきを防ぎ、ユーザー体験を向上させます。
Application.ScreenUpdating = False

On Error GoTo ErrorHandler

Dim objTable As Word.Table
Dim objLastRow As Word.Row
Dim objCopyRange As Word.Range
Dim objPasteRange As Word.Range

‘ — 1. 対象の表を取得する —
‘ アクティブな文書に表が少なくとも1つ存在するか確認します。
If ActiveDocument.Tables.Count = 0 Then
MsgBox “文書に表が見つかりません。”, vbExclamation
GoTo ExitSub
End If

‘ 文書内の最初の表（インデックス1）を操作対象とします。
‘ 必要に応じて、Tables(1) の 1 を変更して別の表を指定できます。
Set objTable = ActiveDocument.Tables(1)

‘ — 2. コピー元となる最終行のRangeを取得する —
‘ 表の最終行を取得します。Rows.Count で行の総数がわかります。
Set objLastRow = objTable.Rows(objTable.Rows.Count)

‘ 最終行全体のRangeオブジェクトを取得します。
‘ Rangeオブジェクトは、行の内容と書式を全て含みます。
Set objCopyRange = objLastRow.Range

‘ — 3. クリップボードにRangeの内容をコピーする —
‘ 取得したRangeオブジェクトの内容（テキスト、書式など全て）をクリップボードにコピーします。
objCopyRange.Copy

‘ — 4. 貼り付け先のRangeを準備する —
‘ 新しい行を挿入する位置を指定します。
‘ ここでは最終行の直後、つまり表の末尾に挿入します。
‘ objLastRow.Range.End プロパティで最終行の末尾位置のRangeを取得します。
‘ Collapse wdCollapseEnd は、そのRangeを末尾に「縮退」させ、
‘ カーソルが点滅する一点のような状態（挿入ポイント）にします。
‘ これにより、貼り付け時に新しいコンテンツが正しく挿入されます。
Set objPasteRange = objLastRow.Range
objPasteRange.Collapse Direction:=wdCollapseEnd

‘ — 5. クリップボードの内容を貼り付ける —
‘ クリップボードにコピーされた内容（最終行の書式とデータ）を
‘ objPasteRangeで指定した位置に貼り付けます。
‘ これにより、書式が完全に継承された新しい行が追加されます。
objPasteRange.Paste

‘ — 6. 追加された行の内容をクリア（任意） —
‘ コピー元と同じ内容が貼り付けられるので、通常は新しいデータに置き換えるためにクリアします。
‘ 追加された新しい行は、元の最終行の直後の行になります。
‘ そのため、objTable.Rows.Count で新しい最終行を取得できます。
Dim objNewRow As Word.Row
Set objNewRow = objTable.Rows(objTable.Rows.Count)

‘ 新しい行の各セルのテキストをクリアします。
‘ これにより、新しいデータを流し込む準備ができます。
Dim objCell As Word.Cell
For Each objCell In objNewRow.Cells
objCell.Range.Text = “” ‘ セルの内容をクリア（改行コードも含む）
‘ セルに数値を流し込む準備として、もし数値書式が適用されていれば保持されます。
Next objCell

MsgBox “表の最終行をコピーし、新しい行を追加しました。”, vbInformation

ExitSub:
‘ 画面更新を再開します。
Application.ScreenUpdating = True
‘ オブジェクトを解放します。
Set objTable = Nothing
Set objLastRow = Nothing
Set objCopyRange = Nothing
Set objPasteRange = Nothing
Set objNewRow = Nothing
Set objCell = Nothing
Exit Sub

ErrorHandler:
MsgBox “エラーが発生しました: ” & Err.Description, vbCritical
GoTo ExitSub

End Sub

コードのポイント解説

• `Application.ScreenUpdating = False`: VBAの処理中に画面の更新を一時的に停止します。これにより、処理速度が向上し、実行中の画面のちらつきがなくなります。大量の処理を行う際には必須のテクニックです。
• `objTable = ActiveDocument.Tables(1)`: 現在開いている文書の最初の表を取得しています。もし文書内に複数の表がある場合は、適切なインデックス（例: `Tables(2)`）を指定するか、ループで目的の表を探す必要があります。
• `objLastRow = objTable.Rows(objTable.Rows.Count)`: `objTable.Rows.Count`で行の総数を取得し、それをインデックスとして指定することで、表の「最終行」を特定しています。
• `Set objCopyRange = objLastRow.Range`: ここが非常に重要です。`Row`オブジェクトから`Range`オブジェクトを取得することで、その行が持つすべての情報（テキスト、段落設定、文字書式、罫線スタイルなど）を`objCopyRange`に「閉じ込めて」います。
• `objCopyRange.Copy`: このたった一行で、先ほど「閉じ込めた」すべての情報がクリップボードに複製されます。
• `Set objPasteRange = objLastRow.Range` と `objPasteRange.Collapse Direction:=wdCollapseEnd`: ここも肝です。`objLastRow.Range`で最終行の範囲全体を取得し、それを`Collapse wdCollapseEnd`でその範囲の「終わり」に縮退させています。これは、Wordが「ここに新しい内容を挿入してね」と解釈する「挿入ポイント」を作る操作です。このポイントに`Paste`することで、最終行の直下に内容が挿入されます。
• `objPasteRange.Paste`: クリップボードの内容を、指定した挿入ポイントに貼り付けます。これだけで書式込みの行が追加されるのです！
• 追加された行のクリア: コピーしたばかりの行は、コピー元の内容と同じテキストが入っています。通常は新しいデータを流し込むため、`objNewRow.Cells`をループして`objCell.Range.Text = “”`で内容をクリアしています。`objCell.Range.Text = “”`とすることで、セルの内容だけでなく、そのセル内の段落の末尾にある特殊な改行コードなども適切に処理され、完全に空の状態になります。

追加した行にデータを流し込む

行を追加しただけでは、まだコピー元の内容が残っています。通常は、追加した新しい行に新しいデータを入力したいですよね。先ほどのコードにも含まれていますが、具体的なデータの流し込み方を見ていきましょう。

新しい行は、表の最後の行として追加されます。そのため、`objTable.Rows(objTable.Rows.Count)`でいつでも参照できます。

Sub FillNewRowWithData()

Application.ScreenUpdating = False
On Error GoTo ErrorHandler

Dim objTable As Word.Table
Dim objNewRow As Word.Row

‘ 対象の表を取得
If ActiveDocument.Tables.Count = 0 Then
MsgBox “文書に表が見つかりません。”, vbExclamation
GoTo ExitSub
End If
Set objTable = ActiveDocument.Tables(1)

‘ ここで行をコピー＆追加する処理を挟むか、
‘ 上記の CopyLastRowAndAppendToTable Sub を実行済みとする

‘ 追加された新しい行（現在の最終行）を取得
Set objNewRow = objTable.Rows(objTable.Rows.Count)

‘ 新しい行のセルにデータを流し込む
‘ セルは Cells(行インデックス, 列インデックス) で参照します。
‘ 行インデックスは objNewRow.Index で取得できますが、
‘ 直接 objNewRow.Cells(列インデックス) の方がシンプルです。

‘ 1列目にテキストを挿入
objNewRow.Cells(1).Range.Text = “新しい商品コード”
‘ 2列目に数値を挿入
objNewRow.Cells(2).Range.Text = “12345”
‘ 3列目に日付を挿入
objNewRow.Cells(3).Range.Text = Format(Date, “yyyy/mm/dd”)
‘ 4列目（存在すれば）
If objNewRow.Cells.Count >= 4 Then
objNewRow.Cells(4).Range.Text = “備考欄の新しい情報”
End If

MsgBox “新しい行にデータを入力しました。”, vbInformation

ExitSub:
Application.ScreenUpdating = True
Set objTable = Nothing
Set objNewRow = Nothing
Exit Sub

ErrorHandler:
MsgBox “エラーが発生しました: ” & Err.Description, vbCritical
GoTo ExitSub

End Sub

データ流し込みのポイント

• `objNewRow.Cells(ColumnIndex).Range.Text = “データ”`: 各セルの`Range.Text`プロパティに直接値を代入することで、データを流し込みます。この際、元のセルの書式（フォント、色、配置など）はそのまま維持されます。
• `Cells.Count`での列数チェック: `objNewRow.Cells.Count`でその行の列数を取得できます。これにより、存在しない列にアクセスしようとしてエラーになるのを防ぐことができます。

よくある落とし穴と解決策

Word VBA初心者の方が表操作で陥りやすいポイントをいくつかご紹介します。

1. 「オブジェクトは、このプロパティまたはメソッドをサポートしていません。」エラー

• 原因: `Table`オブジェクトや`Row`オブジェクトが正しく取得できていない可能性が高いです。例えば、`ActiveDocument.Tables(1)`と書いているのに、文書内に表が一つも存在しない場合など。
• 解決策: コードの最初に`If ActiveDocument.Tables.Count = 0 Then`のようなチェックを入れ、表が存在するかどうかを確認しましょう。また、`Set`キーワードを忘れてオブジェクト変数に代入しようとすると発生することもあります。

2. 「表がありません」というメッセージボックスが表示された

• 原因: 上記のエラーハンドリングで、実際に文書内に表が見つからなかった場合です。
• 解決策: 対象のWord文書に、操作したい表が確実に存在することを確認してください。場合によっては、表がテキストボックスや図形の中に埋め込まれていて、通常の`Tables`コレクションからはアクセスできないこともあります。

3. 書式が意図せず崩れる

• 原因: `Selection`オブジェクトに依存した操作を多用している場合や、`Range`の指定が不正確な場合に起こりやすいです。例えば、`Selection.Copy`の後に、別の`Selection.Paste`を行うと、カーソルの位置や選択範囲の状態によって予期せぬ結果を招くことがあります。
• 解決策: 今回ご紹介したように、`Range`オブジェクトを直接使ってコピー元と貼り付け先を明確に指定することが、書式を保持する最も確実な方法です。`Range`は「自己完結した塊」なので、外部の`Selection`の状態に左右されません。

4. 処理が遅い、画面がちらつく

• 原因: 大量の行を追加したり、複雑な表を繰り返し操作したりする場合に発生します。WordがVBAの命令一つ一つに対して、画面を再描画したり、イベント（マウスの動きなど）を処理したりするため、オーバーヘッドが生じます。
• 解決策: コードの最初に`Application.ScreenUpdating = False`、最後に`Application.ScreenUpdating = True`を入れることで、画面の更新を一時的に停止し、処理速度を大幅に向上させることができます。また、`Application.EnableEvents = False`でイベント処理も一時的に停止することで、さらにパフォーマンスを改善できる場合があります。

応用へのステップ

今回の知識を習得すれば、さらに高度な表操作へステップアップできます。

• 特定の条件で行をコピーする: 例えば、「ステータスが『未処理』の行だけをコピーして、別の表に追加する」といった処理も、ループと`If`文を組み合わせることで実現できます。
• 複数の行を一度にコピーする: `Range`オブジェクトは単一行だけでなく、複数行にわたる範囲も指定できます。`objTable.Range.Rows(StartRow).Range.End = objTable.Rows(EndRow).Range.End`のように範囲を調整すれば、複数行を一括でコピーできます。
• テンプレート行を隠しておいてコピーする: 表の一番上や一番下に、常にコピー元として使う「テンプレート行」を用意し、その行を非表示にしておくことで、ユーザーからは見えないけれどVBAからはアクセスできる、というスマートな運用も可能です。

—

まとめ: Rangeオブジェクトをマスターし、Word VBAを支配しよう！

今回は、Word VBAで表の行をコピーし、書式を完璧に継承して追加する方法を学びました。特に、`Range`オブジェクトの強力さと、`Range.Copy`と`Range.Paste`メソッドがいかに効率的で安全な方法であるかを深く理解していただけたかと思います。

`Selection`オブジェクトに頼らず、`Range`オブジェクトを直接操作するこの手法を習得すれば、あなたのWord VBAスキルは格段に向上するでしょう。書式が崩れる不安から解放され、より堅牢で信頼性の高いマクロを自信を持って作成できるようになります。

ここをクリアすれば、Word VBAの表操作の基本はバッチリですよ！
さあ、この知識を武器に、あなたの業務自動化をさらに加速させていきましょう！
何か不明な点があれば、いつでも質問してくださいね。