[alex_rR]

я пробую с помощью копирования, но увы не знаю, где ошибки искать.
редактирую специально для

Код:

procedure TfrmMDIParent.N11Click(Sender: TObject);
var   rang_:range;
      con, DefaultTableBehavior, NameWordDoc: OleVariant;
      t1:table;
      s:string;
      Gr:TfrmGrafik1MDIChild;
begin
  if SaveDialog.Execute then
    NameWordDoc := SaveDialog.FileName + '.doc';
  if NameWordDoc <> '' then
    begin
      WordApplication1.Connect;
      WordApplication1.Documents.Add(EmptyParam, EmptyParam, EmptyParam, EmptyParam);
      WordApplication1.Selection.TypeText('Отчет');
     
      Rang_:= WordApplication1.Selection.Range;
      WordApplication1.Selection.Tables.Add(rang_,6,5,DefaultTableBehavior,EmptyParam);
      t1:=WordApplication1.Selection.Tables.Item(1);
      s:= 'fhghfh';
      t1.Cell(1,1).Range.Text:=s;

     // Gr:=TfrmGrafik1MDIChil(ActiveMdiChild);

      Gr.Chart1.CopyToClipboardBitmap; //ошибка тут
     // WordApplication1.Selection.MoveDown(EmptyParam,con,EmptyParam);
      WordApplication1.Selection.PasteAndFormat(wdPasteDefault);

      WordDocument.ConnectTo(WordApplication1.ActiveDocument);
      WordDocument.SaveAs(NameWordDoc);
      WordApplication1.Visible := false;
      WordApplication1.Disconnect;
    end;
end;

здесь все в кучу, потому как пробная.
Ошибка Проект такой то raised exception class EAccessViolation with massage 'Access violation at address 004955f1 in module такой то, ну и процесс остановлен...

[robt]

Сообщение от alex_rR

ругает тут

вротмненоги,ну чо за дебилизм ????
чего?? ругает??? тут по твоему телепаты тусуются???

[alex_rR]

если ты не можешь мне помочь, что тогда писать...
и в целом я про способы спрашиваю, а не про то что сочинил сам.

[robt]

Сообщение от alex_rR

если ты не можешь мне помочь, что тогда писать...
и в целом я про способы спрашиваю, а не про то что сочинил сам.

при такой подаче вопроса,помощи не жди

[Ildar-tsr]

Код:

const
  wdFormatOriginalFormatting = 16;
...
Chart1.CopyToClipboardBitmap;
WordApplication1.Selection.PasteAndFormat(wdFormatOriginalFormatting);

[alex_rR]

Всем спасибки за внимание. Я все понял, осознал, и ваще буду внимательнее впредь(не верьте я брежу)
Тема закрыта, я нашел свои ошибки.