|
|
Rank: AiutAmico
Iscritto dal : 5/9/2011
Posts: 132
|
So come duplicare il testo nei campi moduli con i segnalibri su word ma sto cercando una macro vba che mi permetta di replicare lo stesso testo o parola su più campi modulo, devo associarla ad un pulsante. Conosco il metodo per replicare il testo, parola...su scribus o documento pdf ma non trovo una macro per word che faccia quello che chiedo per poi utilizzarla anche su documento openoffice.
Chi può aiutarmi? Grazie mille.
|
|
|
|
|
|
Rank: AiutAmico
Iscritto dal : 5/29/2003
Posts: 1,694
|
salve nella speranza di aver capito bene il problema, quella che segue è una semplice macro che inserisce nei campi moduli testo un valore dichiarato con una imputbox. vedi se è quanto ti aspettavi. Sub Test() Dim FF As FormField miotesto = InputBox("Testo da immettere", "TESTO") For Each FF In ActiveDocument.FormFields If Left(FF.Name, 5) = "Testo" Then FF.Result = miotesto End If Next End Sub saluti Giap
|
|
Rank: AiutAmico
Iscritto dal : 5/9/2011
Posts: 132
|
@a10n11, grazie per la risposta ho caricato un piccolo pdf di esempio che riproduce quello che vorrei: se scrivi una parola in una textbox la stessa parola la ritroverai nell'altra textbox. http://www.supershare.net/file/390314-5488315079.htmlSu pdf so come si fa e so anche come utilizzare i moduli su word http://www.supershare.net/file/390323-5436619113.html , però a me interessa lavorare non con i moduli ma con le caselle di testo (textbox). Vorrei che la macro, associata ad un pulsante, quando io scrivo su una casella la parola "prova" o altre parole nella seconda casella mi riscrive la stessa parola. Chiedo scusa se non sono stata chiara nell'esporre il quesito.
|
|
Rank: AiutAmico
Iscritto dal : 5/9/2011
Posts: 132
|
@a10n11, chiedo scusa...perché mi da questo errore la macro?  
|
|
Rank: AiutAmico
Iscritto dal : 5/29/2003
Posts: 1,694
|
salve per l'errore che ti compare, dovresti guardare se è referenziata la libreria "Microsoft word 9 object library" in base alla versione di office il valore 9 potrebbe cambiare in 10 -11 . Per verificare ciò: Accedi all'editor di visual basic (alt+F11) Menù Strumenti>Riferimenti nell'elenco che ti compare vedi se la voce sopraindicata è spuntata. per quanto riguarda invece l'autocompletamento delle textbox sulla pagina, una possibile soluzione come vedi in immagine  potrebbe essere la macro che segue: Private Sub TextBox1_Change() ActiveDocument.TextBox2.Text = ActiveDocument.TextBox1.Text ActiveDocument.TextBox3.Text = ActiveDocument.TextBox1.Text End Sub digitando un valore nella Textbox1, il testo viene replicato anche sulla textbox2 e textbox3 saluti Giap
|
|
Rank: AiutAmico
Iscritto dal : 5/9/2011
Posts: 132
|
Commenta:salve per l'errore che ti compare, dovresti guardare se è referenziata la libreria "Microsoft word 9 object library" in base alla versione di office il valore 9 potrebbe cambiare in 10 -11 . Per verificare ciò: Accedi all'editor di visual basic (alt+F11) Menù Strumenti>Riferimenti nell'elenco che ti compare vedi se la voce sopraindicata è spuntata. per quanto riguarda invece l'autocompletamento delle textbox sulla pagina, una possibile soluzione come vedi in immagine potrebbe essere la macro che segue: Private Sub TextBox1_Change() ActiveDocument.TextBox2.Text = ActiveDocument.TextBox1.Text ActiveDocument.TextBox3.Text = ActiveDocument.TextBox1.Text End Sub digitando un valore nella Textbox1, il testo viene replicato anche sulla textbox2 e textbox3 saluti Giap @a10n11 Non so come ringraziarti, l'ultima macro che mi hai fornito non necessita di pulsanti...fa tutto in automatico. per quanto riguarda "Microsoft word 9 object library" è tutto selezionato come puoi vedere nell'immagine...  eppure non va....ricapitolando: su excel creo le mie 2 textbox, ricopio la macro così come l'hai postata e la associo al pulsante. Tolgo la modalità progettazione, scrivo il testo su una testbox e non succede nulla a parte l'errore. Qualcosa che non va c'è. Il post è da considerarsi risolto ma non appena risolvo pure col pulsante lo inserisco sul titolo.
|
|
Rank: AiutAmico
Iscritto dal : 5/29/2003
Posts: 1,694
|
salve mi fai vedere come hai ricopiato la macro associata al pulsante? quella che ti ho postato sfrutta l'evento change della textbox1 quindi va in automatico per l'altro problema, vedo che le librererie sono correttamente istanziate. non vorrei che debbano essere ri-registrate. saluti Giap
|
|
Rank: AiutAmico
Iscritto dal : 5/9/2011
Posts: 132
|
http://www.supershare.net/file/390612-3712436cbb.htmlregistrato un piccolo tutorial su come inserisco la macro e il problema che mi crea, seguito anche il procedimento del tuo pdf vai a data, quella macro va Commenta:salve prova a vedere se quanto ti allego riesce ad illuminarti. http://www.supershare.net/file/388670-75713538e5.htmlPS. il codice da copiare e quello che segue va Sub a End Sub Sub cercaoggi() Dim oggi As Date oggi = Date Columns("A:A").Find(What:=oggi, LookIn:=xlFormulas).Activate End Sub ma questa che mi hai fornito non va :(  Ora sono sicura che in qualcosa sbaglio....magari nella creazione delle textbox.....booh Se fosse un problema di librerie nemmeno cerca oggi dovrebbe andare. Grazie per l'aiuto e per la pazienza.
|
|
Rank: AiutAmico
Iscritto dal : 5/29/2003
Posts: 1,694
|
salve guarda l'esempio nel file disponibile QUIfa sapere se risolvi saluti Giap
|
|
Rank: AiutAmico
Iscritto dal : 5/9/2011
Posts: 132
|
su word va sia col pulsante che senza pulsante, su excel non ne vuol sapere :(
ti chiedo, per favore, se puoi crearmi un documento excel con le macro e textbox ben funzionanti così posso vedere dove sta l'errore che commetto su excel altrimenti non esco più da questo labirinto, su word, a parte la prima macro che mi hai fornito e che non va e cioè questa:
Sub Test()
Dim FF As FormField
miotesto = InputBox("Testo da immettere", "TESTO")
For Each FF In ActiveDocument.FormFields
If Left(FF.Name, 5) = "Testo" Then
FF.Result = miotesto
End If
Next
End Sub
le altre due macro con e senza pulsante vanno benissimo. Il problema sta su excel....grazie mille per l'aiuto.
|
|
Rank: AiutAmico
Iscritto dal : 5/29/2003
Posts: 1,694
|
|
|
Rank: AiutAmico
Iscritto dal : 5/9/2011
Posts: 132
|
Credo di essere stata poco chiara per l'ennesima volta ma ormai lascio perdere, il file scaricato funziona perfettamente come hai potuto vedere dall'immagine postata prima. Lascio perdere le macro per le textbox su EXCEL tanto su WORD vanno.. http://www.supershare.net/file/390677-3857983cba.html
|
|
Rank: AiutAmico
Iscritto dal : 5/29/2003
Posts: 1,694
|
d4rkheart ha scritto:Credo di essere stata poco chiara per l'ennesima volta ma ormai lascio perdere, il file scaricato funziona perfettamente come hai potuto vedere dall'immagine postata prima. Inserisco risolto e lascio perdere le macro per le textbox su EXCEL tanto su WORD vanno, ciao e grazie.
salve siccome hai mischiato due argomenti diversi uno relativo a Word uno relativo a Excel con problematiche diverse è venuto fuori un casotto. Devo intendere che lo stesso lavoro fatto su Word con le textbox le vuoi realizzare in excel?? cambia la sintassi ma la procedura è la stessa. Crea le tue textbox sul foglio dalla casella degli strumenti (4 Textbox) aggiungi un pulsante sul foglio che avrà la seguente macro: Private Sub CommandButton1_Click() Me.TextBox2.Text = Me.TextBox1.Text Me.TextBox3.Text = Me.TextBox1.Text Me.TextBox4.Text = Me.TextBox1.Text End Sub http://www.supershare.net/file/390682-3220385c03.htmlsaluti Giap
|
|
Rank: AiutAmico
Iscritto dal : 5/9/2011
Posts: 132
|
Infatti tra macro, fogli excel e word ho fatto parecchia confusione pertanto ti chiedo scusa e grazie mille.
Non capisco come mai tra un foglio word ed excel la sintassi cambia, pensavo che le stesse macro potessero essere applicate per entrambi, maledetta ignoranza ;(
Che dire? Grazie per la pazienza e l'aiuto prezioso! :)
|
|
|
Guest |
