Hallo,
In mijn applicatie lees ik de waardes van een aantal bookmarks uit, uit een word document middels onderstaande code
Code:
function TMSWord.get_bookmarktext(Name: string; Option: TBM_Option): string;
var
vwhat: olevariant;
extend: olevariant;
bookmark: olevariant;
begin
Result:='';
vWhat := wdGoToBookmark;
extend := wdextend;
bookmark := Name;
try
ClipBoard.Clear;
except
end;
try
WordApp.selection.GoTo(vwhat, emptyParam, emptyParam, Bookmark);
except
Result:='Bookmark not Found';
exit;
end;
case option of
bm_Graph:
begin
WordApp.Selection.MoveRight(wdSentence,1,Extend);
WordApp.Selection.Copy;
delay(100);
Result:='';
end;
else
begin
WordApp.Selection.MoveRight(wdSentence,1,Extend);
WordApp.Selection.Copy;
delay(100);
Result:=trim(Clipboard.AsText);
end;
end;
end;
Echter ik krijg regelmatig (wel random) een foutmelding (Cannot open clipboard: toegang geweigerd) op de functie:
ClipBoard.Clear;
In debug mode kom ik in de except uit en loopt mijn programma gewoon verder.
Echter wanneer ik de gecompileerde versie uitvoer krijg ik een foutmelding "Cannot open clipboard" en blijft mijn programma hangen.
Hoe kan ik er voor zorgen dat de foutmelding op een juiste manier wordt afgehandeld of dat deze niet meer optreed.
Bookmarks