insérer du texte sur des imagesJe ne vois pas dans ton exemple .. de texte Sur des images....
avec le problème des cases qui seraient cochées selon la réponse dans le formulaire..Vu que tes cases s'excluent l'une /l'autre...ça ne s'appelle pas des cases à cocher mais des boutons radios ( ou option button) qu'ils faut mettre dans des Groupbox
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
117 internautes nous ont dit merci ce mois-ci
oWord.ActiveDocument.textbox1.text = " ceci est un test"
Ce que j'ai mis sur le document, ce sont des 'Zones de texte' qu'on obtient en faisant dans la barre d'outils de Word: Insertion > Zone de texte... et non des TextboxAlors qu'avant tu nous as dit :
La zone 3 est renseignée à partir d'un formulaire où deux contrôles Textbox demandent le nom puis le prénom.
Les autres zones sont des textbox,
A moins qu'il y ait une possibilité de mettre un Textbox sur un document WordBen oui... sinon...ben je n'en t'aurais pas parlé ^^
..mais je ne vois pas comment insérer des Textbox ou des RichTextbox dans un document Word...Il faut que tu fasses apparaitre l'onglet développeur dans ton WORD.
Sub test() ' Code VBA Dim cc As ContentControl Dim docCCs As ContentControls Set docCCs = ActiveDocument.SelectContentControlsByTag("toto") If docCCs.Count <> 0 Then For Each cc In docCCs cc.Range.Text = " Le nouveau texte que je veux mettre !!!!! " Next Else MsgBox "La zone de texte n'a pas été trouvée !!" End If End Sub
Le problème,c'est que je n'ai pas ces commandes dans mon développeur
A chaque fois qu'il y a une solution de trouvée, un nouveau problème apparaît... c'est un peu décourageant!
'Code VBA Sub test() 'On liste toutes les zones de texte pour récupérer leur ID For Each shp In ThisDocument.Shapes Debug.Print shp.Type Debug.Print shp.Name Debug.Print shp.ID Next 'Exemple d'écriture dans la zone de text1 ThisDocument.Shapes(1).TextFrame.TextRange.Text = "nouveau text" End Sub
Dim file As Object = "c:\tmp\doctest.docm" Dim oWord As New Word.Application oWord.Documents.Open(file) oWord.Visible = True Dim NouveauText As String = "ceci est un super test !!" Dim TextBoxID As Integer = 1 'ecriture dans la première textbox oWord.ActiveDocument.Shapes(TextBoxID).TextFrame.TextRange.Text = NouveauText 'écriture dans la secode: TextBoxID = 2 oWord.ActiveDocument.Shapes(TextBoxID).TextFrame.TextRange.Text = " Texte sans passer par une variable !!"
Sub test() 'On liste toutes les zones de texte pour récupérer leur ID For Each shp In ThisDocument.Shapes Debug.Print shp.Type Debug.Print shp.Name Debug.Print shp.ID Next 'Exemple d'écriture dans la zone de text1 ThisDocument.Shapes(1).TextFrame.TextRange.Text = "nouveau text" End Sub
La mauvaise nouvelle, c'est que mon projet continue......ah ben non... c'est une bonne nouvelle aussi.....ça veut dire que tu vas encore avoir besoin de nous... :-p
Cette application, convertie en VB.net fonctionne parfaitement.Pense à clôre le sujet dans ce cas.
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.
Donc comment ouvres tu le fichier pour le traiter ?
Tu le mets dans un document word dans lequel tu auras mis des signets ?
C'est ce que j'ai fait là : http://cjoint.com/?DFttiW4O7Rx,
où j'ai collé l'image en .png sur une feuille et j'ai ensuite inséré les différentes zones de texte que j'ai nommé ZONE 1, ..., ZONE 7.
J'ai évidemment fait ça grossièrement mais je peux ensuite fignoler les différentes zones de manière à ce qu'elles "collent" le plus au document contraint.
Je me suis totalement égaré ?
Mais...
Et donc quel est ton souci ?
La zone 1 devra être "remplie" à partir de la réponse qu'aura donnée l'utilisateur dans un contrôle bien défini contenu dans un formulaire.
Idem pour la zone 2
La zone 3 est renseignée à partir d'un formulaire où deux contrôles Textbox demandent le nom puis le prénom.
Les autres zones sont des textbox, aux dimensions similaires à celles des zones de texte "collées" au document, qui vont se reporter dans les Zones 4, 5, 6 et 7.
Qu'en dis-tu ?
En même temps, j'ai voulu vérifier que la 'procédure' de recherche -remplacement fonctionnait grâce un témoin ({zone1}, qui n'est pas inclus dans une zone de texte.
L'application fonctionne pour le témoin {zone1}, mais n'atteint ni le signet ni {zone3}, et donc ne remplace pas par les valeurs désirées.
Je renvoie le code, en précisant que le document C:\Users\greg\Desktop\ZonesDeTextes.docx n'est constitué que de 3 zones de textes éparses dans la feuille. L'une est vide, une contient un signet dénommé zone2, et la dernière le mot {zone3}.
Si cela inspire quelqu'un...j'en serais bien heureux.
Grég