対象:Word2007, Word2010, Word2013
「vba word 全文章削除」
という検索で、このサイト・インストラクターのネタ帳へのアクセスがありました。
[スポンサードリンク]
すべての文章を削除するサンプルマクロ
参考になりそうなシンプルなWordマクロをご紹介しておきます。
Sub 本文全体を削除する()
ActiveDocument.StoryRanges(wdMainTextStory).Delete
End Sub
ActiveDocument.StoryRanges(wdMainTextStory).Delete
End Sub
上記のマクロを実行すると、アクティブな文書上の、本文のすべての文章が削除されます。
サンプルマクロの解説
ActiveDocumentプロパティでアクティブ文書を表すDocumentオブジェクトを取得して、
DocumentオブジェクトのStoryRangesプロパティでStoryRangesコレクションオブジェクトを取得し、
StoryRangesコレクションオブジェクトのデフォルトメンバーであるItemメソッドに、
定数wdMainTextStoryを指定することで、
本文全体を表すRangeオブジェクトを取得して、そのRangeオブジェクトをDeleteメソッドで削除しているのが、
上記のマクロです。
本文以外の部分を削除したい場合
本文だけを削除するならば上記のコードでOKですが、ヘッダーに入力されている文字列は削除されません。
本文以外の場所も削除したい場合は、StoryRangesコレクションオブジェクトのItemメソッドに指定する定数を適宜変更してください。
例えば、ヘッダーを削除したいなら、
ActiveDocument.StoryRanges(wdPrimaryHeaderStory).Delete
です。
最終更新日時:2020-05-01 11:35
[スポンサードリンク]
Home » ワードマクロ・Word VBAの使い方 » Documentオブジェクト » Word VBAですべての文章・本文を削除する