Word VBAでクリップボードにコピーする方法とは？初心者でもできる簡単マクロ解説

Wordで文書を作成していると、コピー＆ペーストを繰り返す作業が面倒に感じることがありますよね。そんなとき、VBA（Visual Basic for Applications）を使って、クリップボードに自動でコピーするマクロを作成すれば、作業効率が格段にアップします。今回は、初心者の方でもわかりやすく、実際に使えるコードとともに解説します。

VBAでクリップボードにコピーする基本のコード
クリップボードの内容を取得する方法
クリップボードを使ったデータ処理の応用例
よくある質問や疑問
今すぐ解決したい！どうしたらいい？
まとめ

VBAでクリップボードにコピーする基本のコード

Wordのイメージ

まずは、VBAでクリップボードにテキストをコピーする基本的なコードをご紹介します。

Sub CopyToClipboard()

    Dim cb As Object

    Set cb = CreateObject("MSForms.DataObject")

    cb.SetText "こんにちは、Word VBA！"

    cb.PutInClipboard

End Sub

このコードを実行すると、クリップボードに「こんにちは、Word VBA！」というテキストがコピーされます。これで、他のアプリケーションに貼り付ける準備が整いました。

クリップボードの内容を取得する方法

次に、クリップボードに保存されているテキストをVBAで取得する方法をご紹介します。

Sub GetFromClipboard()

    Dim cb As Object

    Set cb = CreateObject("MSForms.DataObject")

    cb.GetFromClipboard

    MsgBox cb.GetText

End Sub

このコードを実行すると、クリップボードに保存されているテキストがメッセージボックスで表示されます。これを応用すれば、クリップボードの内容をWord文書に貼り付けたり、他の処理に利用することができます。

クリップボードを使ったデータ処理の応用例

VBAを使って、クリップボードの内容を加工したり、特定の条件で処理を行うことも可能です。例えば、クリップボードの内容を行単位で分割し、特定の文字列を含む行だけをWord文書に貼り付けるマクロを作成することができます。

Sub PasteFilteredData()

    Dim cb As Object

    Set cb = CreateObject("MSForms.DataObject")

    cb.GetFromClipboard

    Dim data As String

    data = cb.GetText

    Dim lines() As String

    lines = Split(data, vbCrLf)

    Dim i As Integer

    For i = 0 To UBound(lines)

        If InStr(lines(i), "特定の文字列") > 0 Then

            Selection.TypeText lines(i) & vbCrLf

        End If

    Next i

End Sub

このマクロでは、クリップボードの内容を行単位で分割し、「特定の文字列」を含む行だけをWord文書に貼り付けています。業務で大量のデータを処理する際に、非常に便利なテクニックです。

よくある質問や疑問

Q1: VBAでクリップボードを操作するには、どの参照設定が必要ですか？

VBAでクリップボードを操作するには、「Microsoft Forms 2.0 Object Library」を参照設定に追加する必要があります。VBE（Visual Basic Editor）で「ツール」→「参照設定」から追加できます。

Q2: クリップボードにコピーした内容を、Word文書に貼り付けるにはどうすればよいですか？

クリップボードの内容をWord文書に貼り付けるには、以下のコードを使用します。

Sub PasteFromClipboard()

    Dim cb As Object

    Set cb = CreateObject("MSForms.DataObject")

    cb.GetFromClipboard

    Selection.TypeText cb.GetText

End Sub

このコードを実行すると、クリップボードの内容がカーソル位置に貼り付けられます。