91av视频/亚洲h视频/操亚洲美女/外国一级黄色毛片 - 国产三级三级三级三级

  • 大小: 1KB
    文件類型: .txt
    金幣: 2
    下載: 0 次
    發布日期: 2024-01-17
  • 語言: 其他
  • 標簽: delphi??word??讀寫??

資源簡介

1.所需的三個控件: ChooseWA: TWordApplication; ChooseWD: TWordDocument; ChooseWF: TWordFont; 2.檢查計算機是否安裝了WORD try ChooseWA.Connect; except MessageBox(handle,'無法鏈接,請確認電腦上是否安裝Word XP/2003及以上版本','連接出錯', MB_Ok or MB_ICONERROR); Abort; end; 3.關閉WORD拼寫檢查 //因為Word進行拼寫檢查需要很多時間,所以首先關閉檢查 ChooseWA.Options.CheckSpellingAsYouType := False; ChooseWA.Options.CheckGrammarAsYouType := False; 4.新建一個文檔并設置文檔的標題 var NewDocument: _Document; ItemIndex: OleVariant; ItemIndex := 1; NewDocument := ChooseWA.Documents.Add(EmptyParam,EmptyParam,EmptyParam,EmptyParam); ChooseWD.ConnectTo(NewDocument); ChooseWD.Windows.Item(ItemIndex).Caption := '我新建的第一個文檔';//此文檔的第一個窗口的標題,試卷 名稱 5.寫入數據 ChooseWD.Range.InsertAfter('第一行數據'+#13);//#13代表換行 6.設置字體格式 procedure SetFont(aBold,aItalic,aShadow,aSize:integer); begin ChooseWF.ConnectTo(ChooseWD.Sentences.Get_Last.Font); ChooseWF.Name := '宋體'; ChooseWF.Bold := aBold; ChooseWF.Italic := aItalic; ChooseWF.Shadow := aShadow; ChooseWF.Size := aSize; end; 如:SetFont(1,0,0,22);//設置字體為22號 7.向WORD中寫入表格 (1)插入表格: ChooseWD.Tables.Add(ChooseWD.Words.Last, RowNum, ColNum,EmptyParam,EmptyParam);//RowNum為行數, ColNum為列數 (2)插入數據: ChooseWD.Tables.Item(1).Cell(1,1).Range.Text := '第一行第一列'; ChooseWD.Tables.Item(1).Cell(2,1).Range.Text := '第二行第一列'; 8.向WORD寫入圖片 var Img: TImage; MyFormat: Word; AData: Cardinal; APalette: HPALETTE; Img.Picture.LoadFromFile('文件路徑');//從文件夾中導入圖片至控件 Img.Picture.SaveToClipboardFormat(MyFormat,AData,APalette);//將圖片轉存到剪貼板中 Clipboard.SetAsHandle(MyFormat,AData);//將剪貼板中的圖片復制出來,注意添加Clipbrd單元 ChooseWD.Sentences.Last.Paste;//在WORD中粘貼圖片 9.在界面中顯示WORD文檔 ChooseWA.Visible:=true; 10.斷開與WORD的鏈接 ChooseWA.Disconnect; ChooseWD.Disconnect; Chart1.SaveToBitmapFile(‘文件名.bmp’);

資源截圖

代碼片段和文件信息

評論

共有 條評論