Je voudrai créer un formulaire dans WORD avec une case à cocher. Au moment
où je coche une case précise, j'aimerai faire apparaitre un texte de façon
automatique 2 pages plus loin (toujours le même texte) Avez-vous un exemple
à me donner, ou une explication
J'ai vu dans la case propriétés de "case à cocher" qu'on peut utiliser des
macros au démarrage et à la sortie
Mais je ne sais pas comment les utiliser, et lesquelles prendre
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Oliv'
Anne que je salut a écrit dans 434d8f70$0$459$
Bonjour à tous
Je voudrai créer un formulaire dans WORD avec une case à cocher. Au moment où je coche une case précise, j'aimerai faire apparaitre un texte de façon automatique 2 pages plus loin (toujours le même texte) Avez-vous un exemple à me donner, ou une explication
J'ai vu dans la case propriétés de "case à cocher" qu'on peut utiliser des macros au démarrage et à la sortie
Mais je ne sais pas comment les utiliser, et lesquelles prendre
Merci pour votre aide
A. Mellini
tu peux t'inspirer de cela
il faut qsue tu selectionne l'endroit où tu veux inscrire ton texte et que tu lui donne un nom par le menu insertion/signet ici clause_veranda
Private Sub CheckBox1_Click()
' Clause veranda
Selection.GoTo What:=wdGoToBookmark, Name:="clause_veranda" If CheckBox1_Click.value = true Then Selection.TypeText Text:="Clause 643902. L'assuré déclare qu'une véranda, dont la superficie est précisé dans le tableau des garanties, est attenante à sa maison. De convention entre les parties, il est convenu que : " _ + Chr(10) Selection.Paragraphs.Indent Selection.TypeText Text:="- Les règles fixant le décompte du nombre de pièces s'applique à cette véranda, " + Chr(10) _ + "- Les ouvertures situées entre la véranda et la maison sont considérées comme des ouvertures donnant sur l'extérieur ; à ce titre si la garantie vol est souscrite : " + Chr(10) Selection.Paragraphs.Indent Selection.TypeText Text:="* Leurs protections doivent être en conformité avec les déclarations du souscripteur aux conditions particulières. " + Chr(10) _ + "* La mise en oeuvre de ces protections respectera les règles figurant au paragraphe UTILISATION DES DISPOSITIFS DE PROTECTION DES CONDITIONS GENERALES. " + Chr(10) Selection.Paragraphs.Outdent Selection.Paragraphs.Outdent Selection.TypeText Text:="En conséquence, et dans la mesure ou elles ont été souscrites :" + Chr(10) Selection.Paragraphs.Indent Selection.TypeText Text:="- Les garanties des chapitres INCENDIE, TEMPETE, CATASTROPHES NATURELLES, DEGATS DES EAUX, et RESPONSABILITE CIVILE sont étendues à la véranda et à son contenu. " + Chr(10) _ + "- La garantie BRIS DE GLACES est étendue à l'ensemble des vitres ou vitrages de la véranda." + Chr(10) Selection.Paragraphs.Outdent Selection.TypeText Text:="En aucun cas, les garanties du chapitre VOL ne s'étendent au contenu de la véranda."
Else: Selection = ""
End If End Sub
va donc faire un tour là pour + de renseignements surt les userforms http://www.excelabo.net/xl/userforms.php et là http://www.excelabo.net/xl/controles.php
je sais ca concerne excel mais c'est pareil ou presque
-- ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Have a nice day Oliv' Pour me joindre : http://cerbermail.com/?V8r2o1YHl4 ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Anne <mellini@club-internet.fr> que je salut a écrit dans
434d8f70$0$459$7a628cd7@news.club-internet.fr
Bonjour à tous
Je voudrai créer un formulaire dans WORD avec une case à cocher. Au
moment où je coche une case précise, j'aimerai faire apparaitre un
texte de façon automatique 2 pages plus loin (toujours le même texte)
Avez-vous un exemple à me donner, ou une explication
J'ai vu dans la case propriétés de "case à cocher" qu'on peut
utiliser des macros au démarrage et à la sortie
Mais je ne sais pas comment les utiliser, et lesquelles prendre
Merci pour votre aide
A. Mellini
tu peux t'inspirer de cela
il faut qsue tu selectionne l'endroit où tu veux inscrire ton texte et que
tu lui donne un nom
par le menu insertion/signet ici clause_veranda
Private Sub CheckBox1_Click()
' Clause veranda
Selection.GoTo What:=wdGoToBookmark, Name:="clause_veranda"
If CheckBox1_Click.value = true Then
Selection.TypeText Text:="Clause 643902. L'assuré déclare qu'une
véranda, dont la superficie est précisé dans le tableau des garanties, est
attenante à sa maison. De convention entre les parties, il est convenu que :
" _
+ Chr(10)
Selection.Paragraphs.Indent
Selection.TypeText Text:="- Les règles fixant le décompte du nombre de
pièces s'applique à cette véranda, " + Chr(10) _
+ "- Les ouvertures situées entre la véranda et la maison sont
considérées comme des ouvertures donnant sur l'extérieur ; à ce titre si la
garantie vol est souscrite : " + Chr(10)
Selection.Paragraphs.Indent
Selection.TypeText Text:="* Leurs protections doivent être en conformité
avec les déclarations du souscripteur aux conditions particulières. " +
Chr(10) _
+ "* La mise en oeuvre de ces protections respectera les règles figurant
au paragraphe UTILISATION DES DISPOSITIFS DE PROTECTION DES CONDITIONS
GENERALES. " + Chr(10)
Selection.Paragraphs.Outdent
Selection.Paragraphs.Outdent
Selection.TypeText Text:="En conséquence, et dans la mesure ou elles ont
été souscrites :" + Chr(10)
Selection.Paragraphs.Indent
Selection.TypeText Text:="- Les garanties des chapitres INCENDIE,
TEMPETE, CATASTROPHES NATURELLES, DEGATS DES EAUX, et RESPONSABILITE CIVILE
sont étendues à la véranda et à son contenu. " + Chr(10) _
+ "- La garantie BRIS DE GLACES est étendue à l'ensemble des vitres ou
vitrages de la véranda." + Chr(10)
Selection.Paragraphs.Outdent
Selection.TypeText Text:="En aucun cas, les garanties du chapitre VOL ne
s'étendent au contenu de la véranda."
Else: Selection = ""
End If
End Sub
va donc faire un tour là pour + de renseignements surt les userforms
http://www.excelabo.net/xl/userforms.php
et là
http://www.excelabo.net/xl/controles.php
je sais ca concerne excel mais c'est pareil ou presque
--
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Have a nice day
Oliv'
Pour me joindre : http://cerbermail.com/?V8r2o1YHl4
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Je voudrai créer un formulaire dans WORD avec une case à cocher. Au moment où je coche une case précise, j'aimerai faire apparaitre un texte de façon automatique 2 pages plus loin (toujours le même texte) Avez-vous un exemple à me donner, ou une explication
J'ai vu dans la case propriétés de "case à cocher" qu'on peut utiliser des macros au démarrage et à la sortie
Mais je ne sais pas comment les utiliser, et lesquelles prendre
Merci pour votre aide
A. Mellini
tu peux t'inspirer de cela
il faut qsue tu selectionne l'endroit où tu veux inscrire ton texte et que tu lui donne un nom par le menu insertion/signet ici clause_veranda
Private Sub CheckBox1_Click()
' Clause veranda
Selection.GoTo What:=wdGoToBookmark, Name:="clause_veranda" If CheckBox1_Click.value = true Then Selection.TypeText Text:="Clause 643902. L'assuré déclare qu'une véranda, dont la superficie est précisé dans le tableau des garanties, est attenante à sa maison. De convention entre les parties, il est convenu que : " _ + Chr(10) Selection.Paragraphs.Indent Selection.TypeText Text:="- Les règles fixant le décompte du nombre de pièces s'applique à cette véranda, " + Chr(10) _ + "- Les ouvertures situées entre la véranda et la maison sont considérées comme des ouvertures donnant sur l'extérieur ; à ce titre si la garantie vol est souscrite : " + Chr(10) Selection.Paragraphs.Indent Selection.TypeText Text:="* Leurs protections doivent être en conformité avec les déclarations du souscripteur aux conditions particulières. " + Chr(10) _ + "* La mise en oeuvre de ces protections respectera les règles figurant au paragraphe UTILISATION DES DISPOSITIFS DE PROTECTION DES CONDITIONS GENERALES. " + Chr(10) Selection.Paragraphs.Outdent Selection.Paragraphs.Outdent Selection.TypeText Text:="En conséquence, et dans la mesure ou elles ont été souscrites :" + Chr(10) Selection.Paragraphs.Indent Selection.TypeText Text:="- Les garanties des chapitres INCENDIE, TEMPETE, CATASTROPHES NATURELLES, DEGATS DES EAUX, et RESPONSABILITE CIVILE sont étendues à la véranda et à son contenu. " + Chr(10) _ + "- La garantie BRIS DE GLACES est étendue à l'ensemble des vitres ou vitrages de la véranda." + Chr(10) Selection.Paragraphs.Outdent Selection.TypeText Text:="En aucun cas, les garanties du chapitre VOL ne s'étendent au contenu de la véranda."
Else: Selection = ""
End If End Sub
va donc faire un tour là pour + de renseignements surt les userforms http://www.excelabo.net/xl/userforms.php et là http://www.excelabo.net/xl/controles.php
je sais ca concerne excel mais c'est pareil ou presque
-- ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Have a nice day Oliv' Pour me joindre : http://cerbermail.com/?V8r2o1YHl4 ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
