Ciao a tutti,
recentemente ho creato un foglio di lavoro collegato ad un foglio word tramite stampa unione, ho realizzato la seguente macro
Sub StampaSchede()

Dim objWord As Object
Dim Dati As Excel.Workbook
Dim Riga As Variant
Const MioWdCatalog As Byte = 3

'Settiamo il file Word.
Set objWord = GetObject(Application.ActiveWorkbook.Path & "\Scheda.dotm")
Set Dati = GetObject(Application.ActiveWorkbook.Path & "\Database.xlsm")
' Rendiamo Word visibile.
objWord.Application.Visible = True

' stampa unione
objWord.MailMerge.MainDocumentType = MioWdCatalog
    objWord.MailMerge.OpenDataSource Name:= _
    Application.ActiveWorkbook.Path & "\Database.xlsm" _
        , ConfirmConversions:=True, ReadOnly:=True, LinkToSource:=True, _
        AddToRecentFiles:=False, PasswordDocument:="", PasswordTemplate:="", _
        WritePasswordDocument:="", WritePasswordTemplate:="", Revert:=False, _
        Format:=wdOpenFormatAuto, Connection:= _
        "Provider=Microsoft.ACE.OLEDB.12.0;User ID=Admin;Data Source=Dati;Mode=Read;Extended Properties=""HDR=YES;IMEX=1;"";Jet OLEDB:System database="""";Jet OLEDB:Registry Path="""";Jet OLEDB:Engine Type=35;Jet OLEDB:Databas" _
        , SQLStatement:="SELECT * FROM `DBWordProdotti$` where RiSiMax = 'S' ", SQLStatement1:="", _
        SubType:=wdMergeSubTypeOther
On Error Resume Next
'Importiamo i dati in word
objWord.MailMerge.Execute

objWord.Close
Set objWord = Nothing
        
End Sub
purtroppo però non mantiene la formattazione dei dati nel passaggio da excel a word. Ho cercato sia sul forum che su internet e si suggeriva di usare la stampa unione con DDE, ho provato a seguire la procedura indicata sul sito della Microsoft ma nel momento della selezione dell'origine dei dati in Word, selezionando Intero foglio di lavoro, non mi appare il foglio specifico da cui prendere i dati. Qualcuno ha qualche suggerimento? Grazie mille