Word VBA

發文回覆瀏覽次數：906

推到 Plurk!

推到 Facebook!

尚未結案

a120803
初階會員

發表：61
回覆：66
積分：25
註冊：2003-03-12

發送簡訊給我

#1 引用回覆回覆

發表時間：2003-03-27 11:19:59

IP:163.25.xxx.xxx 未訂閱

請問各位大大: 下列程式碼無法執行,請問是哪裡有問題啊 Variant test; Variant test2; test=CreateOleObject("Word.Application"); test.OlePropertySet("Visible",true); test2=test.OlePropertyGet("Docunents"); test2.OleProcedure("Open","c:\\test.doc");

axsoft
版主

發表：681
回覆：1056
積分：969
註冊：2002-03-13

發送簡訊給我

#2 引用回覆回覆

發表時間：2003-04-14 14:48:21

IP:61.218.xxx.xxx 未訂閱

a120803您好: 試試看

#include < utilcls.h >     void __fastcall TForm1::Button1Click(TObject *Sender)
{
Variant vMSWord,vWDocument, vWDocuments;
Variant vFileName, vWDocuments, vWDocument;    vMSWord = Variant::CreateObject("Word.Application");
vMSWord.OlePropertySet("Visible", true);    try {
      vMSWord = Variant::GetActiveObject("Word.Application");
    }
catch (...)
    {
      vMSWord = Variant::CreateObject("Word.Application");
    }    vFileName = "c:\\test.doc";
vWDocuments = vMSWord.OlePropertyGet("Documents");
vWDocument = vWDocuments.OleFunction("Open", vFileName);     vMSWord = Unassigned;
}
//---------------------------------------------------------------------------

網路志工聯盟----Visita網站http://www.vista.org.tw ---[ 發問前請先找找舊文章 ]--- 發表人 - axsoft 於 2003/04/14 14:50:36

系統時間：2024-05-07 18:52:01

聯絡我們 | Delphi K.Top討論版

本站聲明

1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！