word - inserire piè di pagina in file creato al volo

[nicola75ss]

Salve a tutti.
Sto lavorando alla creazione di un file doc tramite vba a partire dai dati di un database access
(purtroppo l'esportazione che fa access in rtf fa schifo ).

Il problema è questo: vorrei inserire in ciascuna pagina del documento generato un piè di pagina contenente il numero di pagina sul totale e il nome dell'utente cui il file fa riferimento.
Una cosa del genere per intenderci:

Pagina 1 / 3 - Curriculum vitae di
Pinco Pallino

dove nome e cognome sono due dei tanti campi che recupero tramite query.
Sapete darmi un'indicazione? Grazie.

[nicola75ss]

Con questo codice son riuscito grosso modo a fare ciò che volevo. L'unico problema è che il piè di pagina mi rimane sempre settato col Times New Roman a 12 e non riesco a cambiarne in nessun modo la dimensione. Sapete dirmi la sintassi giusta? Grazie.

Dim rngFooter As Range
  Set rngFooter = objWord.ActiveDocument.Sections(1).Footers(wdHeaderFooterPrimary).Range
  With rngFooter
    
    .Text = "Pagina "
    .Collapse wdCollapseEnd
    .Move unit:=wdCharacter, Count:=1
     
    .Fields.Add Range:=rngFooter, Type:=wdFieldPage
    .Collapse wdCollapseEnd
    .Move unit:=wdCharacter, Count:=1
    .Text = "/"
    .Collapse wdCollapseEnd
    .Move unit:=wdCharacter, Count:=1
    .Fields.Add Range:=rngFooter, Type:=wdFieldNumPages
  
    .Move unit:=wdCharacter, Count:=1
    'nome_cognome è la mia variabile in cui concateno i due dati dal recordset
    .Text = " Curriculum Vitae di" & vbCrLf & nome_cognome & vbTab
    .Collapse wdCollapseEnd
    .Move unit:=wdCharacter, Count:=1
  
    'scrivendo la riga sottostante (senza commentarla) non cambia nulla
    '.Font.Size = 5
    End With