HYPERLINK in WORD OLE mit Delphi 7

[nahpets]

Bin mir nicht ganz sicher, könnte eventuell mit

Delphi-Quellcode:

  ...
  word.Selection.Find.Execute();
  if not (word.Selection.Range = EmptyVar) then
  try
    repeat
      sel := word.Selection.Range;
      word.ActiveDocument.Hyperlinks.Add(Anchor := sel, Address :=sel);
      word.Selection.Find.Execute();
    until word.Selection.Range = EmptyVar;
  except
    Application.MessageBox('Kein weitere LINK gefunden', 'Achtung', 48);
  end;

gehen. Die Unit Variants wird benötigt.