[WD-2003] Macro faisant changer la selection de page

[yannick113]

Bonjour,

je souahite que la selection active, change de page après un tableau. A l'aide de vos tutorial j'ai recupéré cette macro qui marche dans le cas ou le tableau (actif dans la selection) ne tient que sur une page

Code :

1
2
 
Selection.GoTo What:=wdGoTopage, Which:=wdGoToRelative, Count:=1

j'ai essayé de mettre une condition en indiquant que si le tableau est sur deux pages, la selection sautera deux pages, mais je n'arrive pas à faire fonctionner.

Merci pour votre aide

[Heureux-oli]

Salut,

Pourquoi ne pas aller à la fin du tableau et se déplacer d'un caractère ?

[yannick113]

Bonjour,
si j'utilise ce code

Code :

1
2
 
Selection.EndKey Unit:=wdtables, Extend:=wdExtend

je vais me trouver à la fin du tableau, si je souhaite que ma selection passe à la page suivante et que je met le code precedent ma selection ne focntionne pas.

Comment identifier le tableau sur laquelle va s'appliquer la amcro?

[Heureux-oli]

Salut,

On retrouve le tableau en comptant le nombre de tableaux si on étend la sélection jusqu'au début du document.

On y retourne avec son index.
On fait un colapse de la selection vers la fin et on bouge d'un caractère.
On récupère la page avec Information de la sélection.

[yannick113]

Bonjour,

Merci pour le conseil, je n'avais pas pensé à faire ça. Je vais essayer cette macro qui me met au début du doc et me ramene à la fin du premier tableau et la selection et repousé à la page suivante

Code :

1
2
3
4
5
    Selection.HomeKey Unit:=wdStory
 
 Selection.Move Unit:=wdTable, Count:=1
 Selection.EndKey Unit:=wdtable, Extend:=wdExtend   
Selection.GoTo what:=wdGoToPage, which:=wdGoToNext

le but etant de me mettre à la fin du tableau est que la selection pointe sur la page suivante indépedement de la taille du tableau (3 pages)

Il y a une fonction qui permet de faire ca de maniere simple