È soltanto un Pokémon con le armi o è un qualcosa di più? Vieni a parlarne su Award & Oscar!
 
Pagina precedente | 1 | Pagina successiva
Vota | Stampa | Notifica email    
Autore

modifica codice vba per copiare in word

Ultimo Aggiornamento: 13/07/2017 12:51
Post: 37
Registrato il: 27/09/2011
Città: TRIESTE
Età: 50
Utente Junior
2003
OFFLINE
07/07/2017 12:06

[RISOLTO] modifica codice vba per copiare in word
Buongiorno a tutti,

sapreste darmi una mano per far sì che il foglio Excel che viene copiato dal seguente codice venga centrato orizzontalmente e verticalmente sul foglio Word che si crea?

Grazie mille anticipatamente

Sub ExportWord()
Dim number As Integer, i As Integer, ws As Worksheet, number_exported As Integer
Dim wdApp As Object, wdDoc As Object, MyWd As Object
Set wdApp = CreateObject("Word.Application")
Set wdDoc = wdApp.Documents.Add
Set ws = ActiveSheet
ws.Range("B4:W63").Copy
wdDoc.Paragraphs(wdDoc.Paragraphs.Count).Range.Paste
wdApp.Visible = True
Set wdApp = Nothing
End Sub
[Modificato da prinztegame 13/07/2017 12:53]
Excel 2003 SP3
Post: 3.912
Registrato il: 13/03/2012
Città: LIVORNO
Età: 78
Utente Master
2010
OFFLINE
07/07/2017 12:26

prova ad usare il registratore di macro su word per centrare ciò che hai copiato con la macro da excel, basterà adattare ale istruzioni registrate.

----------
Win 10 - Excel 2010
allega un file di esempio, guadagnerai tempo tu e lo farai risparmiare a chi ti aiuta
Post: 2
Registrato il: 30/05/2017
Città: AOSTA
Età: 62
Utente Junior
2013
OFFLINE
07/07/2017 20:20

Ciao,
in Word esiste il metodo PasteExcelTable - prova a sostituire la riga di codice:

wdDoc.Paragraphs(wdDoc.Paragraphs.Count).Range.Paste 

con

wdDoc.Paragraphs(wdDoc.Paragraphs.Count).Range.PasteExcelTable _
LinkedToExcel:=False, _
WordFormatting:=True, _
RTF:=False


WordFormatting impostato a True formatta la tabella secondo le impostazioni del documento Word.
Post: 37
Registrato il: 27/09/2011
Città: TRIESTE
Età: 50
Utente Junior
2003
OFFLINE
09/07/2017 16:29

Buon pomeriggio e scusate per la tardiva risposta.

Grazie per le informazioni e proverò appena possibile. Vi farò sapere.

Ancora grazie
Excel 2003 SP3
Post: 38
Registrato il: 27/09/2011
Città: TRIESTE
Età: 50
Utente Junior
2003
OFFLINE
13/07/2017 12:51

[RISOLTO] modifica codice vba per copiare in word
PasteExcelTable ha funzionato perfettamente come suggerito da Chilhowee, grazie mille!!!
[Modificato da prinztegame 13/07/2017 12:55]
Excel 2003 SP3
Vota:
Amministra Discussione: | Chiudi | Sposta | Cancella | Modifica | Notifica email Pagina precedente | 1 | Pagina successiva
Nuova Discussione
 | 
Rispondi
Cerca nel forum
Tag discussione
Discussioni Simili   [vedi tutte]
Feed | Forum | Bacheca | Album | Utenti | Cerca | Login | Registrati | Amministra
Tutti gli orari sono GMT+01:00. Adesso sono le 16:51. Versione: Stampabile | Mobile | Regolamento | Privacy
FreeForumZone [v.6.1] - Copyright © 2000-2024 FFZ srl - www.freeforumzone.com