Inserire una combobox in file word

di il
1 risposte

Inserire una combobox in file word

Ciao a tutti,
sto cercando di creare un programma per compilare un file word.
Sono riuscita tramite la libreria Microsoft.Office.Interop.Word a scrivere del semplice testo usando i segnalibri.

Ora avrei la necessità di inserire una combobox e di popolarla ma non sono riuscita a trovare il codice esatto da usare.

Vi posto quello che ho fatto fino ad ora:

Imports Word = Microsoft.Office.Interop.Word

Public objword As New Word.Application
Public progettoriginale, progettocopia As String
...
progettoriginale = My.Computer.FileSystem.SpecialDirectories.Desktop + "\progettoprova.docx"
progettocopia = My.Computer.FileSystem.SpecialDirectories.Desktop + "\progettocopia.docx"

objword.DisplayAlerts = Word.WdAlertLevel.wdAlertsNone
objword.Visible = False
objword.Documents.Add(CStr(progettoriginale))

nominativo = TextBox1.Text
cittadinanza = TextBox2.Text
nascita = TextBox3.Text
...
objword.Selection.Font.Size = 10
objword.Selection.Font.Name = "Lato Medium"

objword.Documents(1).Bookmarks.Item("Nominativo").Select()
objword.Selection.Font.Bold = 1
objword.Selection.Text = nominativo
objword.Documents(1).Bookmarks.Item("Cittadinanza").Select()
objword.Selection.Font.Bold = 1
objword.Selection.Text = cittadinanza
objword.Documents(1).Bookmarks.Item("Nascita").Select()
objword.Selection.Font.Bold = 1
objword.Selection.Text = nascita

objword.Documents(1).SaveAs(CStr(progettocopia))
objword.DisplayAlerts = Word.WdAlertLevel.wdAlertsAll
objword.Documents.Close()
objword.Quit()

releaseObject(objword)

Vi chiedo cortesemente aiuto.
Grazie

1 Risposte

Devi accedere o registrarti per scrivere nel forum
1 risposte