Affichage texte fonction de choix [Résolu]

[Ofsco]

Bonjour à tous,

Je cherche à faire un document où on demande à l'ouverture quelles sont les entrées (du genre que voulez vous mettre dans le document?....) avec plusieurs choix et que word génère la trame du document (titres,polices...) en fonction des entrées choisies.

ex: que voulez vous mettre dans votre document?
-Objet
-numéro de téléphone
-Condition
-....
avec un choix de plusieurs item possibles

En retour un document remplies avec des titres,polices,taille de caractère précédemment définis.

C'est possible de faire ça dans word?

[Heureux-oli]

Bonjour et bienvenue sur les forums Office de DVP.

Le principe le plus facile est unUserForm qui s'ouvre au démarrage d'un modèle.

Si choix il y a, le plus simple est d'ouvrir un autre modèle qui correspondrait au choix.

Si c'est un Fax, on ouvre un modèle FAX, ....

Mais on peut très bien définir les éléments du document lors de son ouverture et le tout par code.

Mais avec une question plus précise, on peut donner une réponse qui le sera tout autant.

[Ofsco]

C'est pour la réalisation de devis, le truc c'est que certains éléments n'apparaissent pas dans tous les devis. Ce que j'aimerais pouvoir faire c'est choisir les éléments du devis(ex:prix,conditions,références) et que word me retourne une page avec les éléments choisis uniquements!

Du style je choisis Objet, Conditions particulières, Prix et je me retrouve avec une feuille avec ces éléments en titre (tels que je les aurais précedemment écrits)

Aprés techniquement je connais rien à la programmation!

Merci d avance pour votre aide

[Ofsco]

Toujours pas assez de précision?
Je verrai bien une boite de dialogue qui demande les champs à écrire dans le devis pami une liste.

Après est ce que c 'est faisable je ne sais pas, c'est pour ça que je fais appel à vous!!!

[Heureux-oli]

Voilà un exemple en Word 2003.

Comme je l'ai déjà dit oui c'est possible.

[Ofsco]

Impossible de récupérer la pièce jointe

[Heureux-oli]

Il suffit de cliquer dessus !

[Heureux-oli]

D'autre personnes ont pu télécharger le fichier sans problème.

[Ofsco]

Ca doit être bloqué sur mon réseau du boulot

[Ofsco]

j'aimerais pouvoir aller a la ligne une fois un signet rempli, j'ai vu qu il y a des fonctions insertparagraph,before paragraph... sur l'aide de MS.
Comment utilise t on ces codes?

Un petit aperçu de mon code pour remplir le signet

Code :

1
2
3
4
5
6
7
8
9
10
11
Public Sub Remplirsignet7(t As String, po As String)

    On Error GoTo rien
    Dim postS As Long
   
    
    postS = ActiveDocument.Bookmarks(t).Range.Start
    ActiveDocument.Bookmarks(t).Range.Text = po
    ActiveDocument.Bookmarks.Add Name:=t, _
    Range:=ActiveDocument.Range(postS, postS + Len(po))
    Selection.Paragraphs(8).Range.InsertParagraphAfter

J'ai essayé d ajouter cette ligne mais rien ne se passe.
Merci et désolé pour le hors sujet

[Heureux-oli]

Si tu veux utiliser l'objet Selection, il ne faut pas l'associer à autre chose.
Soit :

Code :

ActiveDocument.Paragraphs(8).Range.InsertParagraphAfter

Soit :

Code :

1
2
ctiveDocument.Paragraphs(8).Range.Select
Selection.InsertParagraphAfter

[Ofsco]

OK merci l'homme heureux