2024年8月4日发(作者：)

,VC在WORD中加入文本数据;

进行word写的VBA宏代码

VC++会自动地在中的CWordAutomationApp::InitInstanc

e()中生成如下的代码，使得COM的服务能有效。

if (!AfxOleInit())

{

AfxMessageBox(IDP_OLE_INIT_FAILED);

return FALSE;

}

// TODO: Add your command handler code here

COleVariant vTrue((short)TRUE),

vFalse((short)FALSE),

vTmp,

vOpt((long)DISP_E_PARAMNOTFOUND, VT_ERROR);

//创建Word实例

_Application oWordApp;

if (!Dispatch("ation", NULL))

{

AfxMessageBox("创建失败！", MB_OK | MB_SETFOREGROUND);

return;

}

Range Rng;

Table Tbl;

Tables Tbls;

//创建一个新的word文档

Documents oDocs;

_Document oDoc;

oDocs = uments();

oDoc = (vOpt, vOpt, vOpt, vOpt);

//如果是word 98，则应该带两个参数，如(vOpt, vOpt)

//把文本添加到word文档

Selection oSel;

oSel = ection();

xt("one");

ragraph();

xt("two");

ragraph();

xt("three");

//保存word文档

_Document oActiveDoc;

oActiveDoc = iveDocument();

(COleVariant("c:"),

COleVariant((short)0),

vFalse, COleVariant(""), vTrue, COleVariant(""),

vFalse, vFalse, vFalse, vFalse, vFalse,vFalse,vFalse,vFalse,vFalse,vFal

se);

//退出word应用程序

//(vOpt, vOpt, vOpt);

二,用VC在WORD中加入表格;

COleVariant vTrue((short)TRUE),

vFalse((short)FALSE),

vTmp,

vOpt((long)DISP_E_PARAMNOTFOUND, VT_ERROR);

//创建Word实例

_Application WrdApp;

if (!Dispatch("ation", NULL))

{

AfxMessageBox("创建失败！", MB_OK | MB_SETFOREGROUND);

return;

}

Documents Docs;

_Document Doc;

Range Rng;

Table Tbl;

Tables Tbls;

//创建新文档

Docs = uments();

Doc = (vOpt, vOpt, vOpt, vOpt);

Rng=tent();

//{{

Tbls=les(); 必须给这个变量初始化

//}}

(Rng,5,5,vOpt,vOpt);/