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-11T21:30:14+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

    Per quanto riguard ail documento tipo Indice, non so come si fa
    Per il resto dovrebbe andare (più di così non aprei fare)

    Sub CreaWord()
    Dim ws1 As Worksheet
    Dim doc As Object
    Dim nRiga As Long, xRiga As Long
    Dim stampa As String
    
    Set ws1 = Sheets("Foglio1") ' nome tuo foglio
    
    xRiga = IIf(ws1.Range("B2") = "", 1, ws1.Range("B" & Rows.Count).End(xlUp).Row)
    If xRiga > 1 Then
        
        Set doc = CreateObject("Word.Application")
        With doc
            .Visible = True
            Call .Documents.Add("Normal", False, 0)
            For nRiga = 2 To xRiga
                stampa = stampa & Cells(nRiga, 2) & vbLf
            Next
            With .Selection
                .ParagraphFormat.LineSpacingRule = wdLineSpace1pt5 'interlinea
                .PageSetup.TopMargin = CentimetersToPoints(2.5) 'margine superiore
                .PageSetup.BottomMargin = CentimetersToPoints(2) 'margine infriore
                .PageSetup.LeftMargin = CentimetersToPoints(2) 'margine sinistro
                .PageSetup.RightMargin = CentimetersToPoints(2) 'margine destro
                
                .Font.Name = "Calibri" 'nome carattere
                .Font.Size = 12 'misura carattere
                .Font.Spacing = 0 'spaziatura
                .TypeText stampa
                .TypeParagraph
            End With
        End With
        Set doc = Nothing
    End If
    Set ws1 = 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