毎日業務改善（書式変更の履歴を一括で消してしまうマクロ）
2013.12.19
SKIP
明細書の修正案文を作成する際には、修正箇所が分かりやすいように、ワードの修正履歴機能を使って、修正履歴を残しながら作業をしますが、フォントを変えたり、下線を引くと、書式変更の履歴が残ってしまい、煩わしい場合があります。
そんなときは、以下のマクロを使うと、書式に関する履歴を一瞬で削除することができ、業務効率の向上に繋がります。
Private Sub 書履削_Click()
Dim his(1000, 10), kazu, i, myNum, myflag
On Error Resume Next
kazu = ActiveDocument.Revisions.Count
For i = kazu To 1 Step -1
Application.StatusBar = i
With ActiveDocument.Revisions(i)
.Range.Select
Select Case .Type
Case 3, 10, 11, 12, 13
.Accept
End Select
End With
Next i
End Sub
