Home » ワードマクロ・Word VBAの使い方 » スタイル » Word VBAでカーソル位置のスタイル名を取得

Word VBAでカーソル位置のスタイル名を取得

対象：Word2007, Word2010, Word2013

「ワードvba スタイル取得」
「word vba スタイル名取得」
といった検索で、このサイト『インストラクターのネタ帳』へのアクセスが、時折あることに気づきました。

Wordのスタイルやスタイル名を取得するVBAのコードを探していた方による検索です。

［スポンサードリンク］

カーソル位置のスタイル名を取得するサンプルマクロ

これらの検索キーワードだけでは具体的に何がしたかったのかがわかりませんので、参考になるかもしれないシンプルなマクロをご紹介しておきます。

Sub スタイル名を取得する()
　MsgBox Selection.Style.NameLocal
End Sub

上記のようなコードで、カーソルのある位置のスタイル名がメッセージボックスに表示されます。

標準スタイルにカーソルがあれば「標準」見出し1スタイルにカーソルがあれば「見出し1」とメッセージボックスに表示されます。

オブジェクトブラウザーで、［完全に一致する単語だけを検索］する設定にして、Wordライブラリに限定して「style」を検索すると、以下のような結果となります。

カーソル位置のスタイル名を取得するWordマクロ

Styleオブジェクトが存在していること、複数のオブジェクトにStyleプロパティが存在していることがわかります。

上記のマクロでは、この中のSelectionオブジェクトに用意されているStyleプロパティを使用しています。

オブジェクトブラウザーで確認するとわかるとおり、NameLocalプロパティはStyleオブジェクトのデフォルトプロパティですから、

カーソル位置のスタイル名を取得するWordマクロ

NameLocalを省略した、

MsgBox Selection.Style

というコードでも、スタイル名をメッセージボックスに表示させられますが、可読性を考えると上記のマクロのとおり、

MsgBox Selection.Style.NameLocal

としておくほうがイイと私は感じます。

最終更新日時：2022-02-16 11:30

［スポンサードリンク］

Home » ワードマクロ・Word VBAの使い方 » スタイル » Word VBAでカーソル位置のスタイル名を取得

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

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

Excel VBAの経験がある方を対象に、Word VBAの基本をキンドル本としてまとめました↓↓

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

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

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

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

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

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

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

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

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

「スタイル」の記事一覧