Selectionner texte surligné Résolu

Question

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

baladur13 · Answer

Bonjour
Puisque vous dites dans une alerte avoir résolu le problème par vous-même, il serait gentil de votre part de nous donner la solution.
Cette dernière pouvant, qui sait, servir à d'autres internautes confrontés à ce type de problème.
Merci d'avance pour eux.

Alain 06 · Answer

Oh rien de plus simple, 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.
Ça prend un peu de temps, mais beaucoup moins que l'attente d'une hypothétique réponse.

Merci pour votre message, cette discutions est résolu.

Selectionner texte surligné

2 réponses

Votre réponse

Discussions similaires

Newsletters