pabloloustau
23-02-2010, 18:55:31
hola a todos!!
uso este codigo para ingresar parrafos con wordapplication para completar quisiera que si en un edit no se ingresa ningun valor como hago para eliminar ese parrafo?? para que no me queden parrafos en blanco.
Var
Nombre: olevariant;
rango:range;
Begin
Nombre :='C:\Documents and Settings\usuario\Escritorio\Documento.doc';
WordApplication1.Documents.Open (Nombre, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam,
EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam).Activate;
WordApplication1.Visible := True;
rango:=WordApplication1.ActiveDocument.Range (EmptyParam, EmptyParam);
rango.Text:=rango.Text+edit1.text;
rango.Text:=rango.Text+edit2.text;
rango.Text:=rango.Text+edit3.text;
wordapplication1.Disconnect;
uso este codigo para ingresar parrafos con wordapplication para completar quisiera que si en un edit no se ingresa ningun valor como hago para eliminar ese parrafo?? para que no me queden parrafos en blanco.
Var
Nombre: olevariant;
rango:range;
Begin
Nombre :='C:\Documents and Settings\usuario\Escritorio\Documento.doc';
WordApplication1.Documents.Open (Nombre, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam,
EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam).Activate;
WordApplication1.Visible := True;
rango:=WordApplication1.ActiveDocument.Range (EmptyParam, EmptyParam);
rango.Text:=rango.Text+edit1.text;
rango.Text:=rango.Text+edit2.text;
rango.Text:=rango.Text+edit3.text;
wordapplication1.Disconnect;