Obtener la linea actual de Word

[aom]

Hola,
ya he encontrado como hacerlo. Para quién le pueda servir:

Código Delphi [-]
procedure ObtenerLineaActualWord:string;
var
   oleNumero:OleVariant;
   a1,a2,a3: OleVariant;
begin
   a1:=emptyparam;
   a2:=wdExtend;
   a3:=wdCharacter;
   oleNumero:=1;
   //inicio de la línea
   Document.Application.Selection.HomeKey(a1,a1);
   //fin de la línea
   Document.Application.Selection.EndKey(a1,a2);
   //para descartar el salto de línea
   Document.Application.Selection.MoveLeft(a3,oleNumero,a2);
   //seleccionar línea
   Document.Application.Selection.Select;
   //Copiar la selección en el clipboard
   Document.application.selection.Copy;

   result:=ClipBoard.AsText;
end;

Saludos