Nom de style qui commence par un espace

[Pyrof]

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

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

 

[Pyrof]

Re : Nom de style qui commence par un espace

C'est encore moi, j'avais oublier de cocher la case réponse instantané par mail pour voir vos réponses.