Avrei necessità di aprire un file word ( dove all'interno vi è una stampa unione di etichette di spedizione) ed eseguire la stampa di tutti i record presenti...
Per ora io ho registrato una macro in Word che mi stampa correttamente il tutto ma se possibile (credo che lo sia) vorrei lanciare suddetta macro di Word direttamente da Excel.
Gironzolando in rete ho trovato questo codice molto semplice ma che non riesco a far funzionare...in quanto una volta lanciata la macro excel mi restituisce come errore il messaggio -Attendere un'altra applicazione sta completando un'azione OLE.. questo messaggio mi compare 4 o 5 volte per poi terminare con -comando non eseguito
- Codice: Seleziona tutto
Sub WDTest()
Dim WD as Object
Set WD = CreateObject("Word.Application")
WD.Documents.Open "C:\My Documents\WordDoc.Docm"
' Note that the project name and module name are required to
' path the macro correctly.
WD.Run "Normal.NewMacros.Stampa"
End Sub
In alternativa avevo pensato di far in modo che word lanci la propria macro in automatico all'apertura del file che però dovrebbe essere lanciata sempre da excel....ma anche qui sono bloccato in quanto riesco ad aprire il file ma non a fare in modo che si "auto lanci"...
Per fare questo ho usato in word il seguente codice
- Codice: Seleziona tutto
Sub auto_open()
'
' auto_open Macro
'
'
With ActiveDocument.MailMerge
.Destination = wdSendToPrinter
.SuppressBlankLines = True
With .DataSource
.FirstRecord = wdDefaultFirstRecord
.LastRecord = wdDefaultLastRecord
End With
End With
End Sub
Qualcuno gentilmente riesce a darmi qualche dritta