Wordのコメント範囲を変更するマクロ

Pocket

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

[ 2012年4月6日 | カテゴリー: Word | タグ: , ]

« | »

コメントを残す

メールアドレスが公開されることはありません。 * が付いている欄は必須項目です

送信してください。


タグ

カテゴリー

最近の投稿

最近のコメント

固定ページ

アーカイブ

stabucky

写真

メタ情報