Il mio problema e questo :
Sono riuscito con questo codice , Ad aprire un file di word inserirle al suo interno dei dati scritti in un file di Excel
E poi Salvare il tutto nella mia sottocartella chiamata Allegati.
- Codice: Seleziona tutto
Sub CopyToWord()
On Error GoTo 1
Dim ctr As Integer
Dim doc As Object 'Word.Document
Dim tbl As Object 'Word.Table
Dim sht As Excel.Worksheet
Dim oDoc As Word.Document
Dim oApp As Word.Application
Dim NomeFile As String
NomeFile = Foglio1.Range("K1").Value & ""
Set doc = CreateObject("Word.Document") 'New Word.Document
doc.Application.Visible = False
ctr = 0
For Each sht In ActiveWorkbook.Worksheets
sht.Activate
On Error GoTo NoReport
sht.Range("Report2").Copy
ctr = ctr + 1
With doc.ActiveWindow.Selection
If ctr > 1 Then
.InsertBreak 7
End If
.PasteExcelTable True, False, False
End With
NoReport:
Next sht
On Error GoTo 0
For Each tbl In doc.Tables
tbl.AutoFitBehavior 2
Next tbl
MsgBox ctr & " Il Foglio Di Word e Stato Creato"
'ActiveDocument.SaveAs Filename:=ThisWorkbook.Path & "\Articolo_Salvati\1.Word.docx"
'ActiveDocument
With doc
.SaveAs Filename:=ThisWorkbook.Path & "\allegati\" & NomeFile & ".docx"
.Close
'ActiveDocument.Close savechanges:=wdDoNotSaveChanges
End With
1:
End Sub
Ora non con poca fatica sembra che il tutto funzioni a meravigli. tranne che per un fatto molto strano; Almeno per me !
Il Fatto strano che vorrei risolvere e questo:
Quando copio il File di word nella sottocartella e poi manualmente vado a vederla
Non posso non notare ché : Si i dati vengono inseriti correttamente in tutte le sue parti; Compresa L'immagine.
Il Problema e che riportano lo sfondo di colore ( Grigio Scuro ) che non mi piace per nulla
Non ci sarebbe il modo per ovviare a tutto ciò in modo che il Testo risulti come quello riportato nel Foglio di Excel.
Premetto che : ho anche provato a colorare il fondo del foglio di Excel
Ma la trascrizione sul foglio di word non cambia
Grazie Saluti da A.Maurizio
( P.S) Inserisco Link di Prova : https://app.box.com/s/et0uyp5g4fkanjrkab7oslbbdaxby4xm
