段落罫線を削除するWordマクロ

動作検証バージョン：Windows 11 Home + 64bit Word バージョン 2406（ビルド17630.20000クイック実行）ベータチャネル

YouTubeのショート動画「記号入力だけで罫線が引ける！種類豊富な簡単罫線！ #ワード #word」を見て、段落罫線の削除が面倒だったことを思い出したので、Wordマクロを作ってみました。

文書全体の段落罫線を削除するWordマクロ

以下のWordマクロを実行すると、アクティブなWord文書のすべての段落罫線を削除できます。

Sub 段落罫線を削除する__アクティブ文書全体()
　ActiveDocument.Paragraphs.Borders.Enable = False
End Sub

拙著『Excel VBAユーザーのためのWord VBA入門（1）: Document・Range・Selectionの基本編』の、［chapter 5. ParagraphFormatは段落書式を表す］［chapter 6. Paragraphは段落を表す］で、段落に関係するオブジェクトについて解説しています。

これらの段落関連のオブジェクトにはBordersプロパティが用意されています。

上図はオブジェクトブラウザーで対象をWordライブラリに限定して「Borders」を完全一致検索した状態です。

Bordersプロパティで取得できるBordersコレクションのEnableプロパティにFalseを指定することで、段落罫線を削除できます。

上図はオブジェクトブラウザーで対象をWordライブラリに限定して「Enable」を完全一致検索した状態です。

文書全体の段落罫線削除は、「ActiveDocument.Paragraphs.Borders.Enable = False」という比較的シンプルなコードで済みますが、Bordersを真面目に理解しようとすると、ちょっと面倒です。
興味のある方は、以下のような記事もあわせてご覧ください。

以下のWordマクロで、アクティブなページの段落罫線をすべて削除できます。

Sub 段落罫線を削除する__アクティブページ()
　ActiveDocument.Bookmarks("\Page").Range.Paragraphs.Borders.Enable = False
End Sub

先ほどの文書全体の段落罫線削除では、文書全体のParagraphsコレクションを取得すするので、以下のようなコードで済んでいましたが、

ActiveDocument.Paragraphs

アクティブページのParagraphsコレクションを取得するために、

ActiveDocument.Bookmarks("\Page").Range.Paragraphs

拙著の［chapter 8. ページを扱うには］で解説しているBookmarksコレクションを使った長いコードになっています。

Excel VBAユーザーのためのWord VBA入門（1）: Document・Range・Selectionの基本編

伊藤潔人 2021-02-17

最終更新日時：2024-05-22 09:40

［スポンサードリンク］

『インストラクターのネタ帳』では、2003年10月からMicrosoft Officeの使い方などを紹介し続けています。
図形を操作するExcel VBAの基本を解説したキンドル本を出しました↓↓

グラフを操作するExcel VBAの基本を解説したキンドル本です↓↓

『インストラクターのネタ帳』を運営する伊藤潔人が、初めて書かせていただいた書籍です↓↓

PowerPoint VBA本は、実はオブジェクトブラウザーの使い方を徹底的に解説した本です↓↓

Pythonの外部ライブラリOpenPyXL（オープンパイエクセル）の入門書を、Excel VBAユーザーに向けに書きました↓↓

Excel VBAユーザーの方を対象として、Word VBAの基本をキンドル本としてまとめました↓↓

Excel VBAユーザーを対象に、Wordの表をVBAで操作する基礎をまとめました↓↓

Pythonの文字列フォーマットの基本をキンドル本としてまとめました↓↓

小数とPythonのdecimalモジュールの基本をキンドル本としてまとめました↓↓

数式を使った条件付き書式設定が苦手な方に向けたKindle本を書きました↓↓

日経BP社から出版された、Excel VBAユーザー向けのPython超入門書です↓↓

上記の『Excel VBAユーザーのためのPythonプログラミング』の元になったキンドル本です↓↓

「段落・パラグラフ」の記事一覧