//=============================================================================
//  セルに計算式を設定
//  何故かセルの指定はA1形式
//=============================================================================
procedure TplWordFormEx2.Button1Click(Sender: TObject);
var
  pTable     : Integer;
  objCell    : Word2000.Cell;
  pFormula   : OleVariant;
  pNumFormat : OleVariant;
begin
  pTable     := 1;
  pNumFormat := ' #####.00';
  try
    pFormula := '=SUM(B1:B3)';
    objCell  := wdfWordDoc.Tables.Item(pTable).Cell(4,2);
    objCell.Formula(pFormula,pNumFormat);

    pFormula := '=SUM(C1:C3)';
    objCell  := wdfWordDoc.Tables.Item(pTable).Cell(4,3);
    objCell.Formula(pFormula,pNumFormat);
  except
    raise;
  end;
end;

//=============================================================================
//  フィールドの更新
//  セルの値を変更して再計算
//=============================================================================
procedure TplWordFormEx2.Button2Click(Sender: TObject);
var
  pTable  : Integer;
  objCell : Word2000.Cell;
begin
  pTable := 1;
  try
    //テストのためにセル値を変更
    objCell := wdfWordDoc.Tables.Item(pTable).Cell(1,2);
    objCell.Range.Text := '500';
    objCell := wdfWordDoc.Tables.Item(pTable).Cell(2,3);
    objCell.Range.Text := '125';

    //フィールドの更新
    objCell := wdfWordDoc.Tables.Item(pTable).Cell(4,2);
    objCell.Range.Fields.Update;
    objCell := wdfWordDoc.Tables.Item(pTable).Cell(4,3);
    objCell.Range.Fields.Update;
  except
    raise;
  end;
end;

//=============================================================================
//  計算式設定ダイアログ    
//=============================================================================
procedure TplWordFormEx2.Button3Click(Sender: TObject);
var
  pTimeOut : OleVariant;
begin
  pTimeOut := 0;
  try
    wdfWordApp.Dialogs.Item(wdDialogTableFormula).Show(pTimeOut);
  except
    raise;
  end;
end;