解决了问题全部给分

参考这个：//将报表第iPageNo页存为WORD文件
procedure ReportSaveToDocFile(sFileName :string; iPageNo :integer);
var Template,NewTemplate,ItemIndex:OleVariant;
  E: TMetaFile;
  B: TBitmap;
  MyFormat : Word;
  AData : THandle;
  APalette : HPALETTE;
begin
  try
    Template := EmptyParam;
    NewTemplate := True;
    ItemIndex := 1;
    try
      Wordapplication.Connect;
    except
      MessageDlg('Word may not be installed', mtError, [mbOk], 0);
      Abort;
    end;
    Wordapplication.Visible := True;
    WordApplication.Caption := 'Delphi automation';
    {Create new document}
    Template := EmptyParam;
    NewTemplate := False;
    WordApplication.Documents.Add(Template, NewTemplate);
    {Assign WordDocument component}
    WordDocument.ConnectTo(WordApplication.Documents.Item(ItemIndex));
    {Turn Spell checking of because it takes a long time if enabled and slows down Winword}
    WordApplication.Options.CheckSpellingAsYouType := False;
    WordApplication.Options.CheckGrammarAsYouType := False;
    {Insert data}
    B := TBitmap.Create;
    E := QRPreview1.QRPrinter.GetPage(iPageNo); //想要第几页
    try
      with TMetafileCanvas.Create(E, 0) do
      try
        B.Height := E.Height;
        B.Width := E.Width;
        B.Canvas.Draw(0, 0, E);
      finally
        Free;
      end;
      B.SaveToClipBoardFormat(MyFormat,AData,APalette);
      ClipBoard.SetAsHandle(MyFormat,AData);
    finally
      B.Free;
    end;    WordDocument.Sentences.Last.Paste;
  except
    on E: Exception do
    begin
      ShowMessage(E.Message);
      WordApplication.Disconnect;
    end;
  end;
end;