Risultati da 1 a 10 di 10

Discussione: Caratteri in grassetto, corsivo e Stampa unione



  1. #1
    L'avatar di maXimo
    Clicca e Apri
    Data Registrazione
    May 2016
    Località
    viareggio
    Età
    58
    Messaggi
    5
    Versione Office
    2013
    Likes ricevuti
    0
    Likes dati
    1

    Caratteri in grassetto, corsivo e Stampa unione

    Ciao a tutti, sono nuovo di questo forum e avendo un problema ho notato subito che questo era il migliore per la sua capacità di risolvere i problemi anche a chi ha solo un'infarinatura del mitico Excel. Tutta gente molto preparata e a disposizione. Grazie solo perchè ci provate.
    Adesso passiamo al mio problema.
    Probabilmente, da quello che ho visto in giro sarà necessario usare, per risolverlo, il VBA ( e qui per me cala la notte:292:). Io ho un database di articoli alimentari, dove in ogni riga ci sono gli ingredienti che li compongono. Il mio problema è che devo creare delle etichette (quindi con Stampa unione di Word) e che alcune parole all'interno della stringa di una o più celle devono essere in grassetto e/o in corsivo. Già non riesco a mettere in grassetto una parola all'interno di una cella in excel, e quindi le devo fare singolarmente, ma il problema è che quando le vado a legare a word la formattazione la perde. Ho provato con il DDE ma non ho ottenuto alcun risultato. Ho visto in giro che si possono usare i codici di campo ma ho trovato solo esempi per date e numeri. Mi sto perdendo e quindi chiedo aiuto per risolvere, se possibile, il problema. Grazie

  2. #2

    L'avatar di Rubik72
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Cosenza
    Età
    45
    Messaggi
    2810
    Versione Office
    Excel 2013
    Likes ricevuti
    1022
    Likes dati
    979

    Re: Caratteri in grassetto, corsivo e Stampa unione

    Per la stampa unione di etichette, basta seguire procedura guidata in Lettere/Inizia stampa unione/Etichette.
    Cliccando su nuova etichetta, si possono inserire le misure e distanze delle etichette.
    La formattazione (grassetto, corsivo ecc) va fatta direttamente in word una volta create le etichette.

  3. #3
    L'avatar di maXimo
    Clicca e Apri
    Data Registrazione
    May 2016
    Località
    viareggio
    Età
    58
    Messaggi
    5
    Versione Office
    2013
    Likes ricevuti
    0
    Likes dati
    1

    Re: Caratteri in grassetto, corsivo e Stampa unione

    Ciao Rubik72, e grazie per la tempestività. Il mio problema è che essendo ingredienti di prodotti alimentari, devo mettere in grassetto gli allergeni, all'interno della lista ingredienti. Quindi avendo 100 articoli prodotti direttamente da me, mi risulta abbastanza oneroso dover ricorrere tutte le volte alla lista degli allergeni e tramite il Sostituisci modificare le singole voci. Esiste un modo un pò più automatico? Ho provato anche a far leggere il database ad un programma per etichette(Labeljoy)e ottengo lo stesso risulato, cioè non trasferisce il grassetto.

  4. #4

    L'avatar di Rubik72
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Cosenza
    Età
    45
    Messaggi
    2810
    Versione Office
    Excel 2013
    Likes ricevuti
    1022
    Likes dati
    979

    Re: Caratteri in grassetto, corsivo e Stampa unione

    Prova ad allegare un file di esempio con il risultato voluto.

  5. I seguenti utenti hanno dato un "Like"


  6. #5
    L'avatar di maXimo
    Clicca e Apri
    Data Registrazione
    May 2016
    Località
    viareggio
    Età
    58
    Messaggi
    5
    Versione Office
    2013
    Likes ricevuti
    0
    Likes dati
    1

    Re: Caratteri in grassetto, corsivo e Stampa unione

    Scusa per il ritardo nella risposta ma non ero al pc. Ok. Vediamo se posso farti capire. Ti mando l'archivio con alcune parole in grassetto (che devo mettere manualmente in grassetto perchè non riesco a farlo automaticamente), e che naturalmente non sono le sole ma gli ingredienti che sono anche allergeni sono molti di più.Lo screenshot è del software Labeljoy che carica il file di excel ma come vedi non mette gli ingredienti in grassetto. Per me questa sarebbe la soluzione migliore, cioè con Labeljoy, ma in alternativa posso stampare le etichette anche con Word con Stampa unione, se mi trasferisce la formattazione. Grazie di tutto
    File Allegati File Allegati

  7. #6

    L'avatar di Rubik72
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Cosenza
    Età
    45
    Messaggi
    2810
    Versione Office
    Excel 2013
    Likes ricevuti
    1022
    Likes dati
    979

    Re: Caratteri in grassetto, corsivo e Stampa unione

    Non sono un esperto di Word, ma ho creato un ciclo, da inserire in un nuovo Modulo, che evidenzia tutte le parole GRANO nel file. Si può modificare la routine per ogni parola a piacere.

    Codice: 
    Option Compare Text
    
    
    Sub BoldWord()
    
    
        For Each w In ActiveDocument.Words
            If Trim(w) = "GRANO" Then
                w.Font.Bold = True
            End If
        Next
    
    End Sub

  8. #7
    L'avatar di maXimo
    Clicca e Apri
    Data Registrazione
    May 2016
    Località
    viareggio
    Età
    58
    Messaggi
    5
    Versione Office
    2013
    Likes ricevuti
    0
    Likes dati
    1

    Re: Caratteri in grassetto, corsivo e Stampa unione

    Ciao e grazie per la risposta. Il mio problema non è Word. Con trova e sostituisci riesco a farlo, ma il mio problema è Excel. Cioè riuscire a mettere una parola in grassetto, magari una singola come con si fa per Word con sostituisci ( se metto in grassetto una parola Excel mi mette tutta la cella in grassetto), e trasportare su word il testo ottenuto. Grazie comunque per l'impegno

  9. #8
    L'avatar di Raffaele_53
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Binasco
    Età
    64
    Messaggi
    506
    Versione Office
    2007
    Likes ricevuti
    85
    Likes dati
    7

    Re: Caratteri in grassetto, corsivo e Stampa unione

    Ciao a tutti
    Ho fatto una verifica da WORD, se la cella in Excel ha la parola in "grassetto" la riproduce correttamente.

    >>>se metto in grassetto una parola Excel mi mette tutta la cella in grassetto
    Non è vero, se vai nella barra della formula, selezioni solo GRANO e premi grassetto, mette solo quella parola.

    Dal Tuo allegato, se metti in colonna P cella P1 GRANO, P2 UOVA,P3 LATTE
    Inserendo il codice in un modulo, mette in grassetto tutte le parole della colonna C
    Codice: 
    Option Explicit
    Option Compare Text
    Function quanteVolte(str1, str2)
      Dim strArray
      strArray = Split(str1, str2)
      quanteVolte = UBound(strArray)
    End Function
    Sub Evidenzia_Testo()
    Dim Trova As String, Frase As String, Msg1 As String, Msg2 As String
    Dim Ur1, Ur2, Tot, X, Y, W, n1, n2, n3
    Ur1 = Range("C" & Rows.Count).End(xlUp).Row
    Ur2 = Range("P" & Rows.Count).End(xlUp).Row
    For X = 2 To Ur1
        Frase = Cells(X, 3)
        Msg1 = Cells(X, 3)
        For Y = 1 To Ur2
            n1 = 0
            n2 = 0
            n3 = 0
            Trova = Cells(Y, 16)
            Tot = quanteVolte(Msg1, Trova)
            n2 = Len(Trova)
            If Tot > 0 Then
                n1 = InStr(Msg1, Trova)
                For W = 1 To Tot
                    Cells(X, 3).Characters(Start:=n1 + n3, Length:=n2).Font.FontStyle = "Grassetto"
                    Msg2 = Mid(Frase, n1 + n2, 1000)
                    n3 = n1 + n2
                    n1 = InStr(Msg2, Trova) - 1
                Next W
            End If
        Next Y
    Next X
    MsgBox "fatto"
    End Sub

  10. #9
    L'avatar di maXimo
    Clicca e Apri
    Data Registrazione
    May 2016
    Località
    viareggio
    Età
    58
    Messaggi
    5
    Versione Office
    2013
    Likes ricevuti
    0
    Likes dati
    1

    Re: Caratteri in grassetto, corsivo e Stampa unione

    Ciao, ho inserito il codice e funziona in Excel. GRAZIE!!! Per la colonna D come devo fare? ho ingredienti anche li. Per quanto riguarda la frase >>>se metto in grassetto una parola Excel mi mette tutta la cella in grassetto, so che se lo faccio singolarmente posso formattare il testo come voglio ma la frase non è sganciata dalla precedente in cui si diceva che lo volevo fare con sostituisci per riuscire a farle tutte insieme. Quello che non mi riesce, poi, è che in word con stampa unione non riesco a ottenere le parole in grassetto. Tu dici che hai fatto una verifica e quindi illuminami. Grazie tante comunque per il vostro aiuto

  11. #10
    L'avatar di Raffaele_53
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Binasco
    Età
    64
    Messaggi
    506
    Versione Office
    2007
    Likes ricevuti
    85
    Likes dati
    7

    Re: Caratteri in grassetto, corsivo e Stampa unione

    Ho fatto solo una piccola prova di stampa Unione e vedevo il grassetto. Questa funziona sia per G e D
    Codice: 
    Option Explicit
    Option Compare Text
    Function quanteVolte(str1, str2)
      Dim strArray
      strArray = Split(str1, str2)
      quanteVolte = UBound(strArray)
    End Function
    Sub Evidenzia_Testo()
    Dim Trova As String, Frase As String, Msg1 As String, Msg2 As String
    Dim Ur1, Ur2, Tot, X, Y, W, n1, n2, n3
    Ur1 = Range("C" & Rows.Count).End(xlUp).Row
    Ur2 = Range("P" & Rows.Count).End(xlUp).Row
    For X = 2 To Ur1
        Frase = Cells(X, 3)
        Msg1 = Cells(X, 3)
        For Y = 1 To Ur2
            n1 = 0
            n2 = 0
            n3 = 0
            Trova = Cells(Y, 16)
            Tot = quanteVolte(Msg1, Trova)
            n2 = Len(Trova)
            If Tot > 0 Then
                n1 = InStr(Msg1, Trova)
                For W = 1 To Tot
                    Cells(X, 3).Characters(Start:=n1 + n3, Length:=n2).Font.FontStyle = "Grassetto"
                    Msg2 = Mid(Frase, n1 + n2, 1000)
                    n3 = n1 + n2
                    n1 = InStr(Msg2, Trova) - 1
                Next W
            End If
        Next Y
    Next X
    For X = 2 To Ur1
        Frase = Cells(X, 4)
        Msg1 = Cells(X, 4)
        For Y = 1 To Ur2
            n1 = 0
            n2 = 0
            n3 = 0
            Trova = Cells(Y, 16)
            Tot = quanteVolte(Msg1, Trova)
            n2 = Len(Trova)
            If Tot > 0 Then
                n1 = InStr(Msg1, Trova)
                For W = 1 To Tot
                    Cells(X, 4).Characters(Start:=n1 + n3, Length:=n2).Font.FontStyle = "Grassetto"
                    Msg2 = Mid(Frase, n1 + n2, 1000)
                    n3 = n1 + n2
                    n1 = InStr(Msg2, Trova) - 1
                Next W
            End If
        Next Y
    Next X
    MsgBox "fatto"
    End Sub

Discussioni Simili

  1. Stampa unione
    Di sergiogranero nel forum Domande su Excel VBA e MACRO
    Risposte: 19
    Ultimo Messaggio: 24/10/16, 17:22
  2. [Risolto] Stampa unione
    Di sergiogranero nel forum Domande su Microsoft Access
    Risposte: 23
    Ultimo Messaggio: 23/10/16, 13:40
  3. [Risolto] Stampa unione
    Di sergiogranero nel forum Domande sul Microsoft Word
    Risposte: 24
    Ultimo Messaggio: 22/10/16, 20:22
  4. Stampa Unione e filtri
    Di Riccardo64 nel forum Domande sul Microsoft Word
    Risposte: 1
    Ultimo Messaggio: 27/08/16, 17:24
  5. vba stampa unione in pdf
    Di CRISTIAN nel forum Domande su Excel in generale
    Risposte: 4
    Ultimo Messaggio: 08/06/16, 17:29

Permessi di Scrittura

  • Tu non puoi inviare nuove discussioni
  • Tu non puoi inviare risposte
  • Tu non puoi inviare allegati
  • Tu non puoi modificare i tuoi messaggi
  •