全國最多中醫師線上諮詢網站-台灣中醫網
發文 回覆 瀏覽次數:2378
推到 Plurk!
推到 Facebook!

在C++ Builde 中呼出 Words 並建立上下兩個表格

尚未結案
MartinPan
一般會員


發表:3
回覆:4
積分:1
註冊:2005-04-30

發送簡訊給我
#1 引用回覆 回覆 發表時間:2005-05-06 22:20:13 IP:218.167.xxx.xxx 未訂閱
各位先進 小弟想用C Builde 中呼出 Words 並建立上下兩個6x6表格、兩個表格的上方都有title。並且在每個小方格中填入文字。請各位高明指點作法。 謝謝
Stallion
版主


發表:52
回覆:1600
積分:1995
註冊:2004-09-15

發送簡訊給我
#2 引用回覆 回覆 發表時間:2005-05-11 01:25:04 IP:211.22.xxx.xxx 未訂閱
產生一個 Word 的 OLE 物件,利用那個物件執行 VBA,vba如果不知到怎麼寫用Word錄製巨集後,看裡面的內容就知道了!但是是實作上VBA還是會有一點差異喔! ----------------------------------------------- Creation is the fundation of promotion.
MartinPan
一般會員


發表:3
回覆:4
積分:1
註冊:2005-04-30

發送簡訊給我
#3 引用回覆 回覆 發表時間:2005-05-11 22:58:37 IP:61.230.xxx.xxx 未訂閱
謝謝您        以下是我的程式碼。    執行到wordApp.OleFunction("SaveAs",StringToOleStr(fname));   會有錯誤訊息。麻煩各位大大指點一下。  /********************************************************************* void __fastcall TForm1::Button1Click(TObject *Sender) {     Variant FileFormat=wdFormatText;     AnsiString fname;     if(SaveDialog1->Execute())     {       fname= SaveDialog1->FileName;       wordApp.OleFunction("SaveAs",StringToOleStr(fname));      } } ********************************************************************/ //--------------------------------------------------------------------------- bool  __fastcall TForm1::connectWinWord(void) {    if (wordApp.IsEmpty())    {        wordApp=Variant::CreateObject("Word.Application");    }    else    {        wordApp=GetActiveOleObject("Word.Application");    }    if (wordApp.IsEmpty())    {       ShowMessage("Unable to find Word application.");       return false;    }      wordApp.OlePropertySet("Visible", true);    //wordApp.Visible=true;       return  (!wordApp.IsEmpty()); } //---------------------------------------------------------------------------    //---------------------------------------------------------------------------    void __fastcall TForm1::btnOpenClick(TObject *Sender) {   wordDocuments = wordApp.OlePropertyGet("Documents");   String  ffName="c:\\test.doc";   wordDocuments.OleProcedure("Open", ffName);  // (Variant).c_str()    } //---------------------------------------------------------------------------    void __fastcall TForm1::btnConnectClick(TObject *Sender) {   connectWinWord(); } //---------------------------------------------------------------------------    void __fastcall TForm1::btnPrintClick(TObject *Sender) {    wordApp.OleProcedure("PrintOut"); } //---------------------------------------------------------------------------    void __fastcall TForm1::btnSaveClick(TObject *Sender) {    wordDocuments.OleProcedure("Save"); } //---------------------------------------------------------------------------    void __fastcall TForm1::btnCloseWordClick(TObject *Sender) {     wordDocuments.OleProcedure("Close");   // } //---------------------------------------------------------------------------    void __fastcall TForm1::btnCloseAppClick(TObject *Sender) {   Close(); } //---------------------------------------------------------------------------    void __fastcall TForm1::btnAddClick(TObject *Sender) {    //wordApp.OlePropertySet("Visible", true);    wordDocuments = wordApp.OlePropertyGet("Documents");    wordDocuments.OleProcedure("Add"); } //---------------------------------------------------------------------------    void __fastcall TForm1::btnTableClick(TObject *Sender) {     Variant wordActiveDocument = wordApp.OlePropertyGet("ActiveDocument");     wordTables = wordActiveDocument.OlePropertyGet("Tables");     Variant wordSelection = wordApp.OlePropertyGet("Selection");     Variant Range = wordSelection.OlePropertyGet("Range");     // inserts the table     wordTables.OleProcedure("Add", Range, (Variant) 3,(Variant) 5); } //---------------------------------------------------------------------------    void __fastcall TForm1::btnInsertTextClick(TObject *Sender) {     Variant wordTable1 = wordTables.OleFunction("Item", (Variant)1);   //     Variant wordCell = wordTable1.OleFunction("Cell", (Variant)2, (Variant)3 );     Variant wordRange = wordCell.OlePropertyGet("Range");     wordRange.OlePropertySet("Text",   WideString("We are at 2/3"));  //wordCell ,wordRange (Variant) } //---------------------------------------------------------------------------    void __fastcall TForm1::btnDisconWordClick(TObject *Sender) {     wordApp.OleProcedure("Quit"); } //---------------------------------------------------------------------------    void __fastcall TForm1::Button1Click(TObject *Sender) {     Variant FileFormat=wdFormatText;     AnsiString fname;     if(SaveDialog1->Execute())     {       fname= SaveDialog1->FileName;       wordApp.OleFunction("SaveAs",StringToOleStr(fname));  //()     } } //---------------------------------------------------------------------------
系統時間:2017-10-23 17:39:33
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!