How can I determine if the current text is a hyperlink?
I want to auto add hyperlinks for existing documents even if they do not have http:// in front of them:
// http://
Content.Finder.ToStart;
while Content.Finder.Next('http://*') do begin
Content.Finder.SelectText;
Content.InputHyperlink(Content.Finder.FoundText);
end;
// Web URL
Content.Finder.ToStart;
while Content.Finder.Next('www.*') do begin
*
* Only add hyperlink if not already defined!
*
if Content.SelectedObject.Source <> '' then begin
Content.Finder.SelectText;
Content.InputHyperlink(Content.Finder.FoundText);
end;
end;