[VBA-W]Numéro de page, mise en page... [Résolu]

[AlainTech]

Bonjour à tous.

A mon tour de poser une question.

J'ai besoin de connaître le numéro de page de, par exemple, un Signet (Bookmark).

Je trouve bien une notion de page dans VBA Word 2003 mais pas dans les versions antérieures.

Je travaille sur un document généré de manière automatique et, pour des raisons de lisibilité, je dois déterminer si un bloc de texte déborde sur une autre page.
Je pensais donc comparer le numéro de page à la fin du premier bloc et celui du bloc suivant.
J'ai d'autres contraintes de mise en page qui me font chercher dans cette direction.

Il est clair que, si je ne trouve pas, je jouerai avec d'autres moyens pour arriver à mes fins.

La question est donc: est il possible de connaître le numéro de la page sur laquelle se trouve un objet quelconque (un bookmark) dans les versions antérieures à 2003?

Merci aux masos qui font de la programmation sous Word...

[ouskel'n'or]

Salut Alain. Une petite recherche sur le forum, peut-être Et c'est pour les chiens ? Enfin, j'ai ça sur VBA97, si c'est pour 95, j'ai pas

Code :

1
2
3
4
Sub NoPage()
    NumPageActive = Selection.Information(wdActiveEndPageNumber)
    MsgBox NumPageActive
End Sub

A+

Maso toi-même

[AlainTech]

Elle est usée à force de l'utiliser, ma touche F1!

Et sache, mauvaise langue , que j'ai retourné l'aide dans tous les sens...

Enfin, comme je ne suis pas chien, puisque je demandais l'info pour un bookmark, je poste un peu de code (sans Selection):

Code :

MsgBox ThisDocument.Bookmarks("CeluiQuiM_Interesse").Range.Information(wdActiveEndPageNumber)

Je vais pouvoir générer un document tout beau.
Mes collègues te remercient.

[ouskel'n'or]

La prochaine fois je t'enverrai là
Faut bien contribuer...

[bbil]

Envoyé par ouskel'n'or

La prochaine fois je t'enverrai là
Faut bien contribuer...

c'est fait ...

[VBA-W] Trouver le numero de Page d'une Selection (range)