Nom de style qui commence par un espace

  • Initiateur de la discussion Initiateur de la discussion Pyrof
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Pyrof

XLDnaute Occasionnel
Bonjour,

J'ai un fichier qui contient des styles caractères qui commence par un espace:
(espace)Car Car11.

1) Lorsque l'on créer un style, si on saisi un espace en début de nom, celui est supprimer automatiquement quand on valide. Comment peut-on faire ça. Je présume que ce fichier a été créé avec un autre que word. Mais là,je ne peut rien faire (c'est un fichier client)

2)Je dois faire des recherches de texte avec se style.
Si je le fais manuellement, word trouve bien le texte
Par contre si je le fais en macro, j'ai un message "le membre de la collection requis n'existe pas"
Voici la macro

Code:
Private Sub recherche_car_car()
Dim tag As style
For Each tag In ActiveDocument.Styles
    If tag = " Car Car11" Then
        Selection.HomeKey unit:=wdStory
        Application.ScreenUpdating = True
        With Selection.Find
            .ClearFormatting
            .Replacement.ClearFormatting
            .style = ActiveDocument.Styles(" Car Car11")
            .Text = ""
            .Replacement.Text = ""
            .Forward = True
            .Wrap = wdFindContinue
            '.Format = True
            .MatchCase = False
            .MatchWholeWord = False
            .MatchWildcards = False
            .MatchSoundsLike = False
            .MatchAllWordForms = False
            .Execute
        End With
    End If
Next
End Sub
Dans le fichier joint le texte est en surligné jaune.

Avez vous rencontré ce problème

Merci
Bonne journée
 

Pièces jointes

- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

  • Question Question
XL 2016 erreur 424
Réponses
22
Affichages
3 K
Retour