Error de parametros al intentar abrir un archivo Word

[ilichhernandez]

Hola amigos, estoy intentando abrir un archivo word desde mi aplicacion, utilizando el componente WordApplication, he revisado minusiosamente este foro y otros tantos en la red y he encontrado varios codigos interesantes pero por algun motivo me apaerce generalmente el mismo error....

el error es "Not enough actual parameters", que quiere decir que no estan todos los parametros, pero no se que me falta....
el codigo que estoy probando es el siguiente....

Código Delphi [-]
procedure Tfprincipal.Button2Click(Sender: TObject);
var
DocWord:_Document;
 FileName: OleVariant;
 Visible: OleVariant;
begin
FileName:= 'Document.doc'; 
Visible:=True;  
DocWord:= WordApplication1.Documents.Open(FileName,EmptyParam,EmptyParam,
            EmptyParam,EmptyParam,EmptyParam,EmptyParam,
            EmptyParam,EmptyParam,EmptyParam,EmptyParam,Visible));
end;

Agradeciendo la buena disposicion de los compañeros de foro me despido.
Atentamente
Roberto Hernandez.

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

Lo primero que deberías comentar es qué versión de Delphi está utilizando y qué versión de Word intentas abrir.

[ilichhernandez]

Lo lamento.... se me fue ese "detalle".... estoy trabajando con Delphi 7 y tratando de abrir Word 2003.

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

El código que has puesto es incompleto; Prueba con este:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  Word: Variant;
  Documento: Variant;
begin
  // Crear el objeto
  Word := CreateOleObject('Word.Application');
  // Abrir el documento que necesirtes
  Word.Documents.Open('C:\document.doc');
  // Maximizar ventana (1)
  Word.ActiveWindow.WindowState := wdWindowStateMaximize;
  // Hace visible la ventana de Word
  Word.Visible:=True;
end;

Añade al uses uses ComObj, Word2000;

[Loviedo]

Prueba con esto:

DocWord.ConnectTo(WordApplication1.Documents.open(Filename,EmptyParam,EmptyParam,
EmptyParam,EmptyParam,EmptyParam,
EmptyParam,EmptyParam,EmptyParam,
EmptyParam,EmptyParam,EmptyParam,
EmptyParam,EmptyParam,EmptyParam));
Saludos.

[ilichhernandez]

Muchas gracias... con ese codigo los documentos se abren sin problemas....

[Jovana Macias]

Ese Codigo Al Igual A Mi Tambien Me Funciono...gracias Por Aportar Buenos Conocimientos

Saludos

[[Al González]]

¡Hola a todos!

Ha pasado algo de tiempo, pero creo que a alguien podría servirle el truco de hacer un molde de tipo OleVariant sobre el objeto de automatización que corresponda:

Ejemplo:

Código Delphi [-]
OleVariant (Aplicacion.Documents).Open (Archivo, EmptyParam,
  EmptyParam, EmptyParam, EmptyParam, EmptyParam, False);

Esto es gracias a que muchos de los parámetros de los métodos OLE son opcionales. En el ejemplo anterior me interesa especificar "False" como valor del séptimo parámetro e ignorar el resto.

Un abrazo variante, ¡ole!

Al González.