Automatizacion de word (generar documentos)

[alt126]

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:

  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