Yo solo lo usé en C++Builder 6 y no para Excel pero te pongo lo que tengo por si te ayuda en algo.
Para Word:
Código PHP:
void __fastcall TForm1::ButtonExportToWordClick(TObject *Sender)
{
Variant WordApplication, vSelect, Shapes, ActiveDocument;
LPTSTR s;
int retval;
char valorDeLaClave[1024];
retval = LeerClaveRegistro(HKEY_CLASSES_ROOT, "Word.Application\\CurVer", "", valorDeLaClave);
if(retval != 0)
{
retval = LeerClaveRegistro(HKEY_LOCAL_MACHINE, "SOFTWARE\\Classes\\Word.Application\\CurVer", "", valorDeLaClave);
if(retval != 0)
{
FormatMessage(FORMAT_MESSAGE_ALLOCATE_BUFFER |
FORMAT_MESSAGE_FROM_SYSTEM,
NULL,
retval,
0,
(LPTSTR)&s,
0,
NULL);
MessageBoxA(Application->Handle, AnsiString("Huvo un error al obtener la clase de la version de Word.\n" + AnsiString(s)).c_str(), "Error", MB_OK | MB_ICONERROR | MB_APPLMODAL);
return;
}
}
SaveDialog->Filter = "Documento de Word (*.doc)|*.doc";
SaveDialog->FileName = "Diagramas.doc";
if(SaveDialog->Execute())
{
try
{
//WordApplication = CreateOleObject(valorDeLaClave);
WordApplication = CreateOleObject("Word.Application");
}
catch(...)
{
MessageBox(Handle, "No se pudo iniciar el Word. ¿Está instalado?" , "Error", MB_OK |MB_ICONERROR | MB_APPLMODAL);
WordApplication = Unassigned;
return;
}
WordApplication.OlePropertySet("Visible", false);
WordApplication.OlePropertyGet("Documents").OleProcedure("Add");
ActiveDocument = WordApplication.OlePropertyGet("ActiveDocument");
vSelect = WordApplication.Exec(PropertyGet("Selection"));
//Reducimos los margenes poniendolos todos a 5
ActiveDocument.OlePropertyGet("PageSetup").OlePropertySet("TopMargin", 5);
ActiveDocument.OlePropertyGet("PageSetup").OlePropertySet("BottomMargin", 5);
ActiveDocument.OlePropertyGet("PageSetup").OlePropertySet("LeftMargin", 5);
ActiveDocument.OlePropertyGet("PageSetup").OlePropertySet("RightMargin", 5);
//Ponemos la alineacion horizontal en centrada
vSelect.OlePropertyGet("ParagraphFormat").OlePropertySet("Alignment", wdAlignParagraphCentre);
//Ponemos la alineacion vertica en centrada
ActiveDocument.OlePropertyGet("PageSetup").OlePropertySet("VerticalAlignment", wdAlignParagraphCentre);
for(int i = 0; i < CheckListBox->Count; i++)
{
if(CheckListBox->Checked[i] == true)
{
/* Podemos hacerlo usando el portapapeles */
//Ponemos la imagen tildada en el TImage
//Image->Picture->LoadFromFile(ChangeFileExt(CheckListBox->Items->Strings[i], ".bmp"));
//La copiamos al portapapeles
//PopupMenu->Items->Items[0]->Click();
//Pegamos la imagen dentro del documento de Word
//vSelect.OleProcedure("Paste");
/* O podemos hacerlo usando AddPicture para añadir directamente el archivo de imagen */
Shapes = vSelect.OlePropertyGet("InlineShapes");
Shapes.OleFunction("AddPicture", AnsiString(ChangeFileExt(CheckListBox->Items->Strings[i], ".bmp")).c_str(), false, true);
//Añadimos un salto de pagina cada vez que se añada una nueva imagen excepto cuando sea la ultima imagen
if(i != CheckListBox->Count -1)
vSelect.OleFunction("InsertBreak", 0);
Application->ProcessMessages();
}
}
//Guardamos el archivo
AnsiString salida = ChangeFileExt(SaveDialog->FileName, ".doc");
ActiveDocument.OleProcedure("SaveAs", salida.c_str());
//Cerramos el Word
WordApplication.OleProcedure("Quit");
//Limpiamos las variables usadas
ActiveDocument.Clear();
WordApplication.Clear();
vSelect.Clear();
Shapes.Clear();
MessageBoxA(Application->Handle, "Imagenes exportadas satisfactoriamente.", "Información", MB_OK | MB_ICONINFORMATION | MB_APPLMODAL);
}
}
Para PowerPoint:
Código PHP:
void __fastcall TForm1::ButtonExportToPowerPointClick(TObject *Sender)
{
Variant PowerPointApp, Slide, Shapes, ActivePresentation;
LPTSTR s;
int retval;
char valorDeLaClave[1024];
retval = LeerClaveRegistro(HKEY_CLASSES_ROOT, "PowerPoint.Application\\CurVer", "", valorDeLaClave);
if(retval != 0)
{
retval = LeerClaveRegistro(HKEY_LOCAL_MACHINE, "SOFTWARE\\Classes\\PowerPoint.Application\\CurVer", "", valorDeLaClave);
if(retval != 0)
{
FormatMessage(FORMAT_MESSAGE_ALLOCATE_BUFFER |
FORMAT_MESSAGE_FROM_SYSTEM,
NULL,
retval,
0,
(LPTSTR)&s,
0,
NULL);
MessageBoxA(Application->Handle, AnsiString("Huvo un error al obtener la clase de la version de Word.\n" + AnsiString(s)).c_str(), "Error", MB_OK | MB_ICONERROR | MB_APPLMODAL);
return;
}
}
SaveDialog->Filter = "Presentacion de PowerPoint (*.ppt)|*.ppt";
SaveDialog->FileName = "Diagramas.ppt";
if(SaveDialog->Execute())
{
try
{
//PowerPointApp = CreateOleObject(valorDeLaClave);
PowerPointApp = CreateOleObject("PowerPoint.Application");
}
catch(...)
{
MessageBox(Handle, "No se pudo iniciar el PowerPoint. ¿Está instalado?" , "Error", MB_OK |MB_ICONERROR | MB_APPLMODAL);
PowerPointApp = Unassigned;
return;
}
PowerPointApp.OlePropertySet("Visible",true);
//Aqui está la presentacion activa
ActivePresentation = PowerPointApp.OlePropertyGet("Presentations").OleFunction("Add");
TImage *imagen = new TImage(Application);
for(int i = 0, contador = 1; i < CheckListBox->Count; i++)
{
if(CheckListBox->Checked[i] == true)
{
//Aqui le decimos que queremos que la presentacion tenga tamaño Dim A4
ActivePresentation.OlePropertyGet("PageSetup").OlePropertySet("SlideSize", ppSlideSizeA4Paper);
//Aqui le decimos que la orientacion del papel será vertical
ActivePresentation.OlePropertyGet("PageSetup").OlePropertySet("SlideOrientation",2);
//Aqui creamos una pagina de la presentacion
Slide = ActivePresentation.OlePropertyGet("Slides").OleFunction("Add",contador,12);
contador++;
//Abrimos la imagen en un TImage para poder obtener su ancho y su alto
imagen->Picture->Bitmap->LoadFromFile(ChangeFileExt(CheckListBox->Items->Strings[i],".bmp"));
//Metemos la imagen en el Shape
Shapes = Slide.OlePropertyGet("Shapes").OleFunction("AddPicture", ChangeFileExt(CheckListBox->Items->Strings[i],".bmp").c_str(), false, true, 0, 0, imagen->Picture->Bitmap->Width, imagen->Picture->Bitmap->Height);
//Ponemos el ajuste de la imagen para que se ajuste ancho y alto proporcionalmente
Shapes.OlePropertySet("LockAspectRatio", true);
//guardamos el ancho y alto de la imagen en dos variables
int deltay = imagen->Picture->Bitmap->Height - MAXHEIGHTPP;
int deltax = imagen->Picture->Bitmap->Width - MAXWIDTHPP;
float porcentaje;
//Averiguamos el ancho y alto apropiados para la imagen
if(deltay > deltax && deltay > 0)
{
porcentaje = (100.0 * MAXHEIGHTPP) / imagen->Picture->Bitmap->Height;
Shapes.OlePropertySet("Width", imagen->Picture->Bitmap->Width - ((imagen->Picture->Bitmap->Width - (imagen->Picture->Bitmap->Width * porcentaje / 100))));
Shapes.OlePropertySet("Height", imagen->Picture->Bitmap->Height - ((imagen->Picture->Bitmap->Height - (imagen->Picture->Bitmap->Height * porcentaje / 100))));
}
else if(deltax > deltay && deltax > 0)
{
porcentaje = (100.0 * MAXWIDTHPP) / imagen->Picture->Bitmap->Width;
Shapes.OlePropertySet("Width", imagen->Picture->Bitmap->Width - ((imagen->Picture->Bitmap->Width - (imagen->Picture->Bitmap->Width * porcentaje / 100))));
Shapes.OlePropertySet("Height", imagen->Picture->Bitmap->Height - ((imagen->Picture->Bitmap->Height - (imagen->Picture->Bitmap->Height * porcentaje / 100))));
}
//Si la imagen tiene un ancho y alto inferiores al maximo no hace falta ajustarlos
//Recuperamos el ancho y alto de la imagen en la presentacion
deltay = Shapes.OlePropertyGet("Height");
deltax = Shapes.OlePropertyGet("Width");
//Calculamos la posicion Left y Top
int posX = (MAXWIDTHPP - deltax) / 2;
int posY = (MAXHEIGHTPP - deltay) / 2;
//Posicionamos la imagen centrada
Shapes.OlePropertySet("Top", posY);
Shapes.OlePropertySet("Left", posX);
Application->ProcessMessages();
}
}
//Guardamos el archivo
AnsiString salida = ChangeFileExt(SaveDialog->FileName, ".ppt");
SaveDialog->FileName = salida;
ActivePresentation.OleProcedure("SaveAs", salida.c_str());
//Cerramos el Word
PowerPointApp.OleProcedure("Quit");
//Limpiamos las variables usadas
ActivePresentation.Clear();
PowerPointApp.Clear();
Slide.Clear();
Shapes.Clear();
delete(imagen);
MessageBoxA(Application->Handle, "Imagenes exportadas satisfactoriamente.", "Información", MB_OK | MB_ICONINFORMATION | MB_APPLMODAL);
}
}
Y esta es la funcion que me creé para leer la clave de registro y saber si estaba insalado el office:
Código PHP:
int LeerClaveRegistro(HKEY hKey, char *clave, char *nombreClave, char *valorDeLaClave)
{
unsigned char infoValor[1024];
HKEY phkResult;
LONG IStatus;
DWORD dwType=REG_SZ;
DWORD dwSize=1023;
LPTSTR s;
IStatus = RegOpenKeyEx(hKey, clave, 0, KEY_READ, &phkResult);
if(IStatus == ERROR_SUCCESS)
{
IStatus = RegQueryValueEx(phkResult,nombreClave,0,&dwType,(LPBYTE)&infoValor,&dwSize);
if(IStatus == ERROR_SUCCESS)
{
strcpy(valorDeLaClave, infoValor);
RegCloseKey(phkResult);
}
}
/*FormatMessage(FORMAT_MESSAGE_ALLOCATE_BUFFER |
FORMAT_MESSAGE_FROM_SYSTEM,
NULL,
IStatus,
0,
(LPTSTR)&s,
0,
NULL);
MessageBoxA(Application->Handle, s, "Error", MB_OK | MB_ICONERROR | MB_APPLMODAL); */
return IStatus;
}
Una cosa que veo que no haces es liberar al objeto al terminar con "Quit". No se si esto funcionaría tal cual en la 2010 pero en la 6 va como la seda.
Al leer el registro obtienes la version y si no está instalado pues lo sabrás tambien.
|