
Sub Macro1() ' ' Macro1 Macro Selection.TypeText Text:="1) Prodotti chimici destinati all'industria, alle scienze e fotografia,; preparati per la tempera e la saldatura dei metalli; sostanze chimiche destinate a conservare gli alimenti; materie concianti; adesivi (materie collanti) destinati all'industria." Selection.TypeParagraph Selection.TypeText Text:="2) Colori, vernici, lacche; prodotti preservanti dalla ruggine e dal deterioramento del legno;" End Sub User form: Private Sub CheckBox1_Click() If CheckBox1.Value = True Then Selection.TypeText Text:="2) Colori, vernici, lacche; prodotti preservanti dalla ruggine e dal deterioramento del legno;" Else Exit Sub End If End Sub |
