Sub CommentJumpInOut()
' Paul Beverley - Version 10.04.26
' Jumps into and out of comment bubble

inCommentBubble = Selection.Range.Information(wdInCommentPane)

If inCommentBubble Then
  Selection.MoveLeft , 1
  Set selRng = Selection.Range
  For Each cmt In ActiveDocument.Comments
    If selRng.InRange(cmt.Range) Then
      found = True
      Exit For
    End If
  Next cmt
  Set tgt = cmt.Scope.Duplicate
  tgt.Collapse Direction:=wdCollapseEnd
  tgt.Select
  Selection.MoveLeft , 1
Else
  Set rng = ActiveDocument.Range(0, Selection.End)
  cmtNum = rng.Comments.Count + 1
  If cmtNum > ActiveDocument.Comments.Count Then
    cmtNum = ActiveDocument.Comments.Count
  End If
  ActiveDocument.Comments(cmtNum).Edit
End If
End Sub