Microsoft Wordでコメント選択を展開する

Microsoft Wordでは、選択したコメント領域を拡大できますか？以前にコメントを指定したが、そのコメントの選択範囲を広げたいことを意味します。

以下のコメントを機能させるための例として、コメントを削除してから新しいコメントを追加する必要がありました。むしろ選択範囲を広げるだけでした。

通常、コメントテキストをクリップボードにコピーし、コメントを削除してから、正しいテキストの新しいコメントを作成します。

次のマクロはこれを自動化します。

Sub enlarge_comment()
 'assumes that the current selection contains just one comment!
 Dim newrange As Range
 Set newrange = Selection.Range
 Selection.Comments(1).Range.Copy       'copy text of old comment
 Selection.Comments.Add Range:=newrange 'create new comment
 Selection.Paste                        'add text to new comment
 newrange.Comments(1).Delete            'delete old comment
End Sub

クリップボードを使用して、コメントのフォーマット（異なるフォントなど）が失われないようにしますが、もっと簡単な方法があるかどうかはテストしていません。結果は次のとおりです。

もちろん、何らかのエラー処理を追加することもできます。選択した領域に複数のコメントがある場合、Wordが最初のコメントと見なすものがすべて使用されます。また、新しい選択には古い選択を完全に含める必要があります。それ以外の場合Selection.Commentsは空でSelection.Comments(1).Range.Copy失敗します。

expand or shrink the selected comment area マクロを記述したり、コメントを切り取り/コピー/削除せずに行う方法を見つけました（Word 10）：

ドラフトビューに移動します。[ハンドル] {赤い角括弧}の間にコメントが表示され、[角括弧]の横にコメント記号が表示されます。

コメント領域を拡大/縮小するには、ハンドル内に新しいテキストを挿入（カットアンドペースト）します。

例： {N.Sea} [AB1]は今日寒いです。次に、ハンドル内で追加のテキストを移動します。

例： {N.Sea is cold} [AB1] todayのように、コメント領域を拡大しました（テキストをそこから移動すると縮小されます）。

PS：}の前のスペースが必要です。これがないと、これを実行できません。

それが役に立てば幸い

上記のJonas Heidelbergのソリューションに基づいた、かなり完全なソリューションを次に示します。

Sub ChangeCommentSpan()
    '
    'If the current selection range is larger than the comment its spans, this macro expands the document-scope
    'range of the comment to encompass the entire current selection's range.  Alternatively, if the current
    'selection range is smaller than the comment spanned by it, this macro reduces the document-scope range of
    'the comment to encompass only the current selection's range.
    '
    'AUTHOR: Peter Straton
    '
    'CREDIT: Derived from Jonas Heidelberg's solution at:
    '           https://superuser.com/questions/159765/expand-comment-select-in-microsoft-word
    '
    '*************************************************************************************************************

    Const ExpandUnits As Integer = wdWord   'Alternatively, could use wdCharacter

    Dim CheckRng
    Dim DocTextSelRng  As Range
    Dim EndBackward As Boolean
    Dim EndForward As Boolean
    Dim Forward As Boolean
    Dim OrigCmnt As Comment
    Dim MovedEndUnits As Long
    Dim MovedStartUnits As Long

    'First check whether the selection includes (overlaps onto) one and only one comment.

    With Selection
        If .Comments.Count > 1 Then
            MsgBox "The selected range includes more than one Word comment.  Unable to determine which " & _
                   "comment is to be expanded.", vbOKOnly + vbCritical, "SELECTION ERROR"
            Exit Sub
        End If

        Set DocTextSelRng = .Range.Duplicate 'Capture the current Selection range (the document-text range)
                                             'because the Selection object's range will change to be the new
                                             'comment's (internal) Text range when the new comment is added.
    End With

    'Sometimes the user fails to span the current-comment's scope range (or span the whole comment) with their
    'manual selection, resulting in the targeted comment being undetectable using the Selection object's range.
    'So check for that case using a copy of the selected range and, if necessary, progressively expand it one
    'character  at a time, alternating left and then right, until at least one overlapping comment is found.

    Set CheckRng = DocTextSelRng.Duplicate
    With CheckRng
        While .Comments.Count = 0
            If Forward Then
                If Not EndForward Then
                    MovedEndUnits = .MoveEnd(ExpandUnits, 1)
                    EndForward = (MovedEndUnits = 0)
                End If
                Forward = EndBackward
            Else
                If Not EndBackward Then
                    MovedStartUnits = .MoveStart(ExpandUnits, -1)
                    EndBackward = (MovedStartUnits = 0)
                End If
                Forward = Not EndForward
            End If

            If EndForward And EndBackward Then
                'The range was expanded to include the whole document text and no comment was found.

                MsgBox "The active document includes no Comments.", vbOKOnly + vbCritical, "NO COMMENTS FOUND"
                Exit Sub
            End If
        Wend
        Set OrigCmnt = .Comments(1)

        'Found the nearest Comment so check whether it overlaps the originally selected range.

        'IMPORANT: Start and End values are insertion-point locations, not character positions.  So the Start
        'property of a Comment object's Scope range may be the same value as the End value of the character
        'immediately to its left and the End property of a Comment Scope range may be the same value as the
        'Start value of the character immediately to its right.  Therefore, the following conditional test
        'must use "<=" and ">=", respectively, not just "<" and ">":

        If (DocTextSelRng.End <= OrigCmnt.Scope.Start) Or (DocTextSelRng.Start >= OrigCmnt.Scope.End) Then
            'The found Comment does not overlap onto the original selected range, so inform user and exit.

            MsgBox "The selected range includes no Comments.", vbOKOnly + vbCritical, "SELECTION ERROR"
            Exit Sub
        End If
    End With

    'Expand (or reduce) the comment to include all of (or only) the selected range.

    OrigCmnt.Range.Copy                             'Copy the (internal) text of the existing comment
    DocTextSelRng.Comments.Add Range:=DocTextSelRng 'Create a new comment that spans the selected document scope

    'Paste the original Comment's (internal) text and its formatting as the new Comment's (internal) text

    Selection.Paste 'NOTE: This is the now-current Selection which is the new Comment's (internal) text
                    'range (not the Comment's scope range, which spans the document-text it applies to).

    OrigCmnt.Delete  'Delete the original comment

    'Finally, close the Comments pane that was automatically opened by the Comments.Add method call, above.

    If WordBasic.ViewAnnotations = -1 Then
       WordBasic.ViewAnnotations 0
    End If
End Sub