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 365アイコン(imageMso)一覧(T)

    Office 365のデスクトップ版Officeアプリケーション(Wo…

  2. Office関連

    PDFファイル上のフィールドの値を操作するVBAマクロ

    「PDFファイルに差し込み印刷するVBAマクロ」で、Acrobatを操…

  3. Office関連

    Excel Web Appのブック埋め込みを試してみました。

    Microsoftが提供しているOffice Web Appsはいわば…

  4. Office アドイン

    [Office用アプリ]OneNote Clipperをアプリから使う。

    先日Chrome版が公開された、「OneNote Clipper」です…

  5. アイコン一覧

    Office 2013 アイコン一覧(I)

    ・Office 2013 アイコン一覧 NUM…

  6. Office関連

    Microsoft Graph SDK for PHPを使ったAPIの呼び出しサンプル

    知らない間に(恐らくBuild 2017のタイミングに合わせて)Mic…

コメント

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

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

Time limit is exhausted. Please reload CAPTCHA.

最近の記事

アーカイブ

RapidSSL_SEAL-90x50
PAGE TOP