Copiare foglio da Word

  • Copiare foglio in word di Apoben64
    Ciao a tutti, premetto di aver già visionato l'esempio 1 dell'appendice 1 dell'interazione tra excel e word. di solito il contenuto di un foglio lo copio e lo incollo in un documento word, questo è il mio obiettivo .
    escludendo la stampa unione , e l'utilizzo del registratore di macro che non mi ha dato alcun risultato soddisfacente, ricerco la possibilità di creare un macro che soddisfi l'obiettivo .
    quella che indico mi permette di aprire il documento di word da excel , ma come interagire con questo codice per copiare e incollare il contenuto del foglio1 ? qui chiedo la vs, preziosa collaborazione ! un grazie per ogni tipo di aiuto .
     
    Sub Word()
    Set wd = CreateObject("Word.Application")
        wd.Visible = True
        wd.Documents.Open Filename:="c:\test.doc"
    
    End Sub
    
    

    Per conoscenza di Apoben64
    Ciao a tutti , nella mio avanzare nella ricerca di collegare excel con word , ad esempio nell'esportare un foglio , accludo il seguente codice.
    ovviamente ,al momento necessita l'esistenza in c:\ il file test.doc , ma potete modificarlo a vs. piacimento .
    Sub Word() 
    Sheets(1).select 
    Cells.select 
    Range("A1").Activate 
    Selection.Copy 
    Set wd = CreateObject("Word.Application") 
    wd.Visible = True 
    wd.Documents.Open Filename:="c:\test.doc" 
    wd.Selection.Paste 
    End Sub