如何用VC在Word中添加、操作表格
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
,VC在WORD中加入文本数据;
进行word写的VBA宏代码
VC++会自动地在WordAutomation.cpp中的CWordAutomationApp::InitInstance()中生成如
下的代码，使得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 (!oWordApp.CreateDispatch("Word.Application", NULL))
{
AfxMessageBox("创建失败！", MB_OK | MB_SETFOREGROUND);
return;
}
Range Rng;
Table Tbl;
Tables Tbls;
//创建一个新的word文档
Documents oDocs;
_Document oDoc;
oDocs = oWordApp.GetDocuments();
oDoc = oDocs.Add(vOpt, vOpt, vOpt, vOpt);
//如果是word 98，则应该带两个参数，如oDocs.Add(vOpt, vOpt)
//把文本添加到word文档
Selection oSel;
oSel = oWordApp.GetSelection();
oSel.TypeText("one");
oSel.TypeParagraph();
oSel.TypeText("two");
oSel.TypeParagraph();
oSel.TypeText("three");
//保存word文档
_Document oActiveDoc;
oActiveDoc = oWordApp.GetActiveDocument();
oActiveDoc.SaveAs(COleVariant("c:\\doc1.doc"),
COleVariant((short)0),
vFalse, COleVariant(""), vTrue, COleVariant(""),
vFalse, vFalse, vFalse, vFalse, vFalse,vFalse,vFalse,vFalse,vFalse,vFalse);
//退出word应用程序
//oWordApp.Quit(vOpt, vOpt, vOpt);
二,用VC在WORD中加入表格;
COleVariant vTrue((short)TRUE),
vFalse((short)FALSE),
vTmp,
vOpt((long)DISP_E_PARAMNOTFOUND, VT_ERROR);
//创建Word实例
_Application WrdApp;
if (!WrdApp.CreateDispatch("Word.Application", NULL))
{
AfxMessageBox("创建失败！", MB_OK | MB_SETFOREGROUND);
return;
}
Documents Docs;
_Document Doc;
Range Rng;
Table Tbl;
Tables Tbls;
//创建新文档
Docs = WrdApp.GetDocuments();
Doc = Docs.Add(vOpt, vOpt, vOpt, vOpt);
Rng=Doc.GetContent();
//{{
Tbls=Doc.GetTables(); 必须给这个变量初始化//}}
Tbls.Add(Rng,5,5,vOpt,vOpt);/。