Home » ワードマクロ・Word VBAの使い方 » スタイル » 見出しスタイルの先頭にあるスペースを削除するWordマクロ

見出しスタイルの先頭にあるスペースを削除するWordマクロ

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

最近、スタイルを適用した200ページほどのWord文書を編集しています。
その編集中に、（置換を失敗したのか）見出しの先頭に半角スペースが存在する状態になっていました。

見出しスタイルを適用した段落が大量にあったため、これを削除するマクロを作成しました。

見出しスタイルの先頭に存在するスペースを削除するWordマクロ

以下のWordマクロを実行すると、見出しスタイルの適用されている段落の先頭の半角スペースが削除されます。

Sub 見出しの先頭にある半角スペースを削除する()
　Dim par As Paragraph
　For Each par In ActiveDocument.Paragraphs
　　If Left(par.Style.NameLocal, 3) = "見出し" Then

　　　If Left(par.Range.Text, 1) = " " Then
　　　　par.Range.Characters.First.Delete
　　　　'## 確認時には↑をコメントアウトして↓をアンコメントする
　　　　' par.Range.Characters.First.Select: Stop
　　　End If

　　End If
　Next
End Sub

途中にコメントを入れているとおり、

par.Range.Characters.First.Delete
'## 確認時には↑をコメントアウトして↓をアンコメントする
' par.Range.Characters.First.Select: Stop

の部分を、以下の形にして実行した場合には、、

' par.Range.Characters.First.Delete
'## 確認時には↑をコメントアウトして↓をアンコメントする
par.Range.Characters.First.Select: Stop

削除ではなく、見出しスタイルの先頭に存在する半角スペースを確認できます。

見出しスタイルの先頭に存在するスペースを削除するWordマクロで行っている処理

拙著『Excel VBAユーザーのためのWord VBA入門（1）』の［6-2. ParagraphsからParagraphを取得する］で解説している、For Each～Nextループで全段落に対して処理を行っています。

Dim par As Paragraph
For Each par In ActiveDocument.Paragraphs

段落のスタイル名の先頭3文字が「見出し」だったときに、

　If Left(par.Style.NameLocal, 3) = "見出し" Then

先頭の1文字目をVBAのLeft関数を使って取得して半角スペースかを調べ、

　　If Left(par.Range.Text, 1) = " " Then

半角スペースであれば先頭の1文字を削除しています。

　　　par.Range.Characters.First.Delete
Excel VBAユーザーのためのWord VBA入門（1）: Document・Range・Selectionの基本編
伊藤潔人 2021-02-17
Amazon


［スポンサードリンク］

Home » ワードマクロ・Word VBAの使い方 » スタイル » 見出しスタイルの先頭にあるスペースを削除するWordマクロ

『インストラクターのネタ帳』では、2003年10月からMicrosoft Officeの使い方などを紹介し続けています。
Excel VBAの経験がある方を対象に、Word VBAの基本をキンドル本としてまとめました↓↓ Excel VBAユーザーの方を対象として、Wordの表をVBAで操作する基礎をまとめました↓↓ 『インストラクターのネタ帳』を運営する伊藤潔人が、初めて書かせていただいた書籍です↓↓ PowerPoint VBA本は、実はオブジェクトブラウザーの使い方を徹底的に解説した本です↓↓ 日経BP社から出版された、Excel VBAユーザー向けのPython超入門書です↓↓ 上記の『Excel VBAユーザーのためのPythonプログラミング』の、元になったキンドル本です↓↓ Pythonの文字列フォーマットの基本をキンドル本としてまとめました↓↓ 小数とPythonのdecimalモジュールの基本をキンドル本としてまとめました↓↓ 数式を使った条件付き書式設定が苦手な方に向けたKindle本を書きました↓↓ 図形を操作するExcel VBAの基本を解説したキンドル本を書きました↓↓ グラフを操作するExcel VBAの基本を解説したキンドル本も出しました↓↓ Pythonの外部ライブラリOpenPyXL（オープンパイエクセル）の入門書を、Excel VBAユーザーに向けに書きました↓↓


「スタイル」の記事一覧

検索


Copyright © インストラクターのネタ帳 All Rights Reserved.

.