PERFECTO!!!
Unos cracks...
otraaaaaa preguntita...ahora quiero meter una tabla...estoy probando este codigo...pero ni me escribe nada en las celdas (deberia), ni me aparece si le doy una vista previa, aunque en diseño si aparece:
Código:
Variant Selection = WordApp.OlePropertyGet("Selection");
Variant selRange = Selection.OlePropertyGet("Range");
Variant docTables = WordDoc.OlePropertyGet("Tables");
docTables.OleFunction("Add", selRange, (Variant) 1, (Variant) 6);
// Address the table
Variant docTable1 = docTables.OleFunction("Item", (Variant) 1);
// Update some cells
Variant tableCell = docTable1.OleFunction("Cell", (Variant) 1,(Variant) 1);
Variant cellRange = tableCell.OlePropertyGet("Range");
cellRange.OlePropertySet("Text", (Variant) "1-1");
tableCell = docTable1.OleFunction("Cell", (Variant) 1, (Variant) 2);
cellRange = tableCell.OlePropertyGet("Range");
cellRange.OlePropertySet("Text", (Variant) "1-2");
GRACIAS
Un saludo
Antonio