Как сделать скриншот страницы или фрагмента Word на Delphi

var
 
straniza : integer; // номер страницы
  fname: string;   Word : Variant;
  bytes:Tbytes;    Mstream: TMemorystream;
 
begin
 
Word := CreateOleObject('Word.Application'); Word.visible:=true;
Word.Documents.Open('E:\test.doc');
straniza:= 4;
  bytes:= Word.ActiveWindow.Panes.Item(1).Pages.Item(straniza).EnhMetaFileBits;
  Mstream:= TMemorystream.Create;
  Mstream.Write(bytes, length(bytes));
  Fname := 'E:\0' + inttostr(straniza) + '.bmp';
  MStream.SaveToFile(Fname); MStream.Free;
Word.ActiveDocument.Close;
Word.Application.Quit;
 
end;

 bytes:= Word.ActiveDocument.InlineShapes.Item(1).Range.EnhMetaFileBits;

bytes:= Word.ActiveDocument.Tables.Item(1).Cell(2, 1).Range.EnhMetaFileBits;

bytes:= Word.ActiveDocument.Tables.Item(4).Range.EnhMetaFileBits;

bytes:= Word.ActiveDocument.Paragraphs.Item(298).Range.EnhMetaFileBits;