Table des matières sous forme de menu déroulant dans word
cs_jacmar
Messages postés1Date d'inscriptionjeudi 20 juillet 2006StatutMembreDernière intervention23 août 2006
-
23 août 2006 à 21:56
faid007
Messages postés17Date d'inscriptiondimanche 9 janvier 2005StatutMembreDerniè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>
A voir également:
Table des matières sous forme de menu déroulant dans word
faid007
Messages postés17Date d'inscriptiondimanche 9 janvier 2005StatutMembreDerniè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"