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

Obtenir les statistiques d'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

Obtenir les statistiques d'un document Word
# 0000000158
ajouté le 03/03/2005 20:32:18 et modifié le 03/03/2005
consulté 4567 fois
Niveau initié

Version(s) Foxpro :
VFP 9.0
VFP 8.0
VFP 7.0

Code source :
ON ERROR *
o = Createobject('word.application')
lodoc2 = Getfile('doc')
lodoc = o.documents.Open(lodoc2)
lodoc3 =o.documents.add()
nCount = lodoc.BuiltInDocumentProperties.Count
rng = lodoc3.Range(0,0)
With rng
  .InsertBefore("Statitiques du Document")
  .Font.Name = "Verdana"
  .Font.Size = 16
  .InsertParagraphAfter()
  .InsertParagraphAfter()
  .SetRange(rng.End, rng.End)
Endwith
rng.Tables.Add(lodoc3.Paragraphs.Item(2).Range,nCount,2)
With lodoc3.Tables.Item(1)
  .Range.Font.Size = 12
  .Columns.DistributeWidth()
  .Style = "Table Colorful 2"
Endwith
With lodoc3.Tables.Item(1)
  .Cell(1, 1).Range.Text = "Propriétés du Document"
  .Cell(1, 2).Range.Text = "Valeure"
  j = 1
  For i = 2 To nCount
    .Cell(i, 1).Range.Text = lodoc.BuiltInDocumentProperties(j).Name
    .Cell(i, 2).Range.Text = Transform(lodoc.BuiltInDocumentProperties(j).Value)
    j = j + 1
  Endfor
  .Select()
ENDWITH
lodoc.close
o.Visible = .T.


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