Discussion :

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

 .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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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