incolla in word

Hai un problema con Excel?

Nuova discussione

incolla in word
di Kaos (utente non iscritto) data: 24/12/2014 19:43:45
ho un problema per incollara dati in Word, i dati sono copia in excel e successivamente incollati in Word, tutto funzionava a meraviglia, finchè non ho installato una stampante multi funzione Samsung dopo di allara qundo incollo i dati in wordi mi viene incollata la seguente immagine di un Pc, nulla a che vedere con i dati da incollare non riesco a capire il perche, allego il codice con la speranza che qualcuno mi possa aiutare.

Sub Copia()
'

Sheets("Cali").Unprotect  'Rimuove protezione del foglio specificato
Columns("U:AD").Select
    Selection.EntireColumn.Hidden = False
    
Sheets("Cali").Range("U14:AC20").Select
'Selection.CopyPicture
Selection.Copy
Set WordApp = CreateObject("Word.Application")
sFilename = "F:4 Google DriveGESTIONE20141 Litri.doc"
WordApp.Visible = True
With WordApp.Documents.Open(sFilename)

  '.Paragraphs.last.Range.Paste
  .Paragraphs.first.Range.Paste

        
  
  Worksheets("Cali").Activate
  Columns("U:AC").Select
    Selection.EntireColumn.Hidden = True

Range("B2").Select

ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
        False, AllowFormattingCells:=True, AllowFormattingColumns:=True, _
        AllowFormattingRows:=True, AllowInsertingColumns:=True, AllowInsertingRows _
        :=True, AllowInsertingHyperlinks:=True, AllowDeletingColumns:=True, _
        AllowDeletingRows:=True, AllowSorting:=True, AllowFiltering:=True, _
        AllowUsingPivotTables:=True
    ActiveSheet.EnableSelection = xlUnlockedCells 'se attiva non seleziona le celle bloccate
  
  
End With
Set WordApp = Nothing

End Sub

di lepat (utente non iscritto) data: 25/12/2014 07:28:03
se ben ricordo hai commentato la riga sbagliata, deve essere così
Selection.CopyPicture
e NON
Selection.Copy
di Kaos (utente non iscritto) data: 25/12/2014 11:56:05
Auguri di un buon Natale a tutto lo Staff
Ciao lepat, io ho lasciato attivo sempre Selection.Copy, e ha funzionato finchè non ho installato la stampante multifunzione, comunque anche se attivo Selection.CopyPicture, quello che continua ad incollare in word e l'immagine di un pc. allego il file word con l'immaggine incollata.
Il formato in cui incolla dovrebbe essere come Formato HTML.
di Kaos (utente non iscritto) data: 25/12/2014 12:06:52
seguendo il codice ho notato che l'immagine viene incollata sul foglio Word appena viene eseguita la seguente riga di codice
With WordApp.Documents.Open(sFilename)

di Kaos (utente non iscritto) data: 28/12/2014 12:18:33
Ho risolto il problema invertendo un pezzo di codice, e funziona tutto come prima. allego il codice

Sub Copia()
'
Set WordApp = CreateObject("Word.Application")
sFilename = "F:4 Google DriveGESTIONE20141 Litri.doc"
WordApp.Visible = True
With WordApp.Documents.Open(sFilename)


Sheets("Cali").Unprotect  'Rimuove protezione del foglio specificato
Columns("U:AD").Select
    Selection.EntireColumn.Hidden = False
    
Sheets("Cali").Range("U14:AC20").Select
'Selection.CopyPicture
Selection.Copy



  '.Paragraphs.last.Range.Paste
  .Paragraphs.first.Range.Paste

        
  
  Worksheets("Cali").Activate
  Columns("U:AC").Select
    Selection.EntireColumn.Hidden = True

Range("B2").Select

ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
        False, AllowFormattingCells:=True, AllowFormattingColumns:=True, _
        AllowFormattingRows:=True, AllowInsertingColumns:=True, AllowInsertingRows _
        :=True, AllowInsertingHyperlinks:=True, AllowDeletingColumns:=True, _
        AllowDeletingRows:=True, AllowSorting:=True, AllowFiltering:=True, _
        AllowUsingPivotTables:=True
    ActiveSheet.EnableSelection = xlUnlockedCells 'se attiva non seleziona le celle bloccate
  
  
End With
Set WordApp = Nothing

End Sub

Vuoi Approfondire?