Cordial saludo
Tengo un problema a la hora de usar el método Open de los word automation en Lazarus, este es mi código:
Código Delphi
[-]
for i:=0 to CantidadDeArchivos-1 do
begin
RutaArchivoActual:=ExtractFilePath(Application.exename)+carpeta+'\'+ListaDeArchivos[i]+'.doc';
dw.Documents.Open(RutaArchivoActual);
end;
Anteriormente haciendo pruebas abrí un documento por ejemplo:
Código Delphi
[-]dw.Documents.Open('C:/documento.doc');
dentro del ciclo for, y lo hace correctamente, pero cuando pongo el nombre del archivo como una variable como es RutaArchivoActual, me lanza el error "espacio de almacenamiento insuficiente para completar esta información". Me puse a investigar en el foro y encontré que cuando el nombre de archivo es variable, se le ponen más parámetros a Open, por ejemplo:
Código Delphi
[-]Document := Word.Documents.Open(NombreDoc,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,fals e);
Pero cuando hago esto, lazarus me dice que no reconoce a EmptyParam, que no está definido; luego investigué en el boletín 6 de rinconcito delphi y da un ejemplo:
Código Delphi
[-]dw.Documents.Open(RutaArchivoActual,0,0,0,'','',1,'','',0);
pero al hacer esto, me sale un error diciendo que "word ha dejado de funcionar", lo mismo pasa cuando intento usar otras opciones como.
Código Delphi
[-]dw.Documents.Open(RutaArchivoActual,null,null,null);
Mi interés es que el nombre de archivo sea variable porque mi aplicación debe hacer una búsqueda dentro de muchos archivos word.
De antemano gracias por sus respuestas y su interés.