Недавно добавленные исходники

•  TDictionary Custom Sort  3 198

•  Fast Watermark Sources  2 960

•  3D Designer  4 726

•  Sik Screen Capture  3 231

•  Patch Maker  3 445

•  Айболит (remote control)  3 511

•  ListBox Drag & Drop  2 883

•  Доска для игры Реверси  80 259

•  Графические эффекты  3 822

•  Рисование по маске  3 152

•  Перетаскивание изображений  2 519

•  Canvas Drawing  2 646

•  Рисование Луны  2 474

•  Поворот изображения  2 067

•  Рисование стержней  2 101

•  Paint on Shape  1 507

•  Генератор кроссвордов  2 159

•  Головоломка Paletto  1 712

•  Теорема Монжа об окружностях  2 143

•  Пазл Numbrix  1 638

•  Заборы и коммивояжеры  1 993

•  Игра HIP  1 255

•  Игра Go (Го)  1 192

•  Симулятор лифта  1 408

•  Программа укладки плитки  1 153

•  Генератор лабиринта  1 490

•  Проверка числового ввода  1 280

•  HEX View  1 451

•  Физический маятник  1 311

•  Задача коммивояжера  1 349

 
скрыть


Delphi FAQ - Часто задаваемые вопросы

| Базы данных | Графика и Игры | Интернет и Сети | Компоненты и Классы | Мультимедиа |
| ОС и Железо | Программа и Интерфейс | Рабочий стол | Синтаксис | Технологии | Файловая система |



Delphi Sources

Как прочитать или изменить свойства Word документа



{ 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;





Похожие по теме исходники

Circle Word Wrap

Word List 1.5

Word Search in Text

Конвертер Word - HTML

 

Create document in Word

Golden Passwords

Work with Word and Excel

Grid Word Highlight

 



Copyright © 2004-2024 "Delphi Sources" by BrokenByte Software. Delphi World FAQ

Группа ВКонтакте