Discussion :

[Claude_Azoulai]

Bonjour

Je dois inserrer dans un document des zones de texte.
J'ai trouvé une formule qui fonctionne :
ActiveDocument.Shapes.AddShape msoShapeRectangle, Left, Top, Width, Height
Mon Problème :
Je dois inserrer ce rectangle en partant de la position du curseur, et je ne la connais pas.
Y a-t-il deux variables qui restituent les positions du curseur pour que je puisse renseigner les valeurs Left et Top dans la formule ?

Je vous remercie de votre réponse

Claude Azoulai

[Claude_Azoulai]

Pour continuer dans mes recherches, j'ai lancé l'enregistrement d'une macro, et insérré une zone de texte dans le document.
Voici le code obtenu

Code :

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

1
2
3
4
5
6
 
   'ActiveDocument.Shapes("Zone de texte 2").Select
    Application.Templates( _
        "C:\Users\Claude\AppData\Roaming\Microsoft\Document Building Blocks\1036\14\Built-In Building Blocks.dotx" _
        ).BuildingBlockEntries(" Zone de texte simple").Insert Where:=Selection. _
        Range, RichText:=True

J'ai desactivé la première ligne de ce code, car je ne pouvais pas relancer cette macro une seconde fois, même si le document était vierge.

J'ai bien une zone de texte à la hauteur de mon curseur comme je le désirai.
Mais je suis bloqué pour ajouter des commandes afin de régler en largeur et hauteur cette zone de texte.

Quelqu'un peut-il m'aider ?
Claude Azoulai

[Heureux-oli]

Salut,

Il faut creuser du côté de la propriété information sur la sélection.

Code :

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

selection.Information(wdHorizontalPositionRelativeToPage)

Et pour l'autre, c'est Vertical

[Claude_Azoulai]

Merci de ta réponse

Pour la connaître, il faut avoir une sacré expérience en la matière.
J'ai cherché dans divers bouquins traitant du sujet, et aucun n'y fait mention.
L'aide attachée à VBA Word2010 est très spartiate (comparée à celle de VS2010)

Je renouvelle ma reconnaissance à ce site qui continue de nous aider dans notre recherche.

Claude Azoulai