Discussion :

[marsupoilu]

Bonjour à tous

Avec Word, je n'arrive pas à insérer automatiquement une zone de texte puis de modifier ses propriétés (Taille,contours,position...)


Qqn peut-il m'aider svp???

[SfJ5Rpw8]

..
Qqn peut-il m'aider svp???

pour commencer l'enregistreur de macro ... met le en route effectue l'action demandé puis aprés l'avoir arrêté .. examine le code généré..

[marsupoilu]

Oui j'avais déja pensé a ca

Le pb c'est qu'avec l'enregistreur, je n'arrive qu'a modifier une zoner de texte déja existente!
Pour en créer une, l'enregistreur ne me donne pas "la main" pour dessiner et positionner une nouvelle zone de texte.

[SfJ5Rpw8]

tiens si cela peu t'aider :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Sub AjouteTextBox()
  Dim txtBx As Shape
  Set txtBx = ActiveDocument.Shapes.AddTextbox(msoTextOrientationHorizontal, 50, 10, 100, 200)
  txtBx.TextFrame.TextRange = "VOILA UN TEXT BOX"
  txtBx.TextFrame.TextRange.Font.Color = wdColorBlue
  txtBx.TextFrame.TextRange.Bold = True
  MsgBox "Juste un arrêt pour voir ou est le text box"
  txtBx.Left = 500 'On le déplace..
End Sub

voir AddTextbox

[marsupoilu]

Génial

C'était donc AddTextBox !! Merci bcp

[lebonsavane]

tiens si cela peu t'aider :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Sub AjouteTextBox()
  Dim txtBx As Shape
  Set txtBx = ActiveDocument.Shapes.AddTextbox(msoTextOrientationHorizontal, 50, 10, 100, 200)
  txtBx.TextFrame.TextRange = "VOILA UN TEXT BOX"
  txtBx.TextFrame.TextRange.Font.Color = wdColorBlue
  txtBx.TextFrame.TextRange.Bold = True
  MsgBox "Juste un arrêt pour voir ou est le text box"
  txtBx.Left = 500 'On le déplace..
End Sub

voir AddTextbox

J'ai une erreur quand je rentre ce code, "Incompatibilité de type" sur cette ligne:
Set txtBx = WordDoc.Shapes.AddTextbox(msoTextOrientationHorizontal, 50, 10, 100, 200)