Carte du site
 Remerciements
 Netiquette
 Bugs
 Tables
 Requêtes
 Formulaires
 États (rapports)
 Modules
 APIs
 Chaînes
 Date/Time
 Général
 Ressources
 Téléchargeables

 Termes d'usage

Modules: Lire les propriétés d'un document  Word  (Author, Last Print Date etc.)

Author(s)
Dev Ashish

Lire les propriétés d'un document  Word  (Author, Last Print Date etc.)

(Q)    Comment lire les diverses propriétés d'un document Word Document, tel que Last Print Date, Author Name, Title etc.?

(A)    Vous pouvez utiliser la fonction  fEnumProps qui énumérera toutes les propriétés d'un document. Utiliser fGetDocProps pour retourne la valeur d'une propriété.

'************ Code Start **********
Function fGetDocProps(strInFile As String, strProp As String)
'Usage  (passer une des propriétés retournée par fEnumProps
'Nombre de caractères dans le document:
'   ?fGetDocProps("C:\more junk\read me.doc","Number of Characters")
'Dernière impression du document:
'   ?fGetDocProps("C:\more junk\read me.doc","Last Print Date")
'
Dim objWord As Object, objDocProps As Object
    
    On Error GoTo Err_fGetDocProps
    Set objWord = CreateObject("Word.Application")
    objWord.Documents.Open strInFile
    Set objDocProps = objWord.ActiveDocument.BuiltInDocumentProperties
    fGetDocProps = objDocProps(strProp)
    
Exit_fGetDocProps:
    objWord.Application.Quit savechanges:=False
    Set objDocProps = Nothing
    Set objWord = Nothing
    Exit Function

Err_fGetDocProps:
    fGetDocProps = "Error: Probably File/Property does not exist."
    Resume Exit_fGetDocProps
End Function

Function fEnumProps(strInFile As String)
'Usage
'?fEnumProps("C:\more junk\read me.doc")
'
Dim objWord As Object, objDocProps As Object
Dim i As Integer
    On Error Resume Next
    Set objWord = CreateObject("Word.Application")
    With objWord
        .Documents.Open strInFile
        Set objDocProps = objWord.ActiveDocument.BuiltInDocumentProperties
        For i = 0 To objDocProps.Count - 1
            Debug.Print objDocProps(i).Name, objDocProps(i).value
        Next i
    End With
    objWord.Application.Quit savechanges:=False
    Set objWord = Nothing
End Function
'************ Code End **********

 

© 1998-2001, Dev Ashish, All rights reserved. Optimized for Microsoft Internet Explorer