Ver Mensaje Individual
  #4  
Antiguo 11-07-2006
Avatar de Neftali [Germán.Estévez]
Neftali [Germán.Estévez] Neftali [Germán.Estévez] is offline
[becario]
 
Registrado: jul 2004
Ubicación: Barcelona - España
Posts: 18.285
Reputación: 10
Neftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en bruto
Bueno, pues abre un proyecto nuevo y coloca un botón con el siguiente código:


Código Delphi [-]
var
  Word: Variant;
  Documento: Variant;
begin
  // Crear el objeto
  Word := CreateOleObject('Word.Application');
  // Abrir el documento que necesirtes
  Word.Documents.Open('C:\Temp\info_english.doc');
  // Maximizar ventana (1)
  Word.ActiveWindow.WindowState := wdWindowStateMaximize;
  // Hace visible la ventana de Word
  Word.Visible:=True;
  // Mandar el cursor al final (2)
  Word.Selection.EndKey(wdStory); 

  ...

Debes añadir al uses la unit ComObj;
Las constantes marcadas en rojo, están definidas en unas units que suelen estar en éste directorio:
"c:\Archivos de programa\Borland\Delphi6\Ocx\Servers\"
Verás que hay para Word97, Word2000,...

En mi caso he añadido al uses también la unit Word2000.

Un saludo.
__________________
Germán Estévez => Web/Blog
Guía de estilo, Guía alternativa
Utiliza TAG's en tus mensajes.
Contactar con el Clubdelphi

P.D: Más tiempo dedicado a la pregunta=Mejores respuestas.
Responder Con Cita