これは「[書式]メニュー==>[段落]で設定するのは面倒」、そうかと言って「ショートカットも無い」ために作成したマクロです。
マクロの作り方を知っている訳でもありません。[ツール]メニュー==>[マクロ]==>[新しいマクロの記録]で雛形を作り、偏見と独断で修正を加えたものです。目的どおりに動いているので、文法上の間違いはないのでしょう (^_^;)。
実際にはツールバーにボタンを追加して利用しています。
▲段落前、段落後の行間を0行にする
Sub 段落前後0()
With
Selection.ParagraphFormat
.LineUnitBefore = 0
.LineUnitAfter = 0
.SpaceBefore = 0
.SpaceAfter = 0
End With
End Sub
▲段落前の行間を+0.5行する
Sub 段落前P5()
With
Selection.ParagraphFormat
.LineUnitBefore = .LineUnitBefore + 0.5
.LineUnitAfter = 0
End With
End Sub
▲段落後の行間を+0.5行する
Sub 段落後P5()
With
Selection.ParagraphFormat
.LineUnitAfter = .LineUnitAfter + 0.5
End With
End Sub
▲行間を”固定”し、フォントサイズ+2ptにする
Sub 行間固定P2()
With
Selection.ParagraphFormat
If
.LineSpacingRule = wdLineSpaceExactly Then
.LineSpacing = .LineSpacing + 2
Else
.LineSpacingRule = wdLineSpaceExactly
.LineSpacing = Fix(Selection.Font.Size) + 2
End
If
End With
End Sub
▲HTML関連は単位にピクセルを使用する
Sub PixelUnitsOn()
With Options
.AllowPixelUnits = True
End With
End Sub
▲HTML関連は単位にピクセルを使用しない
Sub PixelUnitOff()
With Options
.AllowPixelUnits = False
End With
End Sub