Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

Perché il Foglio di Word non si Presenta Correttamente

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

Perché il Foglio di Word non si Presenta Correttamente

Postdi Maury170419 » 28/04/21 18:47

Ciao a Tutti da Maurizio
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
Maury170419
Utente Senior
 
Post: 151
Iscritto il: 31/10/16 09:05

Sponsor
 

Re: Perché il Foglio di Word non si Presenta Correttamente

Postdi Anthony47 » 28/04/21 21:45

Ma non e' vero che le scritte sono su sfondo grigio; lo vedi bene se fai Anteprima di Stampa.
Credo che quella sia l'evidenziazione che la tabella e' "collegata" ad una sorgente esterna (la tabella Excel di partenza).
Ora non so se effettivamente hai bisogno di "collegare" la tabella (in modo che quando il contenuto su Excel cambia anche il doc si aggiorna); se vuoi invece fare una specie di "copia-valori" allora devi modificare l'istruzione che fa il paste:
non .PasteExcelTable True, False, False ma
Codice: Seleziona tutto
.PasteExcelTable False, False, False


Ciao
Avatar utente
Anthony47
Moderatore
 
Post: 18127
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: Perché il Foglio di Word non si Presenta Correttamente

Postdi Maury170419 » 29/04/21 15:00

Ciao Anthony47 io non voglio mettere in dubbio la tua pazienza e la tua Bravura nel dire ho nel fare certe cose nell'ambito della Programmazione.
Come e anche vero che io grazie a voi non mi sento più tanto un novellino- (Anche se stupido in materia)
Però : Prova a dare un Occhiata al File di Word Classificato come (3.Word) che e nella mia Sottocartella (Allegati)
E dimmi sè ciò che vedi tu e diverso da quello che vedo io nella mia Immagine Appena Inserita in Questo Posto.
Immagine

Ti posso garantire che questa cosa e venuta fuori solo quando il ho inserito le ultime tre voci di Codice che sono:
Codice: Seleziona tutto
doc.Application.Visible = True

'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


E questo e il Risultato Finale se Tolgo Tali Istruzioni.
peccato Che cosi Facendo non salvo il file se non in formato Manuale; Cioè sono io a dirle dove andare e quale nome dare al File
Immagine

Tutto Qui.:
Come Puoi Vedere non solo c'é qualche cosa che non va
Ma non è la stessa cosa della prima immagine.
Parliamo sempre del File Word 3
Ciao e Grazie
Maury170419
Utente Senior
 
Post: 151
Iscritto il: 31/10/16 09:05

Re: Perché il Foglio di Word non si Presenta Correttamente

Postdi Maury170419 » 29/04/21 15:37

Bravissimo Come Sempre Anthony47
Ho Provato a Modificare questa Parte di Codice:
Codice: Seleziona tutto
.PasteExcelTable False, False, False

Mettendo tutto False
Ed ora Risulta Tutto Pulito Come Si Presenta Sul Foglio Di Excell
Pazzesco.
Grazie e scusami se ti ho Disturbato Per Cosi Poco
Ciao E Grazie
Maury170419
Utente Senior
 
Post: 151
Iscritto il: 31/10/16 09:05

Re: Perché il Foglio di Word non si Presenta Correttamente

Postdi Maury170419 » 29/04/21 16:27

Ciao Anthony che tu ci creda o no
Sai che a me piace sperimentare cose nuove
Pertanto ho apportato delle modifiche al mio Progetto e sebra funzionare meglio ed è anche più veloce
E le modifiche Apportata sono queste:

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

For Each sht In ActiveWorkbook.Worksheets

sht.Activate

sht.Range("A1:I25").Copy
doc.ActiveWindow.Selection.Paste
ActiveDocument.SaveAs Filename:=ThisWorkbook.Path & "\Allegati\" & Range("K1").Value & ".docx"
doc.Close
Next sht

1:
End Sub


Bello no ?
Grazie ancora di Tutto
Sto' Facendo anche validi Progressi nel Estrapolare dati dal Web Sempre grazie a voi di Pc-Facile
Scusami per questa introduzione ma lo dovevo Saluti da Maurizio
Maury170419
Utente Senior
 
Post: 151
Iscritto il: 31/10/16 09:05

Re: Perché il Foglio di Word non si Presenta Correttamente

Postdi Anthony47 » 29/04/21 20:21

Provare e riprovare: il segreto per imparare
Avatar utente
Anthony47
Moderatore
 
Post: 18127
Iscritto il: 21/03/06 16:03
Località: Ivrea


Torna a Applicazioni Office Windows


Topic correlati a "Perché il Foglio di Word non si Presenta Correttamente":


Chi c’è in linea

Visitano il forum: Nessuno e 23 ospiti