Você pode pressionar Ctrl + C , Ctrl + H , Ctrl + V para obter o efeito desejado, mas se for muito, você pode cria uma macro para fazer tudo de uma vez.
Possivelmente mapeie para a combinação de teclas Ctrl + Alt + H não utilizada.
Sub QuickReplace()
Selection.Copy
Dim DataObj As MSForms.DataObject
Set DataObj = New MSForms.DataObject
DataObj.GetFromClipboard
Selection.Find.Text = DataObj.GetText
Dialogs(wdDialogEditReplace).Show
End Sub
Se você receber um "Tipo definido pelo usuário não definido", você está sem o referência à biblioteca de objetos do Microsoft Forms 2.0 . Se não estiver listado, adicione C:\Windows\System32\FM20.dll
ou C:\Windows\FM20.dll
como referência.