VC中对office的操作(3)
...{
AfxMessageBox("绘制标格时出错!");
doc.ReleaseDispatch();
docs.ReleaseDispatch();
win.ReleaseDispatch();
view.ReleaseDispatch();
ap.ReleaseDispatch();
sel.ReleaseDispatch();
font.ReleaseDispatch();
CComVariant SaveChanges(false),OriginalFormat,RouteDocument;
app.Quit(&SaveChanges,&OriginalFormat,&RouteDocument);
app.ReleaseDispatch();
return;
}
for(i = 0; i < rowNum; i++)
...{
for(j = 0; j < colNum; j++)
...{
sel.TypeText(tablestr[i][j]);
sel.MoveRight(COleVariant((short)1),COleVariant((short)1),COleVariant((short)0));
}
}
//设置标格居中
Table tb = tables.Item(1L);
//tb.AutoFitBehavior(1L);
Rows rs = tb.GetRows();
rs.SetAlignment(1);
COleVariant vTrue((short)TRUE),
vFalse((short)FALSE);
doc.SaveAs(//保存文档
COleVariant(strOutDocFile),
COleVariant((short)0),
vFalse,
COleVariant(""),
vTrue,
COleVariant(""),
vFalse,
vFalse,
vFalse,
vFalse,
vFalse);
tb.ReleaseDispatch();
rs.ReleaseDispatch();
doc.ReleaseDispatch();
docs.ReleaseDispatch();
win.ReleaseDispatch();
view.ReleaseDispatch();
ap.ReleaseDispatch();
sel.ReleaseDispatch();
font.ReleaseDispatch();
CComVariant SaveChanges(false),OriginalFormat,RouteDocument;
app.Quit(&SaveChanges,&OriginalFormat,&RouteDocument);
app.ReleaseDispatch();
}
- 上一篇:VC中的常用的20个方法
- 下一篇:VC6.0编写C/S消息传送程序