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