Word文書には範囲指定した部分に対してコメントを付けることができます。
しかし範囲を変更することができません。
そこでマクロを作ってみました。
使い方
正しい範囲を指定します。
このとき元の範囲と重なる部分が必要です。つまり範囲を広げるか狭めるかのいずれかです。全く別の場所に移動することはできません。
マクロ「コメント範囲変更」を実行します。
元のコメントが削除され、新たに指定した範囲に元のコメント文がセットされます。
VBAコード
Sub コメント範囲変更()
With Selection.Range
rs = .Start
re = .End
End With
For Each mycomment In ActiveDocument.Comments
With mycomment
ss = .Scope.Start
se = .Scope.End
If (rs <= ss And ss <= re) _
Or (rs <= se And se <= re) _
Or (ss <= rs And rs <= se) _
Or (ss <= re And re <= se) Then
myindex = .Index
mytext = .Range.Text
End If
End With
Next
With ActiveDocument
.Comments(myindex).Delete
.Comments.Add Range:=Selection.Range, Text:=mytext
End With
End Sub
With Selection.Range
rs = .Start
re = .End
End With
For Each mycomment In ActiveDocument.Comments
With mycomment
ss = .Scope.Start
se = .Scope.End
If (rs <= ss And ss <= re) _
Or (rs <= se And se <= re) _
Or (ss <= rs And rs <= se) _
Or (ss <= re And re <= se) Then
myindex = .Index
mytext = .Range.Text
End If
End With
Next
With ActiveDocument
.Comments(myindex).Delete
.Comments.Add Range:=Selection.Range, Text:=mytext
End With
End Sub
コメント