Hallo Zusammen,
ich schreibe gerade ein Analysetool, um herauszufinden, ob normale Textmarken oder Content Controls schneller sind.
Nun möchte ich die Content Controls zufällig befüllen lassen und habe dies mit folgender Schleife umgesetzt.
Delphi-Quellcode:
while lLoop < 51
do
begin
lRandom := RandomRange(1,100);
if lWordInstanz.ContentControls.Item(lListeMarken[lRandom]).Range.Text = '
Test'
then
begin
continue;
end
else
begin
lWordInstanz.SelectContentControlsByTag('
CC' + IntToStr(lRandom)).Item(1).Range.Text := '
Test';
lLoop := lLoop +1;
end;
end;
Allerdings befüllt er nie 50 Felder, sondern immer weniger. Weiß jemand auf die Schnelle woran es liegen könnte?
Über jede Hilfe würde ich mich sehr freuen!