Word VBAで「Laufzeitfehler 4605」エラーを解決する方法

Word VBAを使っていると、「Laufzeitfehler 4605（ランタイムエラー4605）」というエラーに直面することがあります。これは、ドイツ語のエラーメッセージで「このメソッドまたはプロパティは、オブジェクトが保護された領域を参照しているため使用できません」と表示されます。特に初心者の方にとっては、何が問題なのか分かりづらいかもしれません。そこで、今回はこのエラーの原因と解決方法を、わかりやすくご説明します。

このエラーが発生する主な原因
エラー4605の解決方法
実際のコード例
よくある質問
今すぐ解決したい！どうしたらいい？
まとめ

このエラーが発生する主な原因

Wordのイメージ

まず、エラー4605が発生する典型的な状況を見てみましょう。

ここがポイント！

保護された文書を操作している場合
アクティブなウィンドウがない状態でVBAコードを実行している場合
クリップボードが空であるか無効な場合

例えば、保護された文書でコピー＆ペーストを試みると、このエラーが発生することがあります。これは、文書が保護されているため、特定の操作が制限されているからです。

エラー4605の解決方法

それでは、具体的な解決方法を見ていきましょう。

アクティブなウィンドウを確認する

VBAコードを実行する前に、対象の文書がアクティブな状態であることを確認してください。アクティブでない場合、以下のようにコードを修正することで解決できます。

Documents("YourDocumentName").Activate

保護された文書の解除

文書が保護されている場合、以下のコードで保護を解除できます。

ActiveDocument.Unprotect Password:="YourPassword"

ただし、文書の保護を解除する際は、適切な権限が必要です。

クリップボードの状態を確認する

クリップボードが空である場合、ペースト操作を行うとエラーが発生します。ペースト前にクリップボードにデータがあるか確認することが重要です。

適切なビューで文書を開く

文書が「読み取り専用ビュー」で開かれていると、特定の操作が制限されることがあります。以下のコードで「印刷レイアウトビュー」に切り替えることができます。

ActiveWindow.View = wdPrintView

実際のコード例

以下は、ExcelからWordにデータをコピー＆ペーストする際のVBAコードの一例です。

Sub CopyDataToWord()

    Dim wdApp As Object

    Dim wdDoc As Object

    Set wdApp = CreateObject("Word.Application")

    Set wdDoc = wdApp.Documents.Add

    wdApp.Visible = True
    ' Excelのデータをコピー

    ThisWorkbook.Sheets("Sheet1").Range("B10").Copy
    ' Wordにペースト

    wdDoc.Content.Paste

' 印刷レイアウトビューに切り替え wdApp.ActiveWindow.View = wdPrintView End Sub

このコードでは、ExcelのデータをWordにコピー＆ペーストし、文書を「印刷レイアウトビュー」で表示するようにしています。