Используйте следующий код VBA:
Option Explicit
Public myString As String
Sub CopyMyDelete()
' Alt-1 is shortcut
myString = Selection.Text
End Sub
Sub PasteMyDelete()
' Alt-2 is shortcut
Selection.TypeText myString
End Sub
Теперь я могу зайти на любой шар TrackChange, выбрать удаленный текст и нажать
Alt- 1. Да, возможно, это глупо, но вы также не можете скопировать выбранный удаленный текст в VBA. Однако вы можете сделать общедоступную строковую переменную для выбранного текста.
Теперь я могу переместить выделение из всплывающей подсказки, и там, где я захочу, я смогу Alt- 2и набранный ранее удаленный текст будет напечатан. Конечно, он будет помечен как вставка отслеживания изменений.
Обратите внимание, что когда вы перемещаете выделение из баллона TrackChange (куда вы взяли удаленный текст), вы можете использовать выделение как вам угодно. Удаленное текстовое содержимое находится в строковой переменной, а НЕ в тексте, связанном с самим выделением. Вы можете делать другие вещи, и когда вы хотите - введите удаленный текст с
Alt- 2.