ATOUTFOX
COMMUNAUTÉ FRANCOPHONE DES PROFESSIONNELS FOXPRO
Visual FoxPro : le développement durable

Déterminer le numéro de pages et le nombres total de pages dans un document Word   



L'auteur

Mike Gagnon
Canada Canada
Membre Simple
# 0000000025
enregistré le 14/10/2004

Gagnon Mike
Pte Claire Quebec - Canada
de la société MCRG Software
Fiche personnelle


Note des membres
pas de note

Contributions > 09 - Automation > Word

Déterminer le numéro de pages et le nombres total de pages dans un document Word
# 0000000071
ajouté le 18/11/2004 17:20:42 et modifié le 18/11/2004
consulté 4673 fois
Niveau initié

Version(s) Foxpro :
VFP 7.0

Description

Déterminer le numéro de pages et le nombres total de pages dans un document Word.

Code source :
oWord = createobject('word.application')
odocument=oWord.Documents.Open('c:\all products'&& Multiple page document.
oDocument.Repaginate  && Pour s'assurer que le nombre de page est juste
DO WHILE oWord.selection.Information(3)<> oWord.Selection.Information(4)
       MESSAGEBOX"La selection est sur la page " +TRANSFORM(oWord.selection.Information(3)) + " d'un total de "+;
        TRANSFORM(oWord.Selection.Information(4)))
    oWord.Browser.Next && Skip a Page
ENDDO

Commentaires
Aucun commentaire enregistré ...

Publicité

Les pubs en cours :

www.atoutfox.org - Site de la Communauté Francophone des Professionnels FoxPro - v3.4.0 - © 2004-2019.
Cette page est générée par un composant COM+ développé en Visual FoxPro 9.0-SP2-HF3