Address labels MkII

Julian

I decided that I'd go for the first block of left aligned text (that should allow me to print my letterhead) but I'd like to keep the bolding, colour etc (if any) in the address.

Your approach

apar := WPRichText1.BodyText.AppendNewPar;
apar.SetText(TRIM(par.ANSIText));
apar.ASet(WPAT_IndentLeft, 72);
apar.ASet(WPAT_IndentRight, 72);

doesn't do this and I can't figure out how to copy the attributes.

Roy

Hi,

I don't know where the quoted code comes from.

But if you want to copy a par the from one part in a document to another or from one editor to another (if those use the same RTFProps!) use this code:

src := WPRichText1.ActiveParagraph;
   dest := WPRichText1.BodyText.AppendNewPar;

   dest.Assign(src, true, []);
   dest.Trim;

   WPRichText1.ReformatAll(false, true);

The code came from your labels demo

The label demo does not copy the format since this is quite unusual to use the attributes on labels.

I am not sure if You need to do that - I just got the info of int this thread to understand [](http://wpcubed.com/forum/viewtopic.php?p=15504#15504)

Julian