Appliquer un style [Résolu]

[e040098k]

Cette boucle (voir plus bas) me permet d'insérer dans un document des données contenu dans un recordset access. Mais là n'est la question !
Après avoir insérer le texte de mon recordset,

Code :

       .TypeText rs03.Fields("strubrique") 'après cette ligne mon texte est ajouté !

Je souhaite lui appliqué un style (Titre)
j'ai mis ce code trouvé grace à l'enregistreur :

Code :

        .Style = ActiveDocument.Styles("Titre") 'j'ai une erreur ici !

Mais il me met une erreur : "La méthode style de l'Objet Selection à échoué

Quelqu'un à une idée ?
Merci de votre aide !

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
stSQL03 = "SELECT tblContrat.idContrat, tblClause.idClause, tblClause.stRubrique, tblClause.stClause FROM tblContrat INNER JOIN (tblClause INNER JOIN tblDetailContrat ON tblClause.idClause = tblDetailContrat.idClause) ON tblContrat.idContrat = tblDetailContrat.idContrat WHERE tblContrat.idContrat= " & rs01.Fields("idcontrat")
Set rs03 = db.OpenRecordset(stSQL03) 
While Not rs03.EOF 'boucle pour récuperer les enregistrements de la table liée
    With wApp.Selection
        .TypeText rs03.Fields("strubrique") 'après cette ligne mon texte est ajouté !
        .Style = ActiveDocument.Styles("Titre") 'j'ai une erreur ici !
        .TypeParagraph
        .TypeText rs03.Fields("stclause")
        .TypeParagraph
        .TypeParagraph
    End With
   rs03.MoveNext
Wend

[ouskel'n'or]

J'avais pas de rs03.Fields("strubrique") alors pour tester, j'ai remplacé par une phrase

Code :

1
2
3
4
5
6
7
8
9
10
11
12
    '.TypeText rs03.Fields("strubrique") 'après cette ligne mon texte est ajouté !
    'pour tester
    LaPhrase = "Dans le premier cas, essayez de sélectionner à nouveau un mot clé simple."
    Selection.TypeText Text:=LaPhrase
    NbrCar = Len(LaPhrase)
 
    'Selection.MoveLeft unit:=wdSentence, Count:=1  'si le texte est seul sur la ligne
    'NbrCar = Len(rs03.Fields("strubrique"))        'si ton texte est insérée dans le texte d'une ligne
 
    Selection.MoveLeft Unit:=wdCharacter, Count:=NbrCar, Extend:=wdExtend 'sélectionne le texte inséré
    Selection.Style = ActiveDocument.Styles("Titre 1")
    Selection.MoveRight Unit:=wdCharacter, Count:=1 'se place en fin de texte inséré

Besoin d'explication ?
A+

[e040098k]

Besoin d'explication ?
A+

Euh... Bah je ne vois pas pourquoi !

C'est tellement clair et simple !

Je crois qu'on appelle ça l'efficacité !

Merci à toi ouskel'n'or pour ta rapidité !