Una famiglia di prodotti software per l'elaborazione di testo Microsoft per la creazione di documenti Web, messaggi di posta elettronica e stampa.
Indicami tu come continuare il lavoro partendo dal test che hai allegato a questa discussione.
Grazie infinite!
Per ciò che riguarda i segnalibri.... nel mio esempio ne erano riportati due. Dovrai aggiungere segnalibri in Word e dare lo stesso nome alle relative celle per quante sono le voci da compilare.
Quindi aggiungerai nel codice i nuovi riferimenti per la copia:
objDoc1.Bookmarks("Data").Range.Text = .[Data].Value
objDoc1.Bookmarks("Installatore").Range.Text = .[Installatore].Value
objDoc1.Bookmarks("AAAAAA").Range.Text = .[AAAAAA].Value
Qui sopra ho aggiunto per uno dei modelli un nuovo riferimento. La cosa va ripetuta anche per il secondo modello.
Per il salvataggio, questo codice:
objDoc1.SaveAs (sPath & "" & Left(sNomeFile1, 5) & .[Installatore].Value & _
Format(.[Data].Value, "yyyymmdd") & ".docx")
Salva il nuovo documento nella stessa cartella nella forma : NomeModelloNomeInstallatoreaaaammgg.
Puoi modificare sia la Path (e quindi salvare in altra cartella, sia il nome del file. La cosa va ripetuta per il secondo modello.
NOTA. Il forum nasce per risolvere piccoli problemilegati all'utilizzo di Word/Excel e al loro vb. Per ciò che riguarda l'utilizzo del codice, l'utente dovrebbe avere un minimo di conoscenza del linguaggio Visual Basic.. Progetti o soluzioni personali e complesse sono OT (off Topic).