Buenas a todos,
Intento utilizar Word para realizar cartas personalizadas partiendo de datos de un formulario.
No es un "mailmerge" porque el origen de datos no es una base de datos, sino campos de un formulario, campos calculados,.... Por tanto en el documento Word no utilizo los campos combinados sino marcadores, que aunque son más torpes me sirven para mis propósitos:
Código:
Marcador:='MFecha_Diligencia1';
Contenido:=FechaLiteral(Edit36.Text);
if MiDocumento.Bookmarks.Exists(Marcador) then
MiDocumento.Bookmarks.Item(Marcador).Range.InsertBefore(Contenido);
El problema surge cuando en una determinada posición quiero insertar una serie INDETERMINADA de párrafos:
Código:
// utilizo este marcador para posicionar el cursor en el punto donde queremos
Marcador:='MIntereses1';
Contenido:='';
if MiDocumento.Bookmarks.Exists(Marcador) then MiDocumento.Bookmarks.Item(Marcador).Range.InsertBefore(Contenido);
// creamos un párrafo nuevo por cada año que tiene intereses
if StrToFloat(Edit20.Text)<>0 then // 1999 _________________________________
begin
MiDocumento.Range(EmptyParam, EmptyParam).InsertParagraphAfter;
MiDocumento.Paragraphs.Last.Range.Text:=Format('%8.2m',[StrToFloat(Edit21.Text)]);
end;
if StrToFloat(Edit23.Text)<>0 then // 2000 _________________________________
begin
MiDocumento.Range(EmptyParam, EmptyParam).InsertParagraphAfter;
MiDocumento.Paragraphs.Last.Range.Text:=Format('%8.2m',[StrToFloat(Edit24.Text)]);
end;
....
Supuse que al sustituir el marcador MIntereses1 por un espacio en blanco el cursor de inserción se situaría allí, y los nuevos párrafos que inserto irian tras dicho espacio, pero no funciona así sino que se situa al final del documento.
¿alguien puede darme alguna pista? ¿alternativas?
Gracias a todos