[R] Word 2007 - Objet COM insérer forme

[jcaspar]

B onjour à tous !

Je souhaiterais ajouter des formes dans un document Word
mon code ne génère pas d'erreur mais il n'est pas opérationnel

Peut être avez vous une idée sur ce qui que je dois modifier dans mon code ?

Je vous remercie pour vos idées et conseils


Jean-Marc

Code : Tout sélectionner

[spoiler=]$word = ObjCreate("Word.Application")
    $word.visible = True
    $word.Documents.Add

$word.ActiveDocument.Shapes.AddShape("msoShapeRectangle", 95.25, 78.75, 285.75,146.25).Select
    $word.Selection.ShapeRange.Fill.Solid
    $word.Selection.ShapeRange.Fill.ForeColor.ObjectThemeColor = "wdThemeColorAccent1"
    $word.Selection.ShapeRange.Fill.ForeColor.TintAndShade ="0#"
    $word.Selection.ShapeRange.Fill.BackColor.RGB = $word.RGB(255, 255, 255)
    $word.Selection.ShapeRange.Fill.Visible = "msoTrue"
    $word.Selection.ShapeRange.Line.ForeColor.ObjectThemeColor ="wdThemeColorMainLight1"
    $word.Selection.ShapeRange.Line.ForeColor.TintAndShade = -0.05
    $word.Selection.ShapeRange.Line.Weight = "3#"
    $word.Selection.ShapeRange.Line.Style = "msoLineSingle"
    $word.Selection.ShapeRange.Line.Visible = "msoTrue"
    $word.Selection.ShapeRange.Shadow.Type = "msoShadow3"
    $word.Selection.ShapeRange.Shadow.ForeColor.ObjectThemeColor ="wdThemeColorAccent1"
    $word.Selection.ShapeRange.Shadow.ForeColor.TintAndShade ="-0.5"
    $word.Selection.ShapeRange.Shadow.Transparency ="0.5"
    $word.Selection.ShapeRange.Shadow.OffsetX = "1#"
    $word.Selection.ShapeRange.Shadow.OffsetY = "2#"
    $word.Selection.ShapeRange.Shadow.Visible = "msoTrue"
    $word.Selection.ShapeRange.ThreeD.Visible = "msoFalse"[/spoiler]

[orax]

mon code ne génère pas d'erreur

C'est parce que elles sont silencieuses. En ajoutant les lignes suivantes au début du code, on peut voir à quel endroit à lieu la première erreur.

Code : Tout sélectionner

#AutoIt3Wrapper_Run_Debug_Mode=Y                 ;(Y/N) Run Script with console debugging. Default=N
#AutoIt3Wrapper_Run_Debug=On                     ;(On/Off) Switch debugging on/off

0011: 0-0: $word.ActiveDocument.Shapes.AddShape("msoShapeRectangle", 95.25, 78.75, 285.75,146.25).Select
0012: 1-0: ConsoleWrite(@error & @CRLF)
Ceci indique que la ligne 11 a retourné le code d'erreur 1.

msoShapeRectangle n'est pas une chaîne dans Word, c'est une constante qui aura une valeur numérique ("msoShapeRectangle" = une chaîne). Même remarque pour wdThemeColorAccent1, wdThemeColorMainLight1, ... Walkson en parlait ici => http://autoitscript.fr/forum/viewtopic.php?f=5&t=13443

[walkson]

Bonjour,
Je crois que vous êtes trompé par l'éditeur de macro et particulièrement par cette forme

Code : Tout sélectionner

$word.Selection.Style = "Titre 3"

En fait, l'éditeur aurait du écrire

Code : Tout sélectionner

Selection.Style = wdStyleHeading3

sachant que wdStyleHeading3 = -4
Sur une version Word anglais, "Titre 3" ne passerait pas.
Ce qui nous donne pour votre script:

► Afficher le texte

Code : Tout sélectionner

    #AutoIt3Wrapper_Run_Debug_Mode=Y                 ;(Y/N) Run Script with console debugging. Default=N
    #AutoIt3Wrapper_Run_Debug=On                     ;(On/Off) Switch debugging on/off
    $word = ObjCreate("Word.Application")
        $word.visible = True
        $word.Documents.Add

    $word.ActiveDocument.Shapes.AddShape(1, 95.25, 78.75, 285.75,146.25).Select;msoShapeRectangle = 1
        $word.Selection.ShapeRange.Fill.Solid
        $word.Selection.ShapeRange.Fill.ForeColor.ObjectThemeColor = 4 ;wdThemeColorAccent1 = 4
        $word.Selection.ShapeRange.Fill.ForeColor.TintAndShade = 0.4
        ToolTip("Etape 1",100,300)
        Sleep(2000)
        $word.Selection.ShapeRange.Fill.BackColor.ObjectThemeColor = 2
        $word.Selection.ShapeRange.Fill.BackColor.TintAndShade = 0.8
        $word.Selection.ShapeRange.Fill.Visible = -1;msoTrue = -1
        $word.Selection.ShapeRange.Fill.TwoColorGradient(1, 1)
        ToolTip("Etape 2",100,300)
        Sleep(2000)
        $word.Selection.ShapeRange.Line.ForeColor.ObjectThemeColor = 1
        $word.Selection.ShapeRange.Line.ForeColor.TintAndShade = -0.05
        $word.Selection.ShapeRange.Line.Weight = 3
        $word.Selection.ShapeRange.Line.Style = 1 ;msoLineSingle = 1
        $word.Selection.ShapeRange.Line.Visible = -1
        ToolTip("Etape 3",100,300)
        Sleep(2000)
        $word.Selection.ShapeRange.Shadow.Type = 3
        $word.Selection.ShapeRange.Shadow.ForeColor.ObjectThemeColor = 4
        $word.Selection.ShapeRange.Shadow.ForeColor.TintAndShade = -0.5
        $word.Selection.ShapeRange.Shadow.Transparency = 0.5
        $word.Selection.ShapeRange.Shadow.OffsetX = 1
        $word.Selection.ShapeRange.Shadow.OffsetY = 2
        $word.Selection.ShapeRange.Shadow.Visible = -1
        ToolTip("Etape 4",100,300)
        Sleep(2000)
        $word.Selection.ShapeRange.ThreeD.Visible = -1
        ToolTip("Etape 5",100,300)
        Sleep(2000)
        $word.Selection.ShapeRange.TextFrame.TextRange.Select
        $word.Selection.Collapse
        $word.Selection.TypeText ("Ici le texte")
        $word.Selection.ParagraphFormat.Alignment = 1 ; wdAlignParagraphCenter = 1

Ici, toutes les constantes sont rentrées sous forme numérique à défaut de les déclarer.
Pour rappel, je récupère les constantes soit dans l'aide VBA soit dans l’explorateur d'objets (F2) (surtout pour les mso...)