Hola amigos del foro, esperando que se encuentren bien aquí de nuevo con un problema y es el siguiente. Necesito usar una platilla de MS word y enviarle los datos desde lazarus. Uso la versión 1.4.0 de lazarus. Buscando ejemplos de como hacerlo encontre uno de tanto que hay en el foro pero al tratar de ejecutarlo me muestra el siguiente mensaje de error
"El elemento del conjunto solicitado no existe." y no se como resolver el problema estuve buscando en san google pero no encontre nada en si que me pudiera ayudar a resolverlo. Espero sus respuestas y muchas gracias de antemano saludos
Código Delphi
[-]
procedure TFrmElaborarNotificacion.SpeedButton1Click(Sender: TObject);
var
Word: Variant;
Documento,A, B, C: Variant;
w:widestring;
begin
try
w:= WideString(UTF8Decode(ExtractFilePath(AnsiToUtf8(ParamStr(0)))+ pchar('C:\Proyecto lazarus 140\sisco14\Reportes\planilla.dot')));
Word := CreateOleObject('Word.Application');
Word.Documents.open(w);
Documento := Word.Documents.Item(1);
A:='Usuario';
B:='computer #303';
C:= 'sistema operativo';
Documento.Variables.Add('Nombre', A);
Documento.Variables.Add('Direccion', B);
Documento.Variables.Add('Colonia', C);
Word.ActiveWindow.View.ShowFieldCodes := false;
Documento.Fields.Update;
Word.Visible := true;
except
on E: Exception do
ShowMessage(SysToUTF8(E.Message));
end;
end;