Написать макрос для редактирования отдельного комментария в Word

Question

Пока у меня есть собственное контекстное меню, которое появляется, когда я щелкаю правой кнопкой мыши на комментарии, позволяя мне запустить макрос в слове.

Как мне написать свой макрос, чтобы заменить текст комментария словом «Игнорировать»?

Будут многочисленные комментарии, некоторые из которых я хочу запускать макрос, а другие я выиграл ' Поэтому мне нужно специально изменить комментарий, по которому я щелкаю правой кнопкой мыши.

Возможно ли это?

Answer 1

Хорошо, я нашел решение, поэтому я публикую сообщение на тот случай, если у кого-то возникнет такая же проблема.

Сначала вам понадобится настраиваемое контекстное меню для щелчка правой кнопкой мыши, вы можете узнать, как создайте это здесь: https://gregmaxey.com/word_tip_pages/customize_shortcut_menu.html

Затем вам нужно создать макрос со следующим кодом:

Sub ARIgnoreComment0001()
If Selection.Information(wdInCommentPane) = True Then
    Dim Comment
    For Each Comment In ActiveDocument.Comments
        If Comment.Range.Start <= Selection.Start And Comment.Range.End >= Selection.Range.End Then
            Comment.Range.Text = "Ignore this comment!!!"
            End If
        Next
    End If
End Sub

Теперь вы можете щелкнуть правой кнопкой мыши комментарий и заменить его текст одним кликом макроса :)