1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
|
myTable = vWDocument.OlePropertyGet("Tables").OleFunction("Item", "1");
myTable.OleFunction("Cell", 2, 1).OleFunction("Select");
vMSWord.OlePropertyGet("Selection").OleFunction("EndOf", 9, 1);
//
myTable = vWDocument.OlePropertyGet("Tables").OleFunction("Item", "1");
myTable.OleFunction("Cell", 2, 1).OleFunction("Select");
vMSWord.OlePropertyGet("Selection").OleFunction("EndKey", 6, 0);
//
myTable = vWDocument.OlePropertyGet("Tables").OleFunction("Item", "1");
myRange = vWDocument.OleFunction("Range", myTable.OleFunction("Cell", 1, 1)
.OlePropertyGet("Range").OlePropertyGet("Start"), myTable.OleFunction("Cell", 1, 3).OlePropertyGet("Range").OlePropertyGet("End"));
// on change la Font de la selection
myRange.OlePropertyGet("Font").OlePropertySet("Bold",true);
// on fusionne la selection
myRange.OlePropertyGet("Cells").OleProcedure("Merge"); |
Partager