毎日業務改善(削除された文字列のコピーを可能にするマクロ)
2013.12.12
SKIP
弊所では、毎日、生産性向上のために業務改善を行っています。小さな改善を積み重ねることで生産性を大幅に向上させています。今日は、修正履歴を残しながら作業しているときに、すでに削除した部分をコピーすることができないのが煩わしかったので、その点を改善しました。
修正履歴で削除した文字列をコピーしようとすると、「削除されています」という警告がでて、コピーできないが、以下のコードを使うとコピーできる。
Private Sub 削除した文字列をコピーする_Click()
myStat1 = ActiveDocument.TrackRevisions
With ActiveWindow.View
myStat2 = .ShowRevisionsAndComments
myStat3 = .RevisionsView
End With
ActiveDocument.TrackRevisions = False
With ActiveWindow.View
.ShowRevisionsAndComments = False
.RevisionsView = wdRevisionsViewOriginal
End With
Selection.Copy
ActiveDocument.TrackRevisions = myStat1
With ActiveWindow.View
.ShowRevisionsAndComments = myStat2
.RevisionsView = myStat3
End With
End Sub