word et vbs

word et vbs - VB/VBA/VBS - Programmation

Marsh Posté le 13-07-2005 à 17:34:31    


 
Bonjour j'aimerai simuler un clic sur l'option "text box" de word. celle ci appartient aux option de dessin de word. Tout ceci a partir de mon fichier vbs. j'arrive a ouvrir word avec :
doc = objWord.Documents.Add(path_du_doc_a_ouvrir).
J'arrive a changer du text et tout mais je ne trouve pas la commande qui ouvre la "text box".
 
Si quelqu'un a une idée merci d'avance.

Reply

Marsh Posté le 13-07-2005 à 17:34:31   

Reply

Marsh Posté le 13-07-2005 à 22:42:18    

Bonjour,
 
Essaye qqch du genre :
 

Code :
  1. Const msoTextOrientationHorizontal = 1
  2. path = "C:\MonDocument.doc"
  3. Set objWord = CreateObject("Word.Application" )
  4. Set objDoc = objWord.Documents.Add(path)
  5. Set objTextBox = objDoc.Shapes.AddTextbox(msoTextOrientationHorizontal, 100, 100, 100, 100)
  6. objTextBox.Select
  7. objWord.Selection.HomeKey
  8. 'objTextBox.TextFrame.TextRange.Text = "Ceci est un test"
  9. objWord.Visible = True
  10. objWord.Activate


 
pelw

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed