Создание различных заданных комментариев в одном скрипте MS Word VBA

Question

В настоящее время я использую этот очень простой сценарий, чтобы оставлять комментарии к файлам MS Word:

Sub Comment()

ActiveDocument.ActiveWindow.View.ShowHiddenText = True
Selection.Comments.Add Range:=Selection.Range, Text:="Comment Text"

End Sub

Интересно, можно ли обновить этот сценарий таким образом, чтобы он циклически изменял набор комментариев: Я go через текст? Я делаю это, так как я назначил комментарий для почти каждой комбинации клавиш в качестве ярлыка - и очень сложно запомнить все эти сочетания клавиш.

Answer 1

Это может быть просто:

Sub CommentSelect()
With Selection
  Select Case InputBox("Choose: " & vbCr & _
    "1. Comment 1 Description" & vbCr & _
    "2. Comment 2 Description" & vbCr & _
    "3. Comment 3 Description" & vbCr & _
    "4. Comment 4 Description" & vbCr & _
    "5. Comment 5 Description")
    Case 1: .Comments.Add .Range, "Comment 1 Text"
    Case 2: .Comments.Add .Range, "Comment 2 Text"
    Case 3: .Comments.Add .Range, "Comment 3 Text"
    Case 4: .Comments.Add .Range, "Comment 4 Text"
    Case 5: .Comments.Add .Range, "Comment 5 Text"
  Case Else
End Select
End With
End Sub