Meilleur auteur de réponses
Recuperation de mots clés

Question
-
Bonjour,
je recherche le moyen de récuperer , sous VB , les valeurs que l'on peut trouver sur des fichiers pour les propriétés Mots-clés, Objet, Categorie, ou même commentaires.
Pouvez vous m'aider a trouver l'API me permettant d'acceder a ces informations (on peut les trouver manuellement en faisant "proprietes", onglet résumé.)
Merci de votre aide
Cdlt
Eric
Réponses
-
-
Bonjour,
ci-dessous une petite fonction qui fonctionne avec le champ Keyword (Mot clé)
Function LireProprietesFic_DSO(Fichier As String)
'Nécessite d'activer la référence DSO OleDocument Properties Reader 2.0
'http://support.microsoft.com/default.aspx?scid=kb;EN-US;Q224351
Dim DSO As DSOFile.OleDocumentProperties
Set DSO = New DSOFile.OleDocumentProperties
'Attention: Le fichier doit être préalablement fermé!
DSO.Open sfilename:=Fichier
'
LireProprietesFic_DSO = DSO.SummaryProperties.Keywords
'
'Les autres propriétés:
'
' ApplicationName ' Author ' ByteCount ' Category ' CharacterCount
' CharacterCountWithSpaces ' Comments ' Company ' DateCreated
' DateLastPrinted ' DateLastSaved ' HiddenSlideCount
' Keywords ' LastSavedBy ' LineCount ' Manager ' MultimediaClipCount
' NoteCount ' PageCount ' ParagraphCount ' PresentationFormat
' RevisionNumber ' SharedDocument ' SlideCount
' Subject ' Template ' Title ' TotalEditTime ' Version ' WordCount
'
DSO.Close
End FunctionMerci pour tout
Toutes les réponses
-
-
Bonjour,
ci-dessous une petite fonction qui fonctionne avec le champ Keyword (Mot clé)
Function LireProprietesFic_DSO(Fichier As String)
'Nécessite d'activer la référence DSO OleDocument Properties Reader 2.0
'http://support.microsoft.com/default.aspx?scid=kb;EN-US;Q224351
Dim DSO As DSOFile.OleDocumentProperties
Set DSO = New DSOFile.OleDocumentProperties
'Attention: Le fichier doit être préalablement fermé!
DSO.Open sfilename:=Fichier
'
LireProprietesFic_DSO = DSO.SummaryProperties.Keywords
'
'Les autres propriétés:
'
' ApplicationName ' Author ' ByteCount ' Category ' CharacterCount
' CharacterCountWithSpaces ' Comments ' Company ' DateCreated
' DateLastPrinted ' DateLastSaved ' HiddenSlideCount
' Keywords ' LastSavedBy ' LineCount ' Manager ' MultimediaClipCount
' NoteCount ' PageCount ' ParagraphCount ' PresentationFormat
' RevisionNumber ' SharedDocument ' SlideCount
' Subject ' Template ' Title ' TotalEditTime ' Version ' WordCount
'
DSO.Close
End FunctionMerci pour tout