OLE WORD : Insérer numéros de pages

Version imprimable

03/09/2007, 13h25
moudel

OLE WORD : Insérer numéros de pages
Bonjour à tous !

Je cherche actuellement à sortir des paramètres sous formes d'un fichier Word.
Tout marche correctement (merci la FAQ :D ) mais j'aimerais insérer des numéros de pages.

Après moult recherches, je n'ai réussi qu'a récupérer le numéro de la page active ce qui ne permet pas de mettre ce numéro dans les pieds de page vu que les pieds de pages sont communs à toutes les pages.

Si quelqu'un a une idée !!

pour info je laisse mon code de récupération du numéro de page
Code:

1 2 3 /* Retourne un entier correspondant au numéro de la page active */ vMSWord.OlePropertyGet("Selection").OlePropertyGet("Information",1) ;
Par avance je vous remercie de votre aide !

Salut moudel:
pour ecrire du texte dans l'entete il faut utiliser cette fonction:

Code:

1
2
3
4
5
 
// selection de l'entete
vWDocument.OlePropertyGet("ActiveWindow").OlePropertyGet("ActivePane").OlePropertyGet("View").OlePropertySet("SeekView", "9");
// on ecrit le texte
vMSWord.OlePropertyGet("Selection").OleProcedure("TypeText", "ecrire dans le pied de page");

le code VB pour inserer le numero

Code:

1
2
3
4
 
// Macro word pour le numero de page
    ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader ' 9
    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldPage ' 33

pour ecrire le numero de page je n'ai pas encore trouve mais cela devrait etre quelque chose comme:

Code:

1
2
3
4
5
6
// selection de l'entete
    vWDocument.OlePropertyGet("ActiveWindow").OlePropertyGet("ActivePane").OlePropertyGet("View").OlePropertySet("SeekView", "9");
// on ecrit le numero
// cette ligne provoque une erreur
    vMSWord.OlePropertyGet("Selection").OlePropertyGet("Fields").OleFunction("Add", (vMSWord.OlePropertyGet("Selection").OlePropertyGet("Range"), 33);

Voici comment inserer un numero dans l'entete:

Code:

1
2
3
4
5
 
Variant Selection;
  vWDocument.OlePropertyGet("ActiveWindow").OlePropertyGet("ActivePane").OlePropertyGet("View").OlePropertySet("SeekView", "9");
  Selection = vMSWord.OlePropertyGet("Selection");
  Selection.OlePropertyGet("Fields").OleFunction("Add", Selection.OlePropertyGet("Range"), 33);

ou d'une autre maniere

Code:

1
2
3
 
  vWDocument.OlePropertyGet("ActiveWindow").OlePropertyGet("ActivePane").OlePropertyGet("View").OlePropertySet("SeekView", "9");
  vMSWord.OlePropertyGet("Selection").OlePropertyGet("Fields").OleFunction("Add", vMSWord.OlePropertyGet("Selection").OlePropertyGet("Range"), 33);

04/09/2007, 09h02
moudel

Parfait Blondelle
Ca marche au poil merci beaucoup