Selectionner texte surligné

Bonjour à tous.

Je suis sous Word 2016 et Windows 10.

Dans un document Word j'ai des paragraphes surligné que j'exporte vers un autre document vierge avec la commande Recherche ->Recherche avancée -> Format -> Surlignage -> Recherche dans -> doc principal ->Fermeture (dés que la sélection est terminée) ->Ctrl+c -> ouverture du nouveau document -> Ctrl+V
Résultat parfait.
Je fait la même manipulation avec l'enregistreur de macro et j'obtiens le code erreur d'exécution 4605 avec le texte "Cette méthode ou propriété n'est pas disponible car aucun texte n'à été sélectionné.
Ma question:
Où est mon erreur?
Que fait Text et Replacement.Text ?
C'est Selection.Copy qui pose problème.

Si quelqu'un à une idée je suis preneur, bien cordialement

Voici le code obtenu avec l'enregistreur:

Sub ExportTxtSurligne()

'

' ExportTxtSurligne Macro

' Recherche txt surligné, le sélectionne, le copie; ouvre nouveau doc, le colle.

'

    Selection.HomeKey Unit:=wdStory

    Selection.Find.ClearFormatting

    Selection.Find.Highlight = True

    With Selection.Find

        .Text = ""

        .Replacement.Text = "^pServices :"

        .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

Windows / Firefox 56.0