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
Je sais que je suis très demandeur ces temps-ciCa ce n'est pas gênant... nous on aime bien aider...
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionoWord.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
En espérant ne pas t'avoir blessé, j'en suis encore désolé.Ca ne m'a pas blessé ne t'inquiète pas.
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.
19 juin 2014 à 20:41
En fait dans l'exemple que j'ai posté :
dans le rectangle du haut, le petit tableau 2x2 et les inscriptions " N° de Dossier " et " N° de formulaire" sont inamovibles. C'est une partie de l'image.
En revanche, je voulais faire 2 zones disponibles pour moi que j'ai appelé ZONE 1 et ZONE 2.
De même, je ne peux pas modifier " EXPLIQUEZ VOTRE SITUATION FAMILIALE : " ainsi que les bordures, mais je veux avoir accès à la ZONE 5 en dessous...
19 juin 2014 à 23:34
Donc comment ouvres tu le fichier pour le traiter ?
Tu le mets dans un document word dans lequel tu auras mis des signets ?
19 juin 2014 à 23:43
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é ?
19 juin 2014 à 23:52
Mais...
Et donc quel est ton souci ?
20 juin 2014 à 00:04
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 ?