Word: 変更履歴の表示方法

変更履歴を実際に使用すると、結構いろいろな表示方法をさせたくなるもの。

よく使うのが、挿入箇所に下線、削除箇所に取消線というもの。ただ、削除箇所が多いと極めて見にくいので、削除箇所を隠し文字にすることもあります。また、挿入箇所についても、元の文字に下線がついてしまっていないか確認する場合は、挿入箇所を色のみとする必要があります。Wordの文字の書式は、直前の文字の書式に引きずられますが、元の文字に色がついている可能性は、元の文字に下線がついている可能性よりずいぶんと少ないですからね。

通常ですと、文書履歴ツールバーを表示し、その表示－＞オプションから変えますが、結構頻繁に変更するので、ショートカットキーを割り当てることにしました。

というわけで、挿入箇所の表示方法の変更を、alt+insertに割り振り、下線と色のみをが交互に入れ替わるようにし、削除箇所については、alt+deleteで隠し文字と取消線が交互に入れ替わるようにしました。

ショートカットキーの割り当て

'変更履歴挿入・色だけか下線か
CustomizationContext = NormalTemplate
KeyBindings.Add KeyCode:=BuildKeyCode(wdKeyInsert, wdKeyAlt), KeyCategory _
:=wdKeyCategoryMacro, Command:="挿入履歴"

'変更履歴削除・取消線か隠し文字か
CustomizationContext = NormalTemplate
KeyBindings.Add KeyCode:=BuildKeyCode(wdKeyDelete, wdKeyAlt), KeyCategory _
:=wdKeyCategoryMacro, Command:="削除履歴"

中身の機能

Sub 挿入履歴()
'下線か色だけか
If Options.InsertedTextMark = wdInsertedTextMarkColorOnly Then
Options.InsertedTextMark = wdInsertedTextMarkUnderline

Else

Options.InsertedTextMark = wdInsertedTextMarkColorOnly

End If

End Sub

Sub 削除履歴()
'取消線か隠し文字か
If Options.DeletedTextMark = wdDeletedTextMarkStrikeThrough Then
Options.DeletedTextMark = wdDeletedTextMarkHidden
Else

Options.DeletedTextMark = wdDeletedTextMarkStrikeThrough

End If

End Sub

[続きを読む]