VC操作Word 2000

随笔之：VC操作Word系列(四)

yingkou的Blog — Mon, 15 Nov 2004 20:39:00 GMT

随笔之：VC操作Word系列(三)

yingkou的Blog — Wed, 10 Nov 2004 00:43:00 GMT

随笔之：VC操作Word系列(二)

yingkou的Blog — Fri, 05 Nov 2004 19:35:00 GMT

大家都应该使用过Word提供的表格功能很是专业，如果在作一些数据库开发之类的软件对汇总的数据进行打印是常见的功能，这个如果用Word来实现个人感觉不错，废话少说说练咱就练。

void CWordTestDlg::TestWord2()

_Application app;

COleVariant vTrue((short)TRUE),	vFalse((short)FALSE);

app.CreateDispatch(_T("Word.Application"));

app.SetVisible(FALSE);

//Create New Doc

Documents docs=app.GetDocuments();

CComVariant tpl(_T("")),Visble,DocType(0),NewTemplate(false);

docs.Add(&tpl,&NewTemplate,&DocType,&Visble);

//Add Content:Text

Selection sel=app.GetSelection();

sel.TypeText(_T("\t\t\t\t\t\t\t情况汇总\r\n"));

sel.TypeText(_T("\t\t\t\t\t\t\t\t----------*******跨国公司\r\n"));

COleDateTime dt=COleDateTime::GetCurrentTime();

CString strDT=dt.Format("%Y-%m-%d");

CString str("\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t");

str+=strDT;

str+="\r\n";

sel.TypeText(str);

//Add Table

_Document saveDoc=app.GetActiveDocument();

Tables tables=saveDoc.GetTables();

CComVariant defaultBehavior(1),AutoFitBehavior(1);

tables.Add(sel.GetRange(),6,11,&defaultBehavior,&AutoFitBehavior);

Table table=tables.Item(1);

sel.TypeText(_T("Test1"));

sel.MoveRight(COleVariant((short)1),COleVariant(short(1)),COleVariant(short

(0)));

sel.TypeText(_T("Test2"));

sel.MoveRight(COleVariant((short)1),COleVariant(short(1)),COleVariant(short(0)));

sel.TypeText(_T("Test3"));

sel.MoveRight(COleVariant((short)1),COleVariant(short(1)),COleVariant(short(0)));

sel.TypeText(_T("Test4"));

sel.MoveRight(COleVariant((short)1),COleVariant(short(1)),COleVariant(short<(0)));

sel.TypeText(_T("Test5"));

sel.MoveRight(COleVariant((short)1),COleVariant(short(1)),COleVariant(short(0)));

sel.TypeText(_T("Test6"));

sel.MoveRight(COleVariant((short)1),COleVariant(short(1)),COleVariant(short(0)));

sel.TypeText(_T("Test7"));

sel.MoveRight(COleVariant((short)1),COleVariant(short(1)),COleVariant(short(0)));

sel.TypeText(_T("Test8"));

sel.MoveRight(COleVariant((short)1),COleVariant(short(1)),COleVariant(short(0)));

sel.TypeText(_T("Test9"));

sel.MoveRight(COleVariant((short)1),COleVariant(short(1)),COleVariant(short(0)));

sel.TypeText(_T("Test10"));

sel.MoveRight(COleVariant((short)1),COleVariant(short(1)),COleVariant(short(0)));

sel.TypeText(_T("Test11"));

app.SetVisible(TRUE);

table.ReleaseDispatch();

tables.ReleaseDispatch();

sel.ReleaseDispatch();

docs.ReleaseDispatch();

saveDoc.ReleaseDispatch();

app.ReleaseDispatch();

随笔之：VC操作Word系列(一)

yingkou的Blog — Mon, 01 Nov 2004 15:47:00 GMT

近日作一个小东西涉及到对汇总结果的打印，由于打印只在一台特定的机器进行所以考虑使用Word来实现，这样比较简单而且很专业。开始的时候这个东西没有这项功能后来我闲的无聊看看是否可以实现(以前从来没有做过这方面的东西)，于是乎搞了一下也不是很难，一点心得大家给指点一二，使用的是Office2000，工程类型是MFC的对话框。先看看需要使用到的东东： 1.View->ClassWizard->Automation->Add Class From Library:定位到你安装Office的目录找到MSWord9.Olb 2.打开后把所有的类都选中倒入到你的工程(反正也是搞一回彻底一点:P) 3.在你的对话框头文件中加上#include"msword9.h" OK了准备工作搞定之后就可以玩儿转Word了,先来一个简单的

void TestWord1()

 _Application app;

COleVariant vTrue((short)TRUE),	vFalse((short)FALSE);

app.CreateDispatch(_T("Word.Application"));

app.SetVisible(FALSE);

//Create New Doc

Documents docs=app.GetDocuments();

CComVariant tpl(_T("")),Visble,DocType(0),NewTemplate(false);

docs.Add(&tpl,&NewTemplate,&DocType,&Visble);

//Add Content:Text

Selection sel=app.GetSelection();

sel.TypeText(_T("\t\t\t\t\t第一次玩儿Word\r\n"));

sel.TypeText(_T("\t\t\t\t\t\t\t\t----------先来一个简单的\r\n"));

sel.ReleaseDispatch();

docs.ReleaseDispatch();

app.SetVisible(TRUE);

app.ReleaseDispatch();