---Soumis par 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èra 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 **********