Word 2010 - Moduli compilabili - fissare un limite di caratt

[ernoll]

Salve a tutti, avrei un problema.
Ho l'esigenza di creare un modulo compilabile con Word 2010 da distribuire ad utenti esterni. E' composto da caselle di differenti contenuti, date, scelte a tendina, testo, ecc. ed ho utilizzato i comandi del menu Sviluppo >> Controlli.
Avrei l'esigenza di limitare a 1000 caratteri il testo che gli utenti possono inserire nella casella "Controllo contenuto".
Ho provato in "proprietà" ma non trovo nulla di utile.
Qualcuno saprebbe aiutarmi?

[Dylan666]

Io ho usato la prima icona della sezione "Moduli legacy" (ha il simbolo "ab") indicato come "Casella di modifica (controllo modulo)"
http://www.pmi.it/file/contenuti/009059 ... itolo3.png

Nelle proprietà vedo "lunghezza massima"

[ernoll]

Grazie, ora provo.

[ernoll]

Per fare la casella di testo avevo utilizzato non i "moduli legacy" ma il controllo testo che compare con "Aa" nel menu in alto.
Ho provato ad inserire il controllo e mi compare un rettangolo grigio. Se vado su proprietà effettivamente posso impostare la lunghezza massima. Quando, però, ho fatto tutto ciò non riesco a scrivere dentro il rettangolo grigio.
O si cancella oppure scrivo dopo.
Come posso fare?

[Anthony47]

Puoi usare l' evento ContentControlOnExit per controllare che la lunghezza del testo sia coerente con quanto impostato.
Ad esempio:
-assegna a quel controllo un titolo, ad esempio MioCampo (tramite Proprieta')
-poi Alt-F11 per aprire l' editor delle macro
-espandi il "Project" del tuo documento e fai doppioclick sulla voce ThisDocument
-inserisci questa macro nel frame di dx:

Codice: Seleziona tutto

Private Sub Document_ContentControlOnExit(ByVal CContr As ContentControl, Cancel As Boolean)
    If UCase(CContr.Title) = "MIOCAMPO" Then
        If CContr.Range.Characters.Count > 10 Then     '****
            MsgBox "Massimo 1000 caratteri!" & vbCrLf & "(ora " & CContr.Range.Characters.Count & ")", 16, "Errore lunghezza campo"
            Cancel = True
        End If
'    ElseIf UCase(CContr.Title) = "SECONDOCAMPO" Then
        'istruzioni per controllare un "secondo campo"
    End If
End Sub


NB****: e' impostata su > 10 crt per un piu' facile collaudo; modifica inserendo >1000 come da tua esigenza

In caso di contenuto superiore a quanto impostato nel confronto sara' visualizzato un messaggio e non e' consentito uscire dal controllo.
Ho abbozzato una struttura "ElseIf" per indicare come puoi concatenare azioni da fare eventualmente su altri controlli.

Ciao