[R] Word 2007 - Modifier Style Objet COM

[jcaspar]

Bonjour à tous !

Je souhaiterais pouvoir modifier le style utilisé sur une partie du texte

j'ai tenté plusieurs syntaxes différentes mais aucune ne semble correcte peut être avez vous une idée ?

Merci d'avance pour vos conseils

Code : Tout sélectionner

#include <Word.au3>

Func Main()

    $utilisateur = @username & @LF
    $ordinateur = @ComputerName & @LF
    $servicepack = @OSServicePack & @LF
    $cpu = @CPUArch & @LF
    $ip = @IPAddress1 & @LF
    $domaine = @LogonDomain & @LF
    $chemin = @HomePath & @LF

    Local $word = ObjCreate("Word.Application")
    $word.Documents.add
    $word.Visible = 1
    $word.Selection.TypeText ($utilisateur & $ordinateur & $servicepack & $cpu & $ip & $domaine & $chemin)
    $word.Selection.WholeStory
[b] $word.Selection.style($word.ActiveDocument.Styles("Titre"))[/b]



    With $word.Selection.Font

        .Name = "Arial"
        .Size = 20
        .bold = True
        .italic = true
        .Alignment = "wdAlignParagraphLeft"
        .ColorIndex = 2

    EndWith

;~ FOR IN  ( pour manipuler des collections et des tableaux)

    sleep(5000)
    $word.ActiveDocument.saveas("d:\informations_utilisateur.doc")
    $word.Quit(0)

EndFunc

Main()
 

[walkson]

Bonjour,
j'ai testé votre script et il marche très bien !...
(Win7 Word 2007)

[jcaspar]

M erci de votre réponse

le script fonctionne mais partiellement car je ne parviens pas à modifier le style du texte

exemple utiliser le style " Titre" sur une portion de texte, sur une autre portion de texte le style
" Titre 1"

En enregistrant une macro sous word j'obtiens le code vba suivant reste à le transposer en autoit


La bonne syntaxe est la suivante

Code : Tout sélectionner

$word.Selection.Style = "Titre 1"


 

[walkson]

grillé !
j'avais trouvé

Code : Tout sélectionner

$word.Selection.style = -2

en cherchant dans l'explorateur d'objets pour "WdBuiltinStyle" qui revoie tous les styles utilisés