un formulaire avec choix des insertions(image, paragraphe etc)

**scsi3** · 05/03/2012, 13h32

Bonjour,

Je vous explique mon probleme :

je travaille avec une trame (fichier template word 2007) qui me sert a rediger un document. Cette trame fait à peut pres 300 pages apres un tri elle peut faire de 50 à 250 pages...
cette trame est composé d'image emf dans des canevas, de cross reference de texte etc..(office en anglais, je bosse pour une boite US)
elle est aussi composé de toutes les references avec lesquelles je travaille(je parle de produits, un produit = une reference avec plein d'options)il y a environ 8 references que je modifie en fonction des options.

à la fin il me reste une reference avec toutes les options que j'ai gardé en effaçant le reste.

Je cherche à me créer un formulaire qui me simplifirait la vie en selectionnant au depart le gros de ce que je veux garder.

Je precise je suis un utilisateur de word pas un developpeur, je me suis essayer pour la 1ere fois de ma vie au macro la semaine derniere.

J'ai retenu que je pouvais faire ça avec un userform des signets et un formulaire à tiroir. je pense que j'ai à peu prés compris le principe, mais avant de commencer, je voudrais savoir si je suis dans la bonne voie? et si quelqu'un pouvait me conseiller un bon livre pour apprendre le VBA..

ou dans un ultime fantasme si quelqu'un avait dejà une sorte de "truc tiroir" similaire dont je n'aurais qu'à modifier les lignes correspondant aux element à inserer..

J'espere avoir été clair (et pas trop long)

Cordialement

**Heureux-oli** · 05/03/2012, 20h35

Salut,

Le tutoriel docuent à tiroir propose de faire le cheminement inverse de ce que tu fais, on pert d'un document "vide" et on y ajoute ce que l'on souhiate.

Donc je pense que c'est la bonne démarche dans ton cas.

Je suppose que tu as déjà parcouru le tutoriel.

Si ce n'est pas le cas, on le trouve là : http://heureuxoli.developpez.com/off...cument-tiroir/

**scsi3** · 06/03/2012, 07h41

Bonjour, et merci pour ta reponse.

Effectivement j'avais dejà lu le tutoriel.

Je pense partir de template "vide" qui contiendrait le code pour rapatrier ce que j'aurais marquer de signets.

ex fichier 1 avec code pour rapatrier contenu XXXX

fichier 2 avec code pour rapatrier contenu YYYYY
(tous les contenus XXX et YYY sont dans la trame)

est ce correct comme idée de départ??

merci

**Heureux-oli** · 06/03/2012, 18h09

Salut,

Il est préférable d'avoir tout le code dans le même document.

**scsi3** · 02/05/2012, 10h46

Bonjour,
(je n'ai pas vraiment eu le temps de m'y remettre avant, beaucoup de taff).
Mais j'avance...
Pour résumé ma trame est donc créer et contient tous ce dont j'ai besoin(texte, document etc...)elle est nommée "Trame_Data" et tous le contenu est "marqué" par signets.
Ensuite j'ai créé plusieur templates dans lesquels des liens hypertexte vont chercher les signets dans "Trame_Data".
Les templates sont donc composés de "code champ".
J'ai rajouté une "table of content" et "une table of figure"après la page de garde et les page de recommandations.(2 signets distincts).

Problemes :
J'ai besoin de modifier le contenu des signets qui sont après les tables pour finaliser le document, je dois donc suprimer les liens hyper textes, et ensuite mettre a jour mes tables des matieres et de figures.

J'ai donc mis un bouton avec macro pour mise à jour des codes champs : ça c'est ok.

J'ai mis un second bouton pour selectionner tous le document a partir d'un signet. ensuite je n'ais plus qu'a faire CTRL + Maj + F9 pour supprimer les liens.
Mon probleme est que je n'arrive pas à sélectionner la partie du document situer entre deux signets.

voici mon code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Private Sub CommandButton2_Click()
'
' Selection
'
ActiveDocument.Range(ActiveDocument.Bookmarks("S1").Start, ActiveDocument.Bookmarks("S2").End).HighlightColorIndex = wdBrightGreen
 
End Sub

et il ne se passe rien!?

Un petit coup de main svp

merci d'avance

**scsi3** · 02/05/2012, 14h13

Suite à ma demande d'aide ci dessus, j'ai continué de chercher et apparement il serait possible de mettre sur un seul bouton la selection d'une portion de signets et de supprimer les liens hypertexte en conservant le contenu, tous ça avec un bouton, mais tous ce que je reussis à faire c'est supprimer le bouton ou faire des erreurs.

(Je suis en train de rechercher un livre sur les macros dans office mais il est en rupture partout

..., dur quand on debute

)

**Heureux-oli** · 02/05/2012, 19h59

Salut,

Pour tes débuts, là : Office.developpez.com/cours
ou sur Word : http://heureuxoli.developpez.com/office/word/vba-all/
http://heureuxoli.developpez.com/office/word/vba-word/

Pour ce qui est du code, ces deux code fonctionnent.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveDocument.Range(ActiveDocument.Bookmarks(1).Start, ActiveDocument.Bookmarks(2).End).Font.Italic = True

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveDocument.Range(ActiveDocument.Bookmarks(1).Start, ActiveDocument.Bookmarks(2).End).HighlightColorIndex = wdBlue

Ils sont identiques au tien.

Es-tu certains que ton bouton à un effet ?

**scsi3** · 03/05/2012, 08h56

Encore un grand merci de bien vouloir m'accorder un peu de temps.
J'ai trouvé ce qui cloche

Mon bouton de macro est sur un template et en fait sur le template il fonctionne, mais pas sur le document généré, car le bouton de macro est vide

Question : si un template contient un bouton de macro, quand on genere un document en "double click" le bouton de macro n'est pas rempli????

Voici la structure de mon document : je veux selectionner plusieurs signets, c'est a dire des choses comme cela :

]Page de garde[
]Recommendation[
Table of content
Table of figure
]S1[
]{includetext "Z:\\chemin\\nom_de_fichier" nom_de_signet}[
]{includetext "Z:\\chemin\\nom_de_fichier" nom_de_signet}[
]{includetext "Z:\\chemin\\nom_de_fichier" nom_de_signet}[
]etc[
]S2[

et ensuite supprimer les liens hypertexte en gardant le texte pour pouvoir le modifier.

J'ai donc mis un bouton de macro en debut de document qui "devrait permettre de selectionner tous les liens hypertexte entre "S1" et "S2" pour supprimer les liens et pouvoir retravailler mon document.

Si ce bouton pouvait en plus, en une fois me selectionner les liens et les supp. en un clic, cela serait genial mais hélas ce n'est pas encore au point.

**scsi3** · 03/05/2012, 13h19

Bon, bien, après avoir fait de nouvelles recherches, j'ai vu que pour ne pas imprimer un bouton c'est pas gagné...
Donc je veux des boutons (non vide de macro) généré par un template et tous ça pour les supprimer à la fin.

Mais... J'ai vu un truc sympa, le XML

alors est il possible de generer un document issue d'un template qui aurait mes boutons(avec leur macro) dans le ruban?

Pour l'instant je me suis casser les dents

, surtout que j'ai des restrictions de telechargement dans la boite pour laquelle je travaille, je n'ai donc pas pu telecharger Custom UI...

Merci d'avance de m'éclairer

**scsi3** · 03/05/2012, 14h36

Alors j'ai pu rapatier le fichier "RubanDocs.dotm" et notepad ++.

J'ai "regardé dedans" et ce que je vois c'est que le document generé par ce template conserve sa macro.

Je vais donc ce soir( à la maison) me procurer "Custom UI "et voir si je peux incorporer mes boutons de macro dans le ruban

.

Autre chose, que dois je écrire dans ma macro pour avoir l' equivalent de CTRL + Maj + F9, en clair supprimer les hyper liens en gardant le texte

?

Je resume :
Je selectionne tous ce qu'il y entre "S1" et "S2"
supp. des liens en gardant le texte

et je peux enfin finaliser mon document

j'ai encore du boulot avant d'y arriver, mais ça fait du bien de rever

merci

**Heureux-oli** · 03/05/2012, 15h30

Salut,

C'est un principe universel en Word, les macros ne sont pas insérées dans les documents, elles restent dans le modèle.

**scsi3** · 03/05/2012, 20h06

Re salut heureux oli (Olivier! Je crois)
Je vais réemployer les termes utilisés par d'autre...
Désolé d'être un boulet

J'ai 46 balais et je viens d'hériter d'un nouveaux job...(heureusement

)

Alors cette semaine j'ai découvert "plein de chose" et j'en suis bien heureux!

Sauf que, je comprend vite, mais il faut m'expliquer "longtemps"!!!!!!

Alors

désolé....

d'autre questions demains au boulot... seront formulées et posées....

**Heureux-oli** · 04/05/2012, 12h41

Envoyé par scsi3

Désolé d'être un boulet

Pas grave, on est tous passé par là

J'ai 46 balais et je viens d'hériter d'un nouveaux job...(heureusement

)

Gamin va

Alors cette semaine j'ai découvert "plein de chose" et j'en suis bien heureux!

Sauf que, je comprend vite, mais il faut m'expliquer "longtemps"!!!!!!

Alors

désolé....

d'autre questions demains au boulot... seront formulées et posées....

**scsi3** · 04/05/2012, 14h15

Merci de votre réponse Vénérable Heureux Oli

ça y est j'ai reussi à mettre un onglet suplementaire et des boutons...

Mais je bloque toujour sur ma macro pour supprimer les liens hypertextes
que dois je écrire dans ma macro pour avoir l' equivalent de CTRL + Maj + F9, en clair supprimer les hyper liens en gardant le texte ?

Je resume :
Je selectionne tous ce qu'il y entre "S1" et "S2" (ça c'est ok ça fonctionne)
supp. des liens en gardant le texte (c'est là que

soit ça fait rien soit je supprime le texte)

Help me please.

**Heureux-oli** · 05/05/2012, 12h10

Salut,

Je suppose que le leins dont tu parles sont des champs, puisque la combinaison que tu donnes remplace les champs par leur valeur.

Essais de délier les champs en une seule fois.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveDocuments.Fields.Unlink

**scsi3** · 07/05/2012, 08h46

Bonjour,

Je dois vraiment pas être doué

Car cela ne marche pas

Ce sont ces liens que je veux " supprimer" en gardant le texte
(Ceux compris entre S1 et S2)
]S1[
]{includetext "Z:\\chemin\\nom_de_fichier" nom_de_signet}[
]{includetext "Z:\\chemin\\nom_de_fichier" nom_de_signet}[
]{includetext "Z:\\chemin\\nom_de_fichier" nom_de_signet}[
]etc[
]S2[

Et si la selection fonctionne bien :
"ActiveDocument.Range(ActiveDocument.Bookmarks("S1").Start, ActiveDocument.Bookmarks("S2").End).HighlightColorIndex = wdBlue"

cette commande :
"ActiveDocuments.Fields.Unlink"
n'a aucun effet

Ce n'est pas la bonne commande à utiliser quans on à selectionné les liens?

**Heureux-oli** · 07/05/2012, 09h50

Salut,

Partant d'une sélection, ça fonctionne sans problème.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
ActiveDocument.Range(ActiveDocument.Bookmarks("S1").Start, ActiveDocument.Bookmarks("S2").End).Select
Selection.Fields.Unlink

Et d'un document tout entier aussi :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Activedocument.fields.unlink

**scsi3** · 09/05/2012, 12h34

Bonjour,

Je dois vraiment être une bille

car effectivement ce matin cela fonctionne à la perfection...

Autre chose, je ne sais pas comment mettre mes macros dans les boutons du nouvel onglet du ruban.(cela fonctionne quand je met un bouton dans le document).

**Heureux-oli** · 09/05/2012, 13h16

Salut,

Un peu de lecture ?

http://heureuxoli.developpez.com/office/word/ruban/

Le tuto est basé sur 2007, mais c'est exactement la même chose en 2010.
Juste que pour 2010, on peut modifier le ruban de l'interface graphique, mais c'est lié à l'application et pas au document.
Sous 2007, ce n'était possible que pour le document.

un formulaire avec choix des insertions(image, paragraphe etc)

VBA Word

Discussions similaires

Partager

Partager