[vba word] inserimento piè di pagina ed errore runtime 13

[john_revelator]

Buona sera a tutti.
Torno a rompere perchè ho uno strano problema con la visualizzazione del piè di pagina.
Utilizzo il seguente codice:


'************************************ Piè di pagina documento ***********

Dim rngFooter As Range
Set rngFooter = objword.ActiveDocument.Sections(1).Footers(wdHeaderFooterPrimary).Range
With rngFooter

.Text = "Pagina "
.Font.Size = 8
.Font.Name = "Arial Narrow"
.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
.Text = " Curriculum Vitae di" & vbCrLf & "Prova" & vbTab
.Collapse wdCollapseEnd
.Move Unit:=wdCharacter, Count:=1
End With
'******************************** Fine piè di pagina documento



Applicato ad una semplice form di prova funzionava perfettamente.
Adesso che l'ho copiato in quella che sarà la mia applicazione vera e propria continua a restituirmi un errore di runtime 13 (tipo non corrispondente) in corrispondenza di questa riga

Set rngFooter = objword.ActiveDocument.Sections(1).Footers(wdHeaderFooterPrimary).Range

Potete darmi qualche indicazione? Grazie come sempre. :)

[john_revelator]

Ragazzi, questa me la dovete proprio spiegare.
Ho appena risolto facendo un tentativo per la semplice disperazione.
Sono andato su Strumenti => Riferimenti dove ovviamente la voce Microsoft Word 10.0 Object Library era già spuntata e dall'ultima posizione in cui si trovava tra quelle selezionate l'ho fatta scalare più in alto.

Per completezza di cronaca le voci che ho spuntato nel mio progetto sono le seguenti:

Visual Basic for Application
Microsoft Access 10.0 Object Library
Microsoft Word 10.0 Object Library
Ole Automation
Microsoft DAO 3.6 Object Library
Microsoft ActiveX Data Objects 2.1 Library
Microsoft Excel 10.0 Objects Library

Ciò significa che non basta spuntare i riferimenti ma devo anche seguire una particolare gerarchia? :mbe:

Grazie a chi mi illuminerà. :)

[john_revelator]

Scusate. Avrei un'altra domanda.
Adesso il piè di pagina funziona bene però se ad esempio mi viene generato un documento di due pagine e nella seconda pagina c'è solo una riga che poi trasferisco sulla prima pagina, il documento diventa costituito da una sola pagina ma ovviamente il piè di pagina riporta la dicitura Pagina 1/2.
Come posso fare per aggiornarlo in automatico?
Grazie come sempre. :)