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

cs_jacmar Messages postés 1 Date d'inscription jeudi 20 juillet 2006 Statut Membre Dernière intervention 23 août 2006 - 23 août 2006 à 21:56
faid007 Messages postés 17 Date d'inscription dimanche 9 janvier 2005 Statut Membre Dernière intervention 5 janvier 2008 - 24 août 2006 à 20:17
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

faid007 Messages postés 17 Date d'inscription dimanche 9 janvier 2005 Statut Membre Dernière intervention 5 janvier 2008
24 août 2006 à 02:03
bnj! tu peux travailler avec les liens hypertextes!
0
faid007 Messages postés 17 Date d'inscription dimanche 9 janvier 2005 Statut Membre Dernière intervention 5 janvier 2008
24 août 2006 à 20:17
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


 
0
Rejoignez-nous