Inserer le N° de page dans une table qui se trouve dans le pied de page [Résolu]

[WG614]

Bonjour à tous

Voila j'ai besoin de piloter Word depuis une application VBNET et je dois entre autre mettre le N° de la page dans un tableau qui se trouve dans le pied de page de ma section 1.

Si jécris cela le N° de la page se met bien dans le pied de page

Code :

oWord.ActiveDocument.Sections(1).Footers(WdHeaderFooterIndex.wdHeaderFooterPrimary).PageNumbers.Add()

Mais si je veux le mettre dans une cellule de mon tableau, alors la j'ai une erreur "Impossible de caster un objet COM ....."
Voici le code pour la table

Code :

 .Tables(1).Cell(2, 2).Range.Text = oWord.ActiveDocument.Sections(1).Footers(WdHeaderFooterIndex.wdHeaderFooterPrimary).PageNumbers

Merci pour votre aide

Et bon Dimanche

[Heureux-oli]

Après quelques essais, voilà ce que j'obtiens.
Pour insérer le numéro de la page, je passe par l'insertion d'un champ.

Code :

1
2
3
4
5
 
ActiveDocument.Sections(1).Footers(wdHeaderFooterPrimary).Range.Select
Selection.Tables(1).Cell(2, 2).Select
Selection.TypeText " "
Selection.Fields.Add Range:=Selection.Range, Text:="PAGE"

[WG614]

Un grand merci Heureux-oli

J'ai un peu adapté le code pour vbnet mais cela marche.

Code :

1
2
3
4
oWord.ActiveDocument.Sections(1).Footers(WdHeaderFooterIndex.wdHeaderFooterPrimary).Range.Select()
Tables(1).Cell(2, 2).Select()
oWord.Selection.TypeText(" ")
oWord.Selection.Fields.Add(oWord.Selection.Range, , "PAGE")

Je ne connaissais pas ces "fields"


Merci encore