scrivere testo da combobox

Question

Salve a tutti,

in un documento word vorrei inserire del testo a segutio del click sul valore della combobox.

Ho inserito una combobox1 e il seguente codice

Private Sub Document_Open()

    With Me.ComboBox1

        .Clear

        .AddItem ("alfa")

        .AddItem ("Beta")

        .AddItem ("gamma")

    End With

End Sub

se posiziono il cursore in un punto del documento e clicco sulla scelta della combobox, è possibile fargli scrivere il valore?

Grazie a tutti

Answer 1

salve Mauro e grazie ancora...:-)

immagina che nella lettera in word c'è il classico Spett.le e dalla form ad ogni click su combobox vengono scritte le relative voci.

C'è qualche possibilià/soluzione al fine di chiudere ogni volta la form, posizionare il cursore e cliccare nuovamente sul valore della combo?

in pratica aprendo la form inserire direttamente al click sulla combo:

Spett.le

fornitoreA

fornitoreB

fornitoreC

Grazie ancora

Answer 2

ciao Mauro,

ho cercato di creare una form con una combo

la butto cosi: compilando una documento posiziono il cursore in un punto e vorrei inserire sul click della combo il valore .

è possibile?

Grazie ancora

Private Sub ComboBox1_Click()

    Selection = Me.ComboBox1.Value

End Sub

Answer 3

Private Sub ComboBox1_Click()

    ThisDocument.Bookmarks("destinatari1").Range.Text = ComboBox1.Value

    ThisDocument.Bookmarks("destinatari2").Range.Text = ComboBox1.Value

    ThisDocument.Bookmarks("destinatari3").Range.Text = ComboBox1.Value

End Sub

però quando clicco sulla combo mi inserisce i valori in tutti i segnalibri

Il codice che hai postato fa esattamente quello, inserisce in ogni segnalibro il valore della ComboBox1.

Tu, invece, cosa vorresti?

Answer 4

ciao Mauro,

ho cercato di creare una form con una combo

la butto cosi: compilando una documento posiziono il cursore in un punto e vorrei inserire sul click della combo il valore .

è possibile?

Grazie ancora

Answer 5

ciao mauro,

ancora qualche problemino e cioè

ho creato tre segnalibri: destinatario1, destinatario2, destinatario3

sulla combobox 1

Private Sub ComboBox1_Click()

    ThisDocument.Bookmarks("destinatari1").Range.Text = ComboBox1.Value

    ThisDocument.Bookmarks("destinatari2").Range.Text = ComboBox1.Value

    ThisDocument.Bookmarks("destinatari3").Range.Text = ComboBox1.Value

End Sub

però quando clicco sulla combo mi inserisce i valori in tutti i segnalibri

dovrei abbinare i bookmarks destinatari a dei valori?

Grazie ancora