FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
||||
|
||||
Automatizacion de word (generar documentos)
Hola de nuevo...tengo un problema a la hora de cambiar el color del texto cuando se inserta en word. El codigo es el siguiente:
Código:
//VARIABLES Variant WordApp, WordDocs, WordDoc; //ABRIR UN DOCUMENTO EN BLANCO WordApp=Variant::CreateObject("Word.Application"); WordApp.OlePropertySet("Visible", true); WordDocs=WordApp.OlePropertyGet("Documents"); AnsiString szTxtFile=ExtractFilePath(Application->ExeName)+"\prueba.doc"; WordDoc=WordDocs.OleFunction("Add"); //INSERTAR TEXTO Variant Selection = WordApp.OlePropertyGet("Selection"); Variant Font = Selection.OlePropertyGet("Font"); Font.OlePropertySet("Name","Arial"); Font.OlePropertySet("Bold","1"); Font.OlePropertySet("Size","40"); Font.OlePropertySet("Color",Edit1->Text); Selection.OleProcedure("TypeText", WideString("BEEEEEEEETIS")); Selection.OleProcedure("InsertDateTime", "dddd, dd MMMM yyyy", False); //AHI ME PETA A LA HORA DE METER EL COLOR... // SI PONGO wdColorRed,clRed,Red,ffffff,RGB(255,255,255)...TODO ESO PETA. //PERO SI PONGO UN NUMERO DE 0 HASTA 999999, FUNCIONA Y ME //DA COLORES. 0 - NEGRO 100 - MARRONCILLO 255 - ROJO 252525 - VERDOSILLO 505050 - AMARILLENTO ALGUIEN PUEDE DECIRME ALGUNA REGLA LOGICA???? GRACIAS Un saludo Antonio Última edición por dec fecha: 02-11-2005 a las 13:09:56. Razón: ¡¡Encerrad el código fuente entre las etiquetas [CODE] ... [/CODE]!! |
|
|
|