サンプルコードでできること 使用しているスタイルの一覧を取得して、メッセージボックスに表示します。 Sub getStyleList_Activedocument() Dim strList As String strList = getStyleList(ActiveDocument) MsgBox strList End Sub Private Function getSty…

サンプルコードでできること 選択した段落の書式を、前の段落に合わせます。Ctrl+Shift+Cキーで段落書式コピーできますが、前の段落に移動してコピー、戻って貼り付けが意外と面倒です。 マクロをボタン化すると、ショートカットより楽です。 Sub CopyPrePaa…