none
Recuperation de mots clés RRS feed

  • 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

    mercredi 13 décembre 2006 13:26

Réponses

  • regarde du coté de dsofile.dll
    jeudi 14 décembre 2006 06:44
  • 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 Function

     Merci pour tout

    jeudi 14 décembre 2006 09:43

Toutes les réponses

  • regarde du coté de dsofile.dll
    jeudi 14 décembre 2006 06:44
  • 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 Function

     Merci pour tout

    jeudi 14 décembre 2006 09:43