CommandButton random statu

cromano · #5 06-13-2014, 12:13 AM

For the section move metod:
My first click make this code :

Code:

Private Sub Autre_Click()
     Selection.GoTo What:=wdGoToSection, Which:=wdGoToFirst, Count:=6, Name:=""
End Sub

Next click this code :

Code:

Private Sub PhyRetour_Click()
     Selection.GoTo What:=wdGoToSection, Which:=wdGoToFirst, Count:=1, Name:=""
End Sub

For the index table metod :
My first click make this code :

Code:

Private Sub PsyRetour_Click()
     DeclarationVariable
     ThisDocument.Tables(EntetePageI).Cell(1, 2).Select
     Selection.Move
End Sub

Next click this code :

Code:

Private Sub Hebergement_Click()
     DeclarationVariable
     ThisDocument.Tables(PGAHebergement).Cell(7, 1).Select
     Selection.Move
End Sub

With this two metod, after the second click the button always go "edition" mode

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Random indentation	Galahad	Word	1	09-25-2013 11:05 AM
Email Document via Commandbutton	aqhibjaveed	Word VBA	1	03-25-2013 11:22 PM
random pop up wont go away	464646	OneNote	0	05-01-2012 04:34 AM
how can i make random variant	neezeen	Word	0	11-22-2011 08:08 AM
Random names from a given list	professor snape	Excel	1	06-06-2009 09:39 AM