Bonjour,

Je cherche le moyen d'ouvrir un document word avec un script ASP, de récupérer les propriétés (Titre, Sujet, Auteur etccc) dans le but de stocker tout ca et de faire un moteur de recherche.

Si vous avez une idée, je suis preneur car là je sèche

Merci.


Portekoi

Salut,

Peut-être qu'ici, tu auras un début de solution ?

xpatval

Re,

Je viens de regarder ton lien mais cela ne gère apparament pas le RTF

I existe une DLL qui s'appelle "DSO OLE Document Properties Reader 2.0"
Tu l'enregistres sur ton serveur.
Il y a un objet COM dont voici une liste des propriétés, pour word ou excel:

txtTitle.Text = oSummProps.Title
txtAuthor.Text = oSummProps.Author
txtComments.Text = oSummProps.Comments
lstSummProps.AddItem "Application: " & oSummProps.ApplicationName
lstSummProps.AddItem "Version: " & oSummProps.Version
lstSummProps.AddItem "Subject: " & oSummProps.Subject
lstSummProps.AddItem "Category: " & oSummProps.Category
lstSummProps.AddItem "Company: " & oSummProps.Company
lstSummProps.AddItem "Keywords: " & oSummProps.Keywords
lstSummProps.AddItem "Manager: " & oSummProps.Manager
lstSummProps.AddItem "LastSaved by: " & oSummProps.LastSavedBy
lstSummProps.AddItem "WordCount: " & oSummProps.WordCount
lstSummProps.AddItem "PageCount: " & oSummProps.PageCount
lstSummProps.AddItem "ParagraphCount: " & oSummProps.ParagraphCount
lstSummProps.AddItem "LineCount: " & oSummProps.LineCount
lstSummProps.AddItem "CharacterCount: " & oSummProps.CharacterCount
lstSummProps.AddItem "CharacterCount (w/spaces): " & oSummProps.CharacterCountWithSpaces
lstSummProps.AddItem "ByteCount: " & oSummProps.ByteCount
lstSummProps.AddItem "PresFormat: " & oSummProps.PresentationFormat
lstSummProps.AddItem "SlideCount: " & oSummProps.SlideCount
lstSummProps.AddItem "NoteCount: " & oSummProps.NoteCount
lstSummProps.AddItem "HiddenSlides: " & oSummProps.HiddenSlideCount
lstSummProps.AddItem "MultimediaClips: " & oSummProps.MultimediaClipCount
lstSummProps.AddItem "DateCreated: " & oSummProps.DateCreated
lstSummProps.AddItem "DateLastPrinted: " & oSummProps.DateLastPrinted
lstSummProps.AddItem "DateLastSaved: " & oSummProps.DateLastSaved
lstSummProps.AddItem "TotalEditingTime (mins): " & oSummProps.TotalEditTime
lstSummProps.AddItem "Template: " & oSummProps.Template
lstSummProps.AddItem "Revision: " & oSummProps.RevisionNumber
lstSummProps.AddItem "IsShared: " & oSummProps.SharedDocument