Use el siguiente código 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
Ahora puedo ingresar a cualquier globo de TrackChange, seleccionar texto eliminado y presionar
Alt- 1. Sí, quizás sea una tontería, pero tampoco puede copiar el texto eliminado seleccionado en VBA. Sin embargo, puede hacer que una variable de cadena pública seleccione texto.
Ahora puedo mover la Selección fuera del globo, y donde quiera, puedo hacerlo Alt, 2y el texto eliminado seleccionado anteriormente se escribe. Por supuesto, se marcará como una inserción de Cambio de pista.
Tenga en cuenta que cuando mueve la Selección fuera del globo TrackChange (donde tomó el texto eliminado) puede usar la Selección como desee. El contenido del texto eliminado está en una variable de cadena, NO texto asociado con la selección en sí. Puede hacer otras cosas y, cuando lo desee, escriba el texto eliminado con un
Alt- 2.