Discussion :

[moudel]

Bonjour à tous !

Je cherche actuellement à sortir des paramètres sous formes d'un fichier Word.
Tout marche correctement (merci la FAQ ) 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 :

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

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 !

[blondelle]

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

Code :

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

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 :

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

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 :

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

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);

[blondelle]

Voici comment inserer un numero dans l'entete:

Code :

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

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 :

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

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);

[moudel]

Parfait Blondelle
Ca marche au poil merci beaucoup