您的位置:首页 > 其它

VC操作Word之(四)

2007-01-19 10:41 459 查看
上一回讲了如何合并单元格,这次来说说如何填充单元格以及如何对合并后的单元格的内容让他居中显示这样能够看得舒服一点:)。代码如下所示:
void CWordTestDlg::TestWord4()

{

_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");

COleDateTimeSpan span(1,0,0,0);

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

CString strDate[]={strDT1,strDT};

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(),7,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"));

int i=0,j=0;

for(i=2;i<7;i+=2)

{

Cell c1=table.Cell(i,1);

Cell c2=table.Cell(i+1,1);

c1.Merge(c2);

c1.ReleaseDispatch();

c2.ReleaseDispatch();

}

Cell c;

CString strName[]={"yingkou","zyq654321","iwaswzq"};

for(j=0,i=0;i<3;++i,j+=2)

{

c=table.Cell(j+2,1);

c.Select();

Cells cs=sel.GetCells();

cs.SetVerticalAlignment(1);

sel.TypeText(strName[i]);

sel.MoveDown(COleVariant((short)5),COleVariant(short(1)),COleVariant(short(0)));

cs.ReleaseDispatch();

c.ReleaseDispatch();

}

c=table.Cell(7,1);

c.Select();

for(i=0,j=0;i<6;++i,++j)

{

if(i%2==0)

j=0;

sel.TypeText(strDate[j]);

sel.MoveUp(COleVariant((short)5),COleVariant(short(1)),COleVariant(short(0)));

}

c.ReleaseDispatch();

app.SetVisible(TRUE);

table.ReleaseDispatch();

tables.ReleaseDispatch();

sel.ReleaseDispatch();

docs.ReleaseDispatch();

saveDoc.ReleaseDispatch();

app.SetVisible(TRUE);

app.ReleaseDispatch();

}
内容来自用户分享和网络整理,不保证内容的准确性,如有侵权内容,可联系管理员处理 点击这里给我发消息
标签: