【VBA】ワードファイルの本文をすべて削除する

エクセルVBAでよく使うコードの備忘録。VBAでワードファイルを操作し本文をすべて削除するコード。

事前準備

VBAでワードファイルを操作するには、参照設定が必要です。VBAのコードエディタから「ツール > 参照設定」と進み、「Microsoft Word XX.X Object Library」にチェックを入れておきます。

本文全体を削除する

本文を削除する単純な方法は、全体を選択してその内容を削除する方法です。StoryRangesオブジェクトを使うとシンプルに実現できます。

サンプルコード

Public Sub DeleteAllDoc()
    
    '--- Wordのアプリケーションオブジェクト ---'
    Dim objWord As Word.Application
    Set objWord = CreateObject("Word.Application")
    objWord.Visible = True
    
    '--- ドキュメントオブジェクト ---'
    Dim objDoc As Word.Document
    Set objDoc = objWord.Documents.Open("[ワードファイルのパス]")
    
    '--- 全体を削除する ---'
    objDoc.StoryRanges(wdMainTextStory).Delete
    
    '--- ドキュメントを閉じる ---'
    objDoc.Close
    
End Sub