Mail merge label print

  • I'm working on this using

    Code
    if Document.BookmarkSelect('Address', true) then begin  Address.AsString := Document.SelectionAsString;  Address.HideSelection;  Address.Refresh; end;

    for the first label and

    Code
    if Document.BookmarkSelect('Address', true) then begin
      Address.CPPosition := MaxInt;
      Address.InputString(#12);
      address.ActivePar.LoadFromString(Document.SelectionAsString, 'RTF','',[wploadpar_UseWritingAttr]);
      Address.HideSelection;
      Address.Refresh;
     end

    for subsequent labels. It almost works. The problem is that on second and subsequent labels the first CR is lost eg

    Line1
    Line2
    Line3

    becomes

    Line1Line2
    Line3

    Any suggestions?