Problème réalisation d'un puissance 4 sous Word

Problème réalisation d'un puissance 4 sous Word - VB/VBA/VBS - Programmation

Marsh Posté le 03-12-2004 à 02:09:17    

Salut,
 
j'aimerais pour le fun adapter un puissance 4 sous word !
J'ai déjà réalisé l'interface :
http://rainbow8.free.fr/puiss4.png
Mais j'ai bcp de problèmes avec VBA et les objets de Word  :o
 
Déjà : Comment peut-on récupérer la valeur de la zone de texte contenant le chiffre 3 ? (après un clic sur un bouton)
j'ai fait ça :
 

Code :
  1. chaine = ActiveDocument.Shapes("Control 32" ).TextFrame.TextRange.Text


 
mais j'ai l'erreur d'exécution 5917 : Cet objet ne prend pas en charge le texte joint.
 
Par ailleurs est-il possible d'initialiser des variables à l'ouverture du document ?


Message édité par jcop le 03-12-2004 à 02:10:36
Reply

Marsh Posté le 03-12-2004 à 02:09:17   

Reply

Marsh Posté le 08-12-2004 à 00:32:31    

personne ne sait comment récupérer la valeur dans une zone de texte ?

Reply

Marsh Posté le 08-12-2004 à 12:39:14    

ActiveDocument.Shapes("Text Box 3" ).TextFrame.TextRange.Text
 
pour recuperer le texte de la zone de texte "Text Box 3"
 
EDIT : je trouve le nom de ta zone de texte un peu curieux "Control 32" au lieu de "Text Box" ( tu es sur que c'est bien une zone de texte ? )


Message édité par Profil supprimé le 08-12-2004 à 12:42:05
Reply

Marsh Posté le 09-12-2004 à 01:19:45    

Quand j'enregistre une nouvelle macro et que je sélectionne la zone de texte, ça insère ce code :
ActiveDocument.Shapes("Control 32" ).Select
 
sinon la zone de texte a pour nom TextBox1
 
Mais même quand je fais :
 
chaine = ActiveDocument.Shapes("TextBox1" ).TextFrame.TextRange.Text
 
il me met une erreur : L'élément portant ce nom est introuvable :(

Reply

Marsh Posté le 09-12-2004 à 09:59:35    

tu es sur que c'est pas "Text Box 1" et non "TextBox1" le nom de ton control ( mets les espaces ) ???

Reply

Marsh Posté le 11-12-2004 à 17:21:51    

en fait il s'agissait d'un contrôle d'édition (boite à outils Contrôles puis zone de texte)
je l'ai remplacé par une zone de texte et ça marche !
 
(j'aurais qd même préféré garder le contrôle d'édition)

Reply

Sujets relatifs:

Leave a Replay

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