Does anyone have an example to loop through the currattr or par styles of a document? I would like to remove all indents unless it is a bulleted or numbered list and in that case, I would like to increase the indent. Thank you. -d
par := WPRichText1.FirstPar;
while par<>nil do
begin
if par.Number=0 then
begin
par.ADel(WPAT_IndentLeft);
par.ADel(WPAT_IndentFirst);
end else
begin
par.ASet(WPAT_IndentLeft,par.AGetDef(WPAT_IndentLeft,0)+720);
end;
par := par.next;
end;
WPRichText1.ReformatAll(false, true);
