Как прочитать или изменить свойства Word документаDelphi , Технологии , OLE Automation MSOfficeКак прочитать или изменить свойства Word документаАвтор: http://www.swissdelphicenter.ch
{ 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; Статья Как прочитать или изменить свойства Word документа раздела Технологии OLE Automation MSOffice может быть полезна для разработчиков на Delphi и FreePascal. Комментарии и вопросыМатериалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта. :: Главная :: OLE Automation MSOffice ::
|
||||
©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007 |