como abrir ficheros con Word

[Quin]

Hola de nuevo!!
Quiero hacer que cuando pinche sobre un botón, se me abra Microsoft Word y me carge un fichero determinado. ¿Cómo se hace?

[roman]

¿Qué tal así?

Código Delphi [-]
var
  WordApp: OleVariant;

begin
  WordApp := ComObj.CreateOleObject('Word.Application');
  WordApp.Documents.Open('C:\ruta\al\archivo.doc');
  WordApp.Visible := true;
end;

Debes incluir la unidad ComObj.

// Saludos

[delphi.com.ar]

Código Delphi [-]
uses
  ShellAPI;

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShellExecute(Handle, 'open', 'c:\MiArchivo.doc', nil, nil, SW_SHOW);
end;

Y que lo abra quien lo tenga registrado!

Saludos!

[roman]

Empezado por delphi.com.ar

Una respuesta mucho más directa

En mi defensa diré que acababa de contestar una pregunta para manipular Excel y por ello andaba pensando en OLE.



// Saludos

[Quin]

Muchas gracias por vuestras contestaciones pero os agradecería que me lo pasárais a c++ builder que es con el que trabajo.

muchas gracias y saludos

PD. El problema es que no tengo idea de Delphi

[delphi.com.ar]

Si trebajas en C++ Builder, no tendrías que tener muchos inconvenientes en traducir tan pocas líneas:

#include <ShellAPI.h>
...
void __fastcall TForm1::Button1Click(TObject *Sender)
{
  ShellExecute(Handle, "open", "c:\MiArchivo.doc", NULL, NULL, SW_SHOW);
}

[Quin]

hola a todos de nuevo. Muchas gracias por interesaros por mi consulta pero sigo sin poder resolverla.

delphi.com.ar, pongo el ShellExecute pero no consigo que se abra el word, co nlo que sigo sin ver el documento. Ni siquiera consigo que se abra la aplicación. ¿Qué es lo que hago mal?

Muchas gracias y un saludo

[delphi.com.ar]

Empezado por Quin

...pongo el ShellExecute pero no consigo que se abra el word, co nlo que sigo sin ver el documento. Ni siquiera consigo que se abra la aplicación. ¿Qué es lo que hago mal?

Mmmmm... cuándo haces doble click desde el explorador en un .doc te abre el word??...
Prueba separando la ruta del nombre del archivo.

Saludos!

[[seoane]]

Solo un apunte, en C no debería ponerse así:

ShellExecute(Handle, "open", "c:\\MiArchivo.doc", NULL, NULL, SW_SHOW)

Es decir doble barra en vez de poner una sola barra.

[Quin]

Buenas!!

Creo que no entiendo los últimos mensajes que me habeis mandado y creo que vosotros a mí tampoco así que ahí os pongo el código y ahora os explico lo que quiero hacer.

void __fastcall TF_LibroActas::AbrirDocumento(TObject *Sender)
{
AnsiString Path=ExtractFileDir(Application->ExeName) + "\\Ficheros\\prueba.rtf";
ShellExecute(Handle, "open", Path, NULL, NULL, SW_SHOW);
}

Lo que quiero es que cuando haga clic en un botón se me habra en Word el documento prueba.rtf

tal y como está ahora me salen dos fallos:
[C++ Error] LibroActas.cpp(23): E2034 Cannot convert 'AnsiString' to 'const char *'
[C++ Error] LibroActas.cpp(23): E2342 Type mismatch in parameter 'lpFile' (wanted 'const char *', got 'AnsiString')

Espero vuestra ayuda y muchas gracias por ella.

Saludos

[[seoane]]

Antes de nada decir que de builder se apenas nada, pero creo que la solución podría ser algo así:

  ShellExecute(Handle, "open", Path.c_str(), NULL, NULL, SW_SHOW);

¿funciona así?

[Quin]

uuuuuueeeeeeeeeeeeeeeeeeeeee!!!!!!!!!

FUNCIONAAAA!!

Muchas gracias a todos

[destrukthor]

hola a todos..
Quiero abrir el Word creando un documento nuevo a partir de un nombre q yo le digite en un edit.
Se que hay varios hilos en el foro pero ninguno hace referencia este problema q tengo, y aquellos hilo que envian a otros enlaces todos estan en ingles y yo no soy bilingue lo siento por dar estos problemas pero necesito saber y cada dia mas.
Aaaahhh por sierto ya resolvi mis problemas con las relaciones y sus indices, pronto escribire esas respuesas.
Gracias de ante mano...