REM ***** BASIC *****
Sub Copia (oEv)
sString = oEv.Source.Text
oForm = oEv.Source.model.parent
oElems = oForm.createEnumeration
While oElems.hasMoreElements
oCont = oElems.nextElement
if oCont.Name = oEv.Source.model.Name then
oCont.Text = sString
endif
Wend
End Sub
collegata all'evento "Modificato" del primo campo.
Copia semplicemente il testo dal primo agli altri campi, se hanno lo stesso nome.
Io l'ho trovata utile, in particolare in documenti lunghi, per campi che non dovevano stare nell'intestazione/piè di pagina.
Per funzionare il file deve essere aperto in modalità scrittura, bisogna dare il permesso all'esecuzione della macro, se in modalità Editazione dei campi formulario bisogna uscirne (Visualizza -- Barre degli strumenti -- Campi per formulario -- cliccare sul tasto OK modo bozza On/Off).
Post
