Seleccionar texto resaltado

Hola a todos.

Estoy en Word 2016 y Windows 10.

En un documento de Word tengo párrafos resaltados que exporto a otro documento vacío con el comando Buscar -> Búsqueda avanzada -> Formato -> Resaltado -> Buscar en -> documento principal -> Cerrar (tan pronto como se completa la selección) -> Ctrl+c -> abrir el nuevo documento -> Ctrl+V
Resultado perfecto.
Hago la misma manipulación con el grabador de macros y obtengo el error de ejecución 4605 con el texto "Este método o propiedad no está disponible porque ningún texto ha sido seleccionado.
Mi pregunta:
¿Dónde está mi error?
¿Qué hacen Text y Replacement.Text?
Es Selection.Copy lo que causa el problema.

Si alguien tiene una idea, estoy abierto a sugerencias. Saludos cordiales

Aquí está el código obtenido con el grabador:

Sub ExportTxtResaltado()

'

' ExportTxtResaltado Macro

' Busca texto resaltado, lo selecciona, lo copia; abre nuevo doc, lo pega.

'

    Selection.HomeKey Unit:=wdStory

    Selection.Find.ClearFormatting

    Selection.Find.Highlight = True

    With Selection.Find

        .Text = ""

        .Replacement.Text = "^pServicios :"

        .Forward = True

.Wrap = wdFindContinue

        .Format = True

        .MatchCase = False

        .MatchWholeWord = False

        .MatchWildcards = False

        .MatchSoundsLike = False

        .MatchAllWordForms = False

    End With

    Selection.Copy

Documents.Add DocumentType:=wdNewBlankDocument

    Selection.Paste

    Selection.HomeKey Unit:=wdStory

End Sub