Discussion :

[Nico-xs]

Bonjour,

Je travaille actuellement sur de l'automation de document word avec VS2003 et VB.Net.
J'ai donc importé la dll Word qui me permet d'ouvrir mon document Word et de le manipuler.
Jusque la tout va bien. Seulement j'aimerais récupérer les coordonnées du curseur. J'explique le contexte :

J'ai déclarer mon document : doc

J'ai tapé du text et je veux qu'il insere à l'endroit ou se trouve un pointeur un shade (dans mon cas c'est une forme prédéfinie (un rectangle)).

J'arrive bien à le faire en lui passant les coordonnées en dur comme ceci :

doc.Shapes.AddShape(msoShapeRectangle, 70.85, 124.85, 9#, 9#).Select

70.85 et 124.85 correspondent aux coordonnées de l'endroit ou sera inséré le shape.
Il s'agit donc de ces paramètres que j'aimerais passer de manière dynamique en récupérant les coordonnées du curseur.

Dans l'idée ca donnerait un truc de ce style :
doc.Shapes.AddShape(msoShapeRectangle, Curseur.left, Curseur.top, 9#, 9#).Select

Quelqu'un connait-il la méthode pour récupérer ces coordonnées ?






Seconde question. Voici mon code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
     For Each oCritere As Critere In oQuestionnaireEval.oCriteres
            With doc.Application
                .Selection.Font.Bold = True
                .Selection.TypeText(oCritere.TexteCritere)
                .Selection.TypeParagraph()
                .Selection.TypeParagraph()
                .Selection.Font.Size = 11
                .Selection.Font.Italic = 1
                .Selection.TypeText(tab & "0" & tab & "1" & tab & "2" & tab & _
                     "3" & tab & "4" & tab & "5" & tab)
                .Selection.HomeKey(Word.WdUnits.wdLine, Word.WdMovementType.wdExtend)
                .Options.DefaultBorderColor = Word.WdColor.wdColorAutomatic
                .Selection.Font.Borders.OutsideLineStyle = Word.WdLineStyle.wdLineStyleSingle
                .Selection.Font.Borders.OutsideLineWidth = Word.WdLineWidth.wdLineWidth100pt
                .Selection.Font.Borders.OutsideColor = Word.WdColor.wdColorGray90
                .Selection.MoveRight(Word.WdUnits.wdCharacter, Count:=1)
                .Selection.Font.Italic = 0
                .Selection.Font.Size = 12
                .Selection.TypeParagraph()
                .Selection.TypeParagraph()
                .Selection.TypeParagraph()
                .Selection.Borders.OutsideLineStyle = Word.WdLineStyle.wdLineStyleNone
                .Selection.Font.Bold = True
            End With
        Next

J'ai un soucis assez bizarre. Si la propriété visible de mon objet word est sur true, ca se passe bien.
Si elle est sur False il y a deux cas de figure :
1. En mode pas à pas, ca se passe bien.
2. En éxecution : plantage sur la ligne .Selection.Font.Borders.OutsideLineStyle = Word.WdLineStyle.wdLineStyleSingle
Message d'erreur : "La commande a échoué"


Merci.

[bossun]

si tu veux mettre du texte à un endroit donné, tu devrais utiliser les signets dans word....

regarde du coté de la propriété Bookmark de ton document word

[Nico-xs]

J'utilise les signets, mon probleme n'est pas la.

Lors de l'insertion d'une forme automatique, il faut passer en paramètre les coordonnées, que l'on se trouve sur un signet ou non.

J'ai retravaillé dessus un peu ce matin, je pense pouvoir recuperer les coordonnées du pointeur avec :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

doc.Application.Selection.Information(Word.WdInformation.wdVerticalPositionRelativeToPage)

et de la même manière pour l'horizontal.

J'espère trouver une solution même si j'ai résolu le problème en insérant une image au lieu d'une forme auto.