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

2014年10月の人気記事前のページ

Unicodeブロックを元に指定した文字が平仮名なのかカタカナなのか漢字なのかを判別するVBAマクロ次のページ

関連記事

  1. Office関連

    「2014年12月のWindows Update以降コマンドボタンが使えなくなった」トラブルへのFi…

    当ブログでも「KB2553154の更新プログラムをアンインストールする…

  2. Office関連

    選択中の図形の文字列を蛍光ペンでハイライトするPowerPointマクロ

    MSDNフォーラムに「PowerPoint 2016で、マクロで選択中…

  3. Office アドイン

    [Office用アプリ]Google ドライブでアプリを公開する方法

    今回は先日登壇した第一回 Apps for Office 勉強会の中で…

  4. Office関連

    Word 2013では文書にオンライン ビデオを挿入できるようになりました。

    ※ この情報はOffice 2013 カスタマー プレビュー版を元にし…

  5. Office関連

    Microsoft Graph ExplorerがMicrosoft アカウント(MSA)に対応しま…

    Azure AD v2.0 エンドポイントによって、個人用Micros…

  6. Office アドイン

    [Office用アプリ]第三回 Apps for Office 勉強会で登壇しました。

    10月4日(土)に開催されたOffice 用アプリの勉強会「第3回 A…

コメント

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

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

Time limit is exhausted. Please reload CAPTCHA.

※本ページはプロモーションが含まれています。

Translate

最近の記事

アーカイブ

PAGE TOP