|
#1
|
|||
|
|||
Данные к файлу
Здравствуйте!
Стоит задача программно присвоить тему, описание, комментарий.. для вордовских файлов. Как это можно сделать? Спасибо. |
#2
|
|||
|
|||
Цитата:
Благодарить ненадо |
#3
|
||||
|
||||
Цитата:
Пишу программы за еду. __________________ |
#4
|
|||
|
|||
нашел, делается вот так
Код:
{ Change MS Word properties via OLE } uses ComObj; procedure TForm1.Button1Click(Sender: TObject); const wdPropertyTitle = $00000001; wdPropertySubject = $00000002; wdPropertyAuthor = $00000003; wdPropertyKeywords = $00000004; wdPropertyComments = $00000005; wdPropertyTemplate = $00000006; wdPropertyLastAuthor = $00000007; wdPropertyRevision = $00000008; wdPropertyAppName = $00000009; wdPropertyTimeLastPrinted = $0000000A; wdPropertyTimeCreated = $0000000B; wdPropertyTimeLastSaved = $0000000C; wdPropertyVBATotalEdit = $0000000D; wdPropertyPages = $0000000E; wdPropertyWords = $0000000F; wdPropertyCharacters = $00000010; wdPropertySecurity = $00000011; wdPropertyCategory = $00000012; wdPropertyFormat = $00000013; wdPropertyManager = $00000014; wdPropertyCompany = $00000015; wdPropertyBytes = $00000016; wdPropertyLines = $00000017; wdPropertyParas = $00000018; wdPropertySlides = $00000019; wdPropertyNotes = $0000001A; wdPropertyHiddenSlides = $0000001B; wdPropertyMMClips = $0000001C; wdPropertyHyperlinkBase = $0000001D; wdPropertyCharsWSpaces = $0000001E; const AWordDoc = 'C:\Test.doc'; wdSaveChanges = $FFFFFFFF; var WordApp: OLEVariant; SaveChanges: OleVariant; begin try WordApp := CreateOleObject('Word.Application'); except // Error.... Exit; end; try WordApp.Visible := False; WordApp.Documents.Open(AWordDoc); WordApp.ActiveDocument.BuiltInDocumentProperties[wdPropertyTitle].Value := 'Your Title...'; WordApp.ActiveDocument.BuiltInDocumentProperties[wdPropertySubject].Value := 'Your Subject...'; // ... // ... finally SaveChanges := wdSaveChanges; WordApp.Quit(SaveChanges, EmptyParam, EmptyParam); end; end; |