Работа с MS Word

[alexchromets]

Это скорее всего я не так понял.
Ниже приведен весь рабочий код для вставки моей диаграммы в Excel.
Может, исходя из этих данных, можно вставить диаграмму в Word?

function CheckExcelRun: boolean;
begin
  try
    MyExcel := GetActiveOleObject(ExcelApp);
    Result := true;
  except
    Result := false;
  end;
end;

function RunExcel(DisableAlerts: boolean = true;
  Visible: boolean = false): boolean;
begin
  try
    { Проверяем, установлен ли Excel }
    if CheckExcelInstall then
    begin
      MyExcel := CreateOleObject(ExcelApp);
      // Показывать/Не показывать системные сообщения Excel
      MyExcel.Application.EnableEvents := DisableAlerts;
      MyExcel.Visible := Visible;
      Result := true;
    end
    else
    begin
      MessageBox(0, 'Приложение MS Excel не установлено на этом компьютере',
        'Ошибка', MB_OK + MB_ICONERROR);
      Result := false;
    end;
  except
    Result := false;
  end;
end;

procedure AddLineChartFromTable(X1, Y1, Height, Width, Format: Integer;
  Title, XLabel, YLabel: string; DataPosition: byte; ChartType: OleVariant);
var
  Chart: OleVariant;
  i: Integer;
begin
  // Вставляем данные из таблицы
  // showmessage(inttostr(min( high(X), high(Y))));
  try
    for i := 0 to min( high(X), high(Y)) - 1 do
    begin
      MyExcel.ActiveWorkBook.ActiveSheet.Cells[1, i + 1] := X[i];
      MyExcel.ActiveWorkBook.ActiveSheet.Cells[2, i + 1] := Y[i];
    end;
  except
    raise Exception.Create('Запись таблицы завершилась ошибкой')
  end;
  // Добавляем новую диаграмму на активный лист
  Chart := MyExcel.ActiveWorkBook.ActiveSheet.ChartObjects.Add(X1, Y1, Width,
    Height);
  // Выбираем последнюю добавленную диаграмму
  MyExcel.Visible := true;
  // Chart := MyExcel.ActiveWorkBook.ActiveSheet.ChartObjects
  // [MyExcel.ActiveWorkBook.ActiveSheet.ChartObjects.Count-1];

  Chart.Chart.ChartWizard
    (Source := MyExcel.ActiveWorkBook.ActiveSheet.UsedRange,
    Gallery := ChartType, Format := Format, PlotBy := xlrows,
    CategoryLabels := 1, SeriesLabels := 0, HasLegend := false,
    Title := Title, CategoryTitle := XLabel, ValueTitle := YLabel);
end;

function AddWorkBook(AutoRun: boolean = true): boolean;
begin
  if CheckExcelRun then
  begin
    MyExcel.WorkBooks.Add;
    Result := true;
  end
  else if AutoRun then
  begin
    RunExcel;
    MyExcel.WorkBooks.Add;
    Result := true;
  end
  else
    Result := false;
end;

procedure TForm1.excelClick(Sender: TObject);
begin
  if AddWorkBook then
    AddLineChartFromTable(10, 10, 500, 1000, 1, 'График', 'x', 'f(x)', 1,
      xlLineStacked);
end;

[alexchromets]

Наверное, я не так понял.
Вот код вставки диаграммы в excel, может, исходя из этих данных, можно для word`а сделать?

procedure TForm1.excelClick(Sender: TObject);
begin
  if AddWorkBook then
    AddLineChartFromTable(10, 10, 500, 1000, 1, 'График', 'x', 'f(x)', 1,
      xlLineStacked);
end;

[Malgor]

  try
    for i := 0 to min( high(X), high(Y)) - 1 do
    begin
      MyExcel.ActiveWorkBook.ActiveSheet.Cells[1, i + 1] := X[i];
      MyExcel.ActiveWorkBook.ActiveSheet.Cells[2, i + 1] := Y[i];
    end;
  except

меняем на

  try
    for i := 0 to min( high(X), high(Y)) - 1 do
    begin
    Chart.Application.DataSheet.Cells[1, i + 1].Value :=X[i];
    Chart.Application.DataSheet.Cells[2, i + 1].Value:=Y[i];
    end;
  except

главное правильно Chart определить чтобы работало
для вставки графика в пустой документ придётся исользовать

Diag:=doc.activeDocument.inlineShapes.AddOLEObject('MSGraph.Chart.8');

вместо того чтобы на закладку переходить(как я писал ранее).
обственно остальные функции нужно переделать под word.