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-12T15:50:21+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

    Proviamo con l’associazione anticipata invece del CreateObject.
    Vai nei riferienti del vba e metti la spunta sulla libreria Microsoft Word 15.0 Object Library (almeno è questa che ho sul mio pc; magari tu hai una versione differente).
    Questa la macro modificata (che funziona sul mio pc)

    Sub CreaWord()
    Dim ws1 As Worksheet
    Dim doc As Word.Application
    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 = New 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