Ver Mensaje Individual
  #2  
Antiguo 12-01-2005
rafita rafita is offline
Miembro
 
Registrado: ago 2003
Ubicación: Cuenca- España.
Posts: 309
Reputación: 23
rafita Va por buen camino
Hola a todos otra vez.

Lo solucioné de forma poco fina: recopilo toda la información en una cadena (String) y sustituyo el marcador por esa cadena.

Código:
AcumuladorTexto:='';
// añadimos los intereses de cada año
  if StrToFloat(Edit20.Text)<>0 then // 1999 _________________________________
    AcumuladorTexto:=AcumuladorTexto+Format('%8.2m',[StrToFloat(Edit21.Text)])+#13;
  if StrToFloat(Edit23.Text)<>0 then // 2000 _________________________________
       AcumuladorTexto:=AcumuladorTexto+Format('%8.2m',[StrToFloat(Edit24.Text)])+#13;
  if StrToFloat(Edit26.Text)<>0 then // 2001 _________________________________
     AcumuladorTexto:=AcumuladorTexto+Format('%8.2m',[StrToFloat(Edit26.Text)])+#13;
  if StrToFloat(Edit29.Text)<>0 then // 2002 _________________________________
     AcumuladorTexto:=AcumuladorTexto+Format('%8.2m',[StrToFloat(Edit29.Text)])+#13;
  if StrToFloat(Edit46.Text)<>0 then // 2003 _________________________________
     AcumuladorTexto:=AcumuladorTexto+Format('%8.2m',[StrToFloat(Edit47.Text)])+#13;
  if StrToFloat(Edit49.Text)<>0 then // 2004 _________________________________
     AcumuladorTexto:=AcumuladorTexto+Format('%8.2m',[StrToFloat(Edit49.Text)])+#13;
  if StrToFloat(Edit52.Text)<>0 then // 2005 _________________________________
     AcumuladorTexto:=AcumuladorTexto+Format('%8.2m',[StrToFloat(Edit53.Text)])+#13;
  Marcador:='MIntereses1';
  Contenido:=AcumuladorTexto;
  if MiDocumento.Bookmarks.Exists(Marcador) then MiDocumento.Bookmarks.Item(Marcador).Range.InsertBefore(Contenido);
De cualquier forma ¿alguien sabe cómo posicionarse en un punto del documento word?

Ta'luego
__________________
Rafita.
Responder Con Cita