論文リバイス時の変更履歴を一括で蛍光マーカー着色する方法　wordにて

論文を再投稿する際の変更箇所のマーカー付けに関する小ネタです。

修正した学術論文を再投稿する時，

ジャーナルによっては，初投稿時から変化した箇所を蛍光マーカーで分かるようにしたwordファイルの提出も必要になることがあるかと思います。

（特に，リバイスのタイミングで英文校閲に出した場合は変更箇所が多くなるので，いちいち蛍光マーカー付けするのが大変かと思います）

そんな時に，ワードマクロでwordの変更履歴挿入箇所を一発で蛍光マーカーしてくれる機能があったので紹介します。

ワードマクロのコードについては以下の記事に書いてありました。

一応，ここにもコード貼っておきます（上の記事から引用したものです）。

Sub 変更履歴_追記箇所を蛍光ペンの黄色にする()

　Dim myRev As Revision

　Dim newDoc As Document　 'チェック用文書

　'変更履歴の記録をオフにする

　ActiveDocument.TrackRevisions = False

　'文書が保存されている場合に実行

　If ActiveDocument.Path <> "" Then

　　If ActiveDocument.Saved = True Then

　　　Set newDoc = Documents.Add(Template:=ActiveDocument.FullName)

　　Else

　　　If MsgBox("文書を保存してから実行します。" & vbCr & _

　　　　　　　　"保存しますか？", vbYesNo, "実行前の確認") = vbYes Then

　　　　ActiveDocument.Save

　　　　Set newDoc = Documents.Add(Template:=ActiveDocument.FullName)

　　　Else

　　　　Exit Sub

　　　End If

　　End If

　Else

　　MsgBox "現在のファイルを保存してから実行してください。"

　　Exit Sub

　End If

　'チェック用文書で蛍光ペンを解除

　newDoc.Range.HighlightColorIndex = wdNoHighlight

　'変更個所を反映させ、挿入部分に蛍光ペンで着色

　For Each myRev In newDoc.Revisions

　　Select Case myRev.Type

　　　'挿入の場合

　　　Case wdRevisionInsert

　　　　With myRev.Range

　　　　　.HighlightColorIndex = wdBrightGreen

　　　　　.Revisions.AcceptAll

　　　　End With

　　　'それ以外の場合

　　　Case Else

　　　　With myRev.Range

　　　　　.Revisions.AcceptAll

　　　　End With

　　End Select

　Next

　Set myRev = Nothing

　Set newDoc = Nothing

End Sub

ちなみに，そもそもワードマクロってなんだろう，という方は以下の記事で手順を紹介してくれています。

では，