ブログ

毎日業務改善(追記箇所に自動で下線を引くマクロ)

2013.12.20

SKIP

補正案を作成する際には、追記箇所を修正履歴で残しながら作業することが多いと思います。
特許庁に提出する補正書では、追記箇所に下線を引かなければならず、ちょっと面倒に感じることが多いと思います。
以下のマクロでは、追記箇所に全て下線を引いてくれますので、作業効率及び精度が向上します。
Sub a_追記箇所に下線()
Dim his(1000, 10), kazu, i, myNum, myflag
kazu = ActiveDocument.Revisions.Count + 100
On Error GoTo 終わり
For i = 1 To kazu
Application.StatusBar = i
With ActiveDocument.Revisions(i)
.Range.Select
.Range.Underline = wdUnderlineSingle
End With
Next i
終わり:
ActiveWindow.View.SplitSpecial = wdPaneNone
End Sub

アーカイブ