契約書のドラフティングを高速化するTipsに続いて、Wordマクロについてもご紹介します。

Wordマクロ作成の準備

Wordのツールバーに「開発」は表示されていない方は、「ファイル」→「オプション」「リポンのユーザー設定」で開くリボン設定の画面の右側の「開発」にチェックを入れてください。
そうすると、BoostDraftの左（いないと思いますがインストールしていない方はヘルプの左）に「開発」が表示されているはずです。
「開発」から「マクロ」を選択し、「編集」を押して表示する画面に以下の諸々を貼り付けることでマクロを使えるようになります。
なお、上記の各マクロには、「リポンのユーザー設定」の「ショートカットキー：ユーザー設定」の「分類」内の「マクロ」からショートカットキーを設定できます。

蛍光ペンを引く

Sub 黄色の蛍光ペンを引く()
Selection.Range.HighlightColorIndex = wdYellow
End Sub

Sub 蛍光ペンを消す()
Selection.Range.HighlightColorIndex = wdNoHighlight
End Sub

文字通りです。蛍光ペンを引く方をコピペしてwdYellowを別の色に変えると更にべんりになります。
いちいちツールバーから蛍光ペンを選択するのはもうやめにしましょう。
時間の無駄です。

カーソル移動

PowerToysやAutoHotKey等でグローバルなカーソル移動ショートカットキーを設定していない方でも、せめてWordではカーソルキーを使うのをやめにしましょう。
ホームポジションから手を話すことは罪なのです。

Sub 左移動()
Selection.MoveLeft Unit:=wdCharacter, Count:=1
End Sub

Sub 右移動()
Selection.MoveRight Unit:=wdCharacter, Count:=1
End Sub

Sub 下移動()
Selection.MoveDown Unit:=wdLine, Count:=1
End Sub

Sub 上移動()
Selection.MoveUp Unit:=wdLine, Count:=1
End Sub

Sub バックスペース()
Selection.TypeBackspace
End Sub

Sub デリート()
Selection.Delete Unit:=wdCharacter, Count:=1
End Sub

カッコ記入スタンバイ

細かい話ですが、カッコを書いてカッコ内にカーソルを移動させると0.5秒短縮できます。1億回やれる5000万秒の節約です。600日近く節約できるわけです。すごいですね。

Sub カッコ内記入()
Selection.TypeText Text:="（）"
Selection.MoveLeft Unit:=wdCharacter, Count:=1
End Sub

Sub カギカッコ内記入()
Selection.TypeText Text:="「」"
Selection.MoveLeft Unit:=wdCharacter, Count:=1
End Sub

履歴の表示・非表示・初版表示の切り替え

修正履歴を表示していると、（令和のアプリケーションとは思えませんが）特に大きなファイルだと動作が重くなってしまうので、切り替えが0.5秒でできると便利です。1億回やれば（以下略）

Sub 履歴表示()
With ActiveWindow.View.RevisionsFilter
.Markup = wdRevisionsMarkupAll
.View = wdRevisionsViewFinal
End With
End Sub

Sub 履歴非表示()
With ActiveWindow.View.RevisionsFilter
.Markup = wdRevisionsMarkupNone
.View = wdRevisionsViewFinal
End With
End Sub

Sub 初版表示()
With ActiveWindow.View.RevisionsFilter
.Markup = wdRevisionsMarkupAll
.View = wdRevisionsViewOriginal
End With
End Sub

終わりに

上記は汎用性が高い（大抵の人にとっては便利な）マクロの例ですが、特定の会社でのみ有効だったり、特定の人にとってだけ便利な操作も色々あるのではないかと思います。
なんとなく避けている方も少なくないマクロですが、慣れればなくてはならない相棒になりますので、毛嫌いせずに色々試してみることをお勧めします〜。
（今日はまじで書く時間がなかった。危なかった…）