aca me salio una solucion a ver que les parece, si tienen una idea mejor compartan, saludos..
Código Delphi
[-]Var
Nombre: olevariant;
rango1, rango2, rango3:range;
edit:string;
Begin
edit:=edit2.text;
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;
rango1:=WordApplication1.ActiveDocument.Range (EmptyParam, EmptyParam);
rango2:=WordApplication1.ActiveDocument.Range (EmptyParam, EmptyParam);
rango3:=WordApplication1.ActiveDocument.Range (EmptyParam, EmptyParam);
rango1.Text:=rango1.Text+'Una'^i^i'Dos';
begin
if edit='' then
rango3.Text:=rango1.Text+edit1.text
else
rango2.Text:=rango1.Text+edit2.text;
wordapplication1.Disconnect;
end;
End;
end.