Automatizacion de word (generar documentos)

[Neftali [Germán.Estévez]]

Empezado por alt126

LA REGLA DE COLORES ES LA SIGUIENTE:

0 - NEGRO
100 - MARRONCILLO
255 - ROJO
252525 - VERDOSILLO
505050 - AMARILLENTO

ALGUIEN PUEDE DECIRME ALGUNA REGLA LOGICA????

Esos son los números en decimal del color; Coge la calculadora de Windows, conviértelos a hexadecimal y obtendrás el valor que puedes probar en Delphi, por ejemplo:

$0 - NEGRO
$64 - MARRONCILLO
$FF - ROJO
$3D6AD - VERDOSILLO
$7B4DA - AMARILLENTO

Si colocas esos valores en Delphi, verás como obtienes esos colores, por lo tanto haciendo lo contrario puedes obtener el valor decimal del color que quieras.

[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

[Neftali [Germán.Estévez]]

Nueva pregunta, nuevo hilo.
Escribe un hilo nuevo con la referencia a la nueva pregunta, es mejor, más fácil de seguir luego y tendrás más probabilidades de que te contesten.
De todas formas y antes de ponerlo haz una búsqueda en los foros, me suena que éste tema (word y tablas) ya se ha hablado.