Также необходимо создать тестовый документ

unit oleword;
// Необходима форма и компоненты Memo и Edit на ней.
// Написано для MSWord 8.
// Также необходимо создать тестовый документ d:\test.doc
interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,OLEAuto, ShellAPI, StdCtrls;

type
TForm1 = class(TForm)Memo1: TMemo;Edit1: TEdit;Button1: TButton;procedure Button1Click(Sender: TObject);private{ Private declarations }public{ Public declarations }MSWord: Variant;// WordVersion: Byte;end;
var
Form1: TForm1;
implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
var Test, Test1: Integer;
AString: Variant;begin
MSWord := CreateOLEObject('Word.Application'); //Word 8MSWord.Documents.Open (FileName:='d:\test.doc', ReadOnly:=True);MSWord.Visible := 1; //Закомментарьте, если вы нехотите показывать файл;Test := MSWord.FontNames.Count;For Test1 := 1 To Test dobeginAString := MSWord.FontNames.Item(Test1) ;Memo1.Lines.Add(AString);end;MSWord.ActiveDocument.Range(Start:=0, End:=0);MSWord.ActiveDocument.Range.InsertAfter(Text:='Заголовок');MSWord.ActiveDocument.Range.InsertParagraphAfter;MSWord.ActiveDocument.Range.Font.Name := 'Arial';MSWord.ActiveDocument.Range.Font.Size := 24;AString := MSWord.ActiveDocument.Range.Font.Name;Edit1.Text := AString;end;

end.

[000197]

Содержание раздела