Word中Table边框设置问题?
在Excel可选择单元格的一个区域设置边框。
如下:sh.OlePropertyGet("Range","A1:C10").OlePropertyGet("Borders").OlePropertySet("linestyle",2);
//给指定区域的所有单元格加上边框,最后的数字:1=细实线框,2=短距虚线框,3=长距虚线框,4=点划线,5=双点划线,6=粗点划线
对于word中的Table,可否对于一个3行4列的表,整体设置其边框呀?
[解决办法]
OLE专业户来也!!!
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...