На этом шаге мы рассмотрим создание документа Word.

    Создание нового документа Word в WordBasic в общем случае выполняется процедурой FileNewDefault без аргументов. Данная процедура создает документ, тип которого определяется по умолчанию (обычно - Document Word). Если сохранить такой документ, то получим файл с расширением DOC. Рассмотрим следующую процедуру.

procedure TForm1.Button1Click(Sender: TObject);
begin
  WB.FileNewDefault;
end;

    Выполнив данную процедуру, мы получим в окне приложения Word окно нового документа.

    Для создания нового документа по шаблону используем команду WordBasic FileNew(FileName), где FileName - путь и имя файла-шаблона (файл с расширением DOT). Приведем текст приложения, в котором используется эта команда.

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComObj;

type
  TForm1 = class(TForm)
    Button1: TButton;
    OpenDialog1: TOpenDialog;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
//Создание документа на основе шаблона
var
  WB:Variant;
begin
  WB:=CreateOleObject('Word.Basic');
  WB.AppShow;
  if OpenDialog1.Execute then
     WB.FileNew(OpenDialog1.FileName);
end;

end.

    С помощью данной процедуры мы можем выбрать нужный шаблон и на его основе создать новый документ. Создадим новый документ, используя шаблон "Изысканный отчет" из списка шаблонов MS Word (рисунок 1).

Рис.1. Создание документа на основе шаблона "Изысканный отчет"

    Из сказанного следует, что WordBasic обладает необходимыми ресурсами для создания документа и эти ресурсы можно задействовать из приложений, создаваемых в среде Delphi. Разница между созданием документа в WordBasic и Visual Basic заключается в том, что последний для этой цели использует коллекцию Documents, что удобнее для дальнейшей работы с созданным документом.

    На следующем шаге мы рассмотрим открытие существующего документа Word.

Предыдущий шаг Содержание Следующий шаг