首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 开发语言 > C++ Builder >

Word中Table边框设置有关问题

2012-10-14 
Word中Table边框设置问题?在Excel可选择单元格的一个区域设置边框。如下:sh.OlePropertyGet(Range,A1:C1

Word中Table边框设置问题?
在Excel可选择单元格的一个区域设置边框。
如下:sh.OlePropertyGet("Range","A1:C10").OlePropertyGet("Borders").OlePropertySet("linestyle",2);
//给指定区域的所有单元格加上边框,最后的数字:1=细实线框,2=短距虚线框,3=长距虚线框,4=点划线,5=双点划线,6=粗点划线
对于word中的Table,可否对于一个3行4列的表,整体设置其边框呀?

[解决办法]
OLE专业户来也!!!

C/C++ code
Variant vWordApp;try{    vWordApp = Variant::CreateObject("Word.Application");}catch(...){    MessageBox(Handle, "启动Word出错!",            Application->Title.c_str(), MB_OK | MB_ICONERROR);    return;}vWordApp.OlePropertySet("Visible", true);Variant vDoc = vWordApp.OlePropertyGet("Documents").OleFunction("Add");vWordApp.OlePropertyGet("ActiveDocument")        .OlePropertyGet("Tables").OleProcedure("Add",        vWordApp.OlePropertyGet("Selection").OlePropertyGet("Range"),        3, // NumRows        4, // NumColumns        1, // DefaultTableBehavior:=wdWord9TableBehavior        0); // AutoFitBehavior:=wdAutoFitFixedVariant vTable = vWordApp.OlePropertyGet("ActiveDocument").        OleFunction("Range").OlePropertyGet("Tables").OleFunction("Item", 1);vTable.OlePropertyGet("Borders").OlePropertySet("InsideLineStyle", 5); // wdLineStyleDashDotvTable.OlePropertyGet("Borders").OlePropertySet("OutsideLineStyle", 20); // wdLineStyleDashDotStroked... 

热点排行