Table des matières sous forme de menu déroulant dans word

Messages postés
1
Date d'inscription
jeudi 20 juillet 2006
Statut
Membre
Dernière intervention
23 août 2006
-
Messages postés
17
Date d'inscription
dimanche 9 janvier 2005
Statut
Membre
Dernière intervention
5 janvier 2008
-
Jacmar
J'ai un document de 100 pages dans lequel se retrouve une table des matières et je voudrais au lieu du style standard pouvoir le faire un peu comme un menu arborescent comme on retrouve sur une page Web
merci<?xml:namespace prefix v ns "urn:schemas-microsoft-com:vml" /??><v:shapetype id="_x0000_t75" stroked="f" filled="f" path="m@4@5l@4@11@9@11@9@5xe" o:preferrelative="t" o:spt="75" coordsize="21600,21600"><v:stroke joinstyle="miter"></v:stroke><v:formulas><v:f eqn="if lineDrawn pixelLineWidth 0"></v:f><v:f eqn="sum @0 1 0"></v:f><v:f eqn="sum 0 0 @1"></v:f><v:f eqn="prod @2 1 2"></v:f><v:f eqn="prod @3 21600 pixelWidth"></v:f><v:f eqn="prod @3 21600 pixelHeight"></v:f><v:f eqn="sum @0 0 1"></v:f><v:f eqn="prod @6 1 2"></v:f><v:f eqn="prod @7 21600 pixelWidth"></v:f><v:f eqn="sum @8 21600 0"></v:f><v:f eqn="prod @7 21600 pixelHeight"></v:f><v:f eqn="sum @10 21600 0"></v:f></v:formulas><v:path o:connecttype="rect" gradientshapeok="t" o:extrusionok="f"></v:path><?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" /??><o:lock aspectratio="t" v:ext="edit"></o:lock></v:shapetype> 

2 réponses

Messages postés
17
Date d'inscription
dimanche 9 janvier 2005
Statut
Membre
Dernière intervention
5 janvier 2008

bnj! tu peux travailler avec les liens hypertextes!
Messages postés
17
Date d'inscription
dimanche 9 janvier 2005
Statut
Membre
Dernière intervention
5 janvier 2008

Voici uu code qui peu vous servir!


ajouter dans votre document un controle combobox et un bouton, puis copier et coller se code




Private Sub CommandButton1_Click()
liste_somaire.AddItem "Amal............................page2"
liste_somaire.AddItem "Hope............................page7"
liste_somaire.AddItem "Espoir..........................page8"
End Sub

Private Sub ComboBox1_Change()


Dim x As Integer


Select Case x
Case 0: Selection.GoTo what:=wdGoToPage, Which:=wdGoToNext, Name:="2"
Case 1: Selection.GoTo what:=wdGoToPage, Which:=wdGoToNext, Name:="7"
Case 2: Selection.GoTo what:=wdGoToPage, Which:=wdGoToNext, Name:="8"


End Select
End Sub