You are here:---Rispondi a: [RISOLTO] Trasferire dati da foglio excel a documento word
Rispondi a: [RISOLTO] Trasferire dati da foglio excel a documento word2018-05-11T16:05:20+02:00

Home Forum Domande su Excel VBA e MACRO [RISOLTO] Trasferire dati da foglio excel a documento word Rispondi a: [RISOLTO] Trasferire dati da foglio excel a documento word

sidsid
Moderatore
    Post totali: 718

    Adattato al range B2:B6

    Sub CreaWord()
    Dim doc As Object
    Dim nRiga As Integer
    Dim stampa As String
    
    Set doc = CreateObject("Word.Application")
    With doc
        .Visible = True
        Call .Documents.Add("Normal", False, 0)
        For nRiga = 2 To 6
            stampa = stampa & Cells(nRiga, 2) & vbLf
        Next
        With .Selection
            .TypeText stampa
            .TypeParagraph
        End With
    End With
    Set doc = Nothing
    End Sub

    Utilizzando il sito, accetti l'utilizzo dei cookie da parte nostra. maggiori informazioni

    Questo sito utilizza i cookie per fornire la migliore esperienza di navigazione possibile. Continuando a utilizzare questo sito senza modificare le impostazioni dei cookie o cliccando su "Accetta" permetti il loro utilizzo.

    Chiudi