unit SimpleWordUnit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, plWordEx, Buttons, ComCtrls, ExtCtrls, ToolWin;

type
  TplWordFormEx1 = class(TplWordFormEx)
    procedure FormShow(Sender: TObject);
    procedure btnFileSaveClick(Sender: TObject);
  private
    { Private 宣言 }
  public
    { Public 宣言 }
  end;

var
  plWordFormEx1: TplWordFormEx1;

implementation

{$R *.dfm}

//=============================================================================
//  OnShowイベント
//
//  右側のパネルは非表示
//  起動フォルダの'白紙文書.doc'を表示　
//=============================================================================
procedure TplWordFormEx1.FormShow(Sender: TObject);
begin
  //右側のパネル非表示
  PanelRight.Visible := False;
  //フォームを表示する前に文書名を指定すると、その文書を表示する
  wdfFileFullPath := ExtractFilePath(Application.ExeName) + '白紙文書.doc';

  //継承元のOnShowを実行
  inherited;

  //上書きボタンは一度保存したら使用可能にするので使用不可にしておく
  //表示文書をテンプレートのように使用する場合等
  btnOverWrite.Enabled := False;
end;

//=============================================================================
//  [保存]ボタンクリックイベント
//
//  新規保存時に文書名自動生成
//  継承元の保存ボタンの機能(inherited)は実行しない
//  保存メソッドwdfWordFileSaveは
//  成功するとwdfFileFullPathに保存したフルパスを返す(元の名前が変更される)
//  失敗した場合は変化なし
//=============================================================================
procedure TplWordFormEx1.btnFileSaveClick(Sender: TObject);
var
  S : String;
begin
  //保存文書名の自動生成
  S := FormatDateTime('yyyy"年"mm"月"dd"日_"',Now);

  SaveDialog1.Filter     := 'ワード文書 (*.doc)|*.doc';
  SaveDialog1.DefaultExt := '.doc';
  SaveDialog1.FileName   := S + '新規ワード文書';

  if SaveDialog1.Execute then begin
    if wdfWordFileSave(SaveDialog1.FileName) then begin
      btnOverWrite.Enabled := True;
    end;
  end;
end;

end.

  //右側のパネル非表示
  PanelRight.Visible := False;  //ここを削除するかTrueにする

uses
  Forms,
  Windows,
  Dialogs,
  SimpleWordUnit in 'SimpleWordUnit.pas' {plWordFormEx1},
  plWordEx in 'D:\XRAYpl\plWordEx.pas' {plWordFormEx};  //ここを変更

uses
  Forms,
  Windows,
  Dialogs,
  SimpleWordUnit in 'SimpleWordUnit.pas' {plWordFormEx1};