[VBA/WORD] Cambio di pagina da casella di riepilogo

[yyzyyz]

allora il problema e ke di programmazione di word ne capisco praticamente nulla, ho questa necessità-

in word :
1) pagina menu , nella quale ho un menu a tendina tipo combobox1 ke popolo con dei miei dati
esempio :
combobox1.clear
combobox1.add "pagina1"
combobox1.add "pagina2"

quello ke vorrei fare e ke al clik su menu a tendina il testo pagina1 mi mandi alla pagina relativa

come posso farlo ?

[Boolean]

vai nell'editor di VBA, doppio click su ThisDocument, nella combo in alto a sinistra della finestra di editing del codice, cerca il nome del tuo ComboBox, e a destra scegli l'evento che ti interessa utilizzare (dovrebbe essere l'evento Click) e scrivi del codice per andare alla pagina che ti interessa, ad esempio:

Selection.GoTo What:=wdGoToPage, Which:=wdGoToAbsolute, Count:=[Numero di Pagina]

Boolean

[yyzyyz]

sto provando cosi , mi popola la combo ma nn riesce a portarmi sulla pagina ke desidero', what non assume il valore ke gli assegno cioe 4 .
dove sbaglio ?

Private Sub ComboBox1_Click()
Select Case ComboBox1.ListIndex
    Case 0
    Selection.GoTo (What = 4)
    Case 1
    MsgBox (2)
End Select

End Sub

Private Sub ComboBox1_DropButtonClick()
ComboBox1.Clear
ComboBox1.AddItem "1"
ComboBox1.AddItem "2"
End Sub

ciao Boolean

[Boolean]

cosa sbagli? la sintassi!

questa è quella giusta:

Selection.GoTo What:=wdGoToPage, Which:=wdGoToAbsolute, Count:=[Numero di Pagina]

se la cambi in:

Selection.GoTo (What = 4)

come ti aspetti che funzioni?

deve essere così:

Selection.GoTo What:=wdGoToPage, Which:=wdGoToAbsolute, Count:=4

oppure:

Selection.GoTo wdGoToPage, wdGoToAbsolute, 4

Boolean

[yyzyyz]

hehe :rollo: hai ragione ora funziona bene, pero'....
coma mai quando proteggo il modulo non funziona piu' ?

grazie Boolean

[Boolean]

perchè Word cerca di spostare il cursore in una zona editabile della pagina cui cerchi di andare.

se non ci sono zone editabili, ed il modulo è bloccato, non funziona.
dovresti, per ovviare, mettere almeno un campo di testo editabile (magari con valore predefinito uno spazio, in modo da non attirare l'attenzione)

Boolean

[yyzyyz]

grazie