Selection.CreateRange

[horst]

Ich versuche mit Selection.CreateRange an den Namen oder ID eines Ankers zu kommen.

Welchen Tagnamen muss ich für einen Anker angeben?
A haut nicht hin...

Delphi-Quellcode:

procedure TForm1.Button10Click(Sender: TObject);
begin
  try
    if Webbrowser1.OleObject.Document.Selection.type = 'Control' then
      if Webbrowser1.OleObject.Document.Selection.CreateRange.CommonParentElement.tagName ='X' then begin
        MessageDlg('Ein Anker',
          mtInformation, [mbOk], 0);
        exit
      end;
  except
  end;
end;

Grüße
Horst