【Word VBA/マクロ】段落書式コピー

サンプルコードでできること

選択した段落の書式を、前の段落に合わせます。

Ctrl+Shift+Cキーで段落書式コピーできますが、前の段落に移動してコピー、戻って貼り付けが意外と面倒です。
マクロをボタン化すると、ショートカットより楽です。

Sub CopyPrePaaraFormat()
    Dim preParFmt As ParagraphFormat
    Set preParFmt = _
        Selection.Paragraphs(1).Previous.Range.ParagraphFormat
    Selection.ParagraphFormat = preParFmt
End Sub