Office関連

「文書のスタイル」を設定するWordマクロ

Wordのオプション画面 → 文章校正 → Word のスペル チェックと文章校正 に「文書のスタイル」項目がありますが、今回はこの文書のスタイルを変更するマクロを紹介します。

Word_WritingStyle_01

設定できるスタイル名は、下記コードのようにLanguageオブジェクトのWritingStyleListプロパティから取得することができます。

Public Sub Sample1()
'「文書のスタイル」列挙
  Dim v As Variant
  Dim i As Long
 
  With Application
    v = .Languages(.Language).WritingStyleList
    For i = LBound(v) To UBound(v)
      Debug.Print v(i)
    Next
  End With
End Sub

上記コードではApplicationオブジェクトのLanguageプロパティから言語を取得していますが、

v = .Languages(wdJapanese).WritingStyleList

のように、言語を直接指定(WdLanguageID)することもできます。
(もちろん、指定した言語の校正ツールがインストールされていることが前提になりますが)

文書のスタイルを変更する場合は、下記コードのようにDocumentオブジェクトのActiveWritingStyleプロパティを使います。

Public Sub Sample2()
'「文書のスタイル」を「くだけた文」に変更
  ActiveDocument.ActiveWritingStyle(Application.Language) = "くだけた文"
End Sub

上記コードもApplicationオブジェクトのLanguageプロパティによって言語を指定していますが、これもやはり、「ActiveWritingStyle(wdEnglishUS)」のように、直接言語を指定することができます。

■ 関連Webページ

・Wordの文章校正設定の「文書のスタイル」をマクロで取得・変更したい
https://social.msdn.microsoft.com/Forums/ja-JP/vbajp/thread/8c144301-d259-4388-af63-81faeb1bce05

関連記事

  1. Office関連

    OneNoteのノート名を列挙するマクロ

    今回はOneNoteのノート名を列挙するマクロを紹介します。O…

  2. Office関連

    ClosedXMLやEPPlusでExcelファイルを読み書きしてみた。

    今回の記事の発端は下記のQiita投稿。・Excelファイ…

  3. Office関連

    スライドショーをループ再生設定するPowerPointマクロ

    PowerPointでスライドショーを作成するとき、投影した後流しっぱ…

  4. Office アドイン

    [Office用アプリ]日本のOfficeストア向けにもアプリを登録できるようになりました。

    Officeストアにアプリを登録する際、これまではアプリのサポート言語…

  5. Office関連

    [雑感]Office 365 Soloに向く人、向かない人

    ここ一週間ほどOffice 365 Soloを触ってみて、ある程度のこ…

コメント

  1. この記事へのコメントはありません。

  1. この記事へのトラックバックはありません。

Time limit is exhausted. Please reload CAPTCHA.

最近の記事

アーカイブ

RapidSSL_SEAL-90x50
PAGE TOP