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

正文內(nèi)容

[計算機(jī)]cb中利用ole服務(wù)器生成word試卷(參考版)

2025-01-17 03:16本頁面
  

【正文】 // 試卷路徑及文件名 (Procedure(FileSaveAs) SaveFile); (4) 保存試卷。 (AddPicture,()); // 暫存為圖像文件 blobSaveToFile(());// 判斷該試題是否有插圖 { // 向Word文檔中寫試題內(nèi)容 blob=(TBlobField *)ADOQueryBFieldByName(image); ADOQueryAFieldByName(stnr)AsString; AnsiString SaveImage = GetCurrentDir()+\\; // 用模板新建Word文檔 Vshape = (ActiveDocument). OlePropertyGet(Shapes); Variant Vshape; (Procedure(FileNew)Normal); // 創(chuàng)建Word VBScript對象 // 創(chuàng)建Word應(yīng)用程序?qū)ο?VwordBasic = CreateOleObject();(1) 創(chuàng)建OLE對象。 amp。 wd Range(amp。 subRange lend。 vTemp01 = leng1。 lstart tbl Cell(rows,2) Range get_End()。 lend vTemp00,vTemp01。 二氧化炭 200M SUP 2 /SUP //這樣一來,表中的所有字體全變了上標(biāo)了 因?yàn)槟阒付ǖ木褪钦麄€CELL,你應(yīng)該把Range指定為你需要設(shè)置為下標(biāo)的內(nèi)容!To:LuoGD(搶第一樓) 你說的很對,在我們的程序中 SUB /SUB SUP /SUP 如在一個串中 CO SUB 2 /SUB ( Cell ,nCellx,nCelly).OlePropertyG
點(diǎn)擊復(fù)制文檔內(nèi)容
試題試卷相關(guān)推薦
文庫吧 www.dybbs8.com
備案圖鄂ICP備17016276號-1