Da FORM VBA a docx

Hai un problema con Excel?

Nuova discussione

Da FORM VBA a docx
di Stefano (utente non iscritto) data: 04/11/2016 13:50:19
Ciao ragazzi, certo della vostra supercollaborazione come sempre vi chiedo un aiuto.

Ho creato un form su VBA Excel in cui inserisco dei dati (soprattutto stringhe) e tramite questi dati devo creare un file .doc di riepilogo. Avete qualche esempio?

Ho visto che è necessario creare un template .doc in cui si posizionano dei segnalibri (bookmarks) a cui si punta poi per scrivere il testo. Ma non ho idea ora come fare per scrivere il testo inserito nelle textbox del form nel file .doc.

Spero possiate darmi una mano.

Vi allego il codice scritto fino adesso se può essere utile
Grazie mille in anticipo

Compilatore = TextCompilatore.Value
num_offerta = TextNumOfferta.Value
cliente = TextCliente.Value
indirizzo = TextIndirizzo.Value
cap = TextCAP.Value
Citta = TextCitta.Value
Provincia = TextProvincia.Value
stato = TextStato.Value
all_attenzione = TextAllAttenzione.Value


percorso = "D:Configuratore OfferteTemplateOfferta.doc"
Set wrdApp = CreateObject("Word.application")
wrdApp.Visible = True
Set wrdDOc = wrdApp.Documents.Open(percorso)

di patel data: 04/11/2016 15:35:06
vuoi creare un doc nuovo o scrivere in alcuni campi di un doc esistente (più difficile) ?
allega il file xlsm e il doc risultato desiderato

di Stefano (utente non iscritto) data: 04/11/2016 16:52:52
Ciao, grazie per la risposta. Nell'attesa ho cercato un po' su Google e sono riuscito a trovare più o meno cosa mi serve ho risolto con questo codice utilizzando i Bookmarks(segnalibri)spero che possa servire a qualcuno in futuro. Questo codice serve a scrivere su un file word già esistente in determinati punti determinati da segnalibri.

Private Sub ButtonInvio_Click()

Dim Compilatore As String
Dim num_offerta As String

percorso = "D:My ProjecctTemplateFile.doc"
Set applWord = CreateObject("Word.application")
applWord.Visible = True
applWord.WindowState = 1
Set docWord = applWord.Documents.Open(percorso)
docWord.Bookmarks("Compilatore1").Range.Text = TextCompilatore.value
docWord.Bookmarks("NumOrdine").Range.Text = TextNumeroOrdine.value
docWord.SaveAs Filename:="D:My Project" & num_ordine & ".doc"
docWord.Close
applWord.Quit
Set docWord = Nothing
Set applWord = Nothing

End Sub

Vuoi Approfondire?