freepeople性欧美熟妇, 色戒完整版无删减158分钟hd, 无码精品国产vα在线观看DVD, 丰满少妇伦精品无码专区在线观看,艾栗栗与纹身男宾馆3p50分钟,国产AV片在线观看,黑人与美女高潮,18岁女RAPPERDISSSUBS,国产手机在机看影片

正文內(nèi)容

[計(jì)算機(jī)]cb中利用ole服務(wù)器生成word試卷-資料下載頁(yè)

2025-01-14 03:16本頁(yè)面
  

【正文】 0。 lstart。 vTemp01 = lend。 RangePtr subRange = wd Range(amp。vTemp00, amp。vTemp01)。(1) 創(chuàng)建OLE對(duì)象。 Variant VwordApp,VwordBasic; VwordApp = CreateOleObject(); // 創(chuàng)建Word應(yīng)用程序?qū)ο?VwordBasic = CreateOleObject(); // 創(chuàng)建Word VBScript對(duì)象 (2) 新建Word文檔并創(chuàng)建操作圖形的Shape對(duì)象。 Variant Vshape; (Procedure(FileNew)Normal); // 用模板新建Word文檔 Vshape = (ActiveDocument). OlePropertyGet(Shapes); (3) 將試題內(nèi)容與試題插圖寫入Word文檔中,以試題表中一條記錄為例。 AnsiString SaveImage = GetCurrentDir()+\\; // 暫存圖像路徑及文件名 AnsiString Stnr = ADOQueryAFieldByName(stnr)AsString; // 取試題內(nèi)容 (Procedure(Insert) Stnr); // 向Word文檔中寫試題內(nèi)容 blob=(TBlobField *)ADOQueryBFieldByName(image); // 取試題插圖 if(!blobIsNull) // 判斷該試題是否有插圖 { blobSaveToFile(()); // 暫存為圖像文件 (AddPicture,()); //將圖像插入Word文檔 } (4) 保存試卷。 AnsiString SaveFile = GetCurrentDir()+\\; // 試卷路徑及文件名 (Procedure(FileSaveAs) SaveFile); // 保存試卷
點(diǎn)擊復(fù)制文檔內(nèi)容
試題試卷相關(guān)推薦
文庫(kù)吧 www.dybbs8.com
備案圖鄂ICP備17016276號(hào)-1