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;
Document.Application.Selection.HomeKey(a1,a1);
Document.Application.Selection.EndKey(a1,a2);
Document.Application.Selection.MoveLeft(a3,oleNumero,a2);
Document.Application.Selection.Select;
Document.application.selection.Copy;
result:=ClipBoard.AsText;
end;
Saludos