Word VBAで「PasteAndFormat」を使って、Excelの表をそのまま貼り付ける方法

WordでExcelの表をそのまま貼り付けたいとき、手動でコピー＆ペーストしても、書式が崩れたり、余計なスペースが入ったりすることがありますよね。そんなときに便利なのが、Word VBAの「PasteAndFormat」メソッドです。これを使うと、Excelの表をWordに貼り付ける際に、書式をきれいに保ったまま貼り付けることができます。

今回は、初心者の方にもわかりやすく、実際のコード例とともに「PasteAndFormat」の使い方をご紹介します。

「PasteAndFormat」とは？
基本的な使い方
よく使う書式の定数一覧
実際の活用例
よくある質問や疑問
今すぐ解決したい！どうしたらいい？
まとめ

「PasteAndFormat」とは？

Wordのイメージ

「PasteAndFormat」は、Word VBAでクリップボードの内容を貼り付ける際に、指定した書式で貼り付けるためのメソッドです。これを使うことで、手動での貼り付け時に起こりがちな書式の崩れを防ぐことができます。

例えば、Excelで作成した表をWordに貼り付けるとき、通常の貼り付けでは書式が崩れることがありますが、「PasteAndFormat」を使うと、指定した書式で正確に貼り付けることができます。

基本的な使い方

以下は、Excelの表をWordに貼り付ける際に「PasteAndFormat」を使用する基本的なコード例です。

Sub ExcelToWord()

    Dim wdApp As Object

    Dim wdDoc As Object

    Dim excelRange As Range
    ' Excelの範囲を設定

    Set excelRange = ThisWorkbook.Sheets("Sheet1").Range("C5")
    ' Wordを起動

    Set wdApp = CreateObject("Word.Application")

    wdApp.Visible = True
    ' 新しい文書を作成

    Set wdDoc = wdApp.Documents.Add
    ' Excelの範囲をコピー

    excelRange.Copy
    ' Wordに貼り付け

    wdDoc.Content.PasteAndFormat (16) ' 16はwdFormatOriginalFormattingの定数値

' 後処理 Set excelRange = Nothing Set wdDoc = Nothing Set wdApp = Nothing End Sub

このコードでは、Excelの「Sheet1」のからC5までの範囲をコピーし、新しいWord文書にそのままの書式で貼り付けています。16は、wdFormatOriginalFormattingの定数値で、元の書式をそのまま保持して貼り付けることを意味します。

よく使う書式の定数一覧

「PasteAndFormat」メソッドでは、さまざまな書式を指定することができます。以下は、よく使われる書式の定数とその意味です。

定数	意味
16	元の書式を保持して貼り付ける（wdFormatOriginalFormatting）
2	プレーンテキストとして貼り付ける（wdFormatPlainText）
1	元の書式を無視して貼り付ける（wdFormatNoFormatting）
4	リストの番号を続けて貼り付ける（wdListContinueNumbering）
5	リストの番号を再開して貼り付ける（wdListRestartNumbering）