This does not work as written. It works fine if the stylesheet definitions are plugged directly into the text.
Code: Select all
Txt$ = "{\rtf1\ansi\deflang1033\deff0" +
"{\fonttbl" +
"{\f0\fnil Arial;}" +
"{\f1\fnil Courier New;}" +
"{\f2\fnil Lucida Console;}" +
"{\f3\fnil Comic Sans MS;}}" +
"{\colortbl;" +
"\red255\green0\blue0;" +
"\red0\green255\blue0;" +
"\red0\green0\blue255;}" +
"{\stylesheet" +
"{\s1 \pard\plain\f0\cf1\fs40\b\qc;}" +
"{\s2 \pard\plain\f0\cf3\fs30\b\i\ql;}" +
"{\s3 \pard\plain\f0\fs20\ql;}}" +
"{\s1 Main Title\par}" +
"{\s2 Top Heading\par}" +
"{\pard\plain " +
"Lorem ipsum dolor sit amet folder" +
"consectetuer vel \b Pellentesque \b0 justo" +
"quis ac. Elit vitae enim Aenean Ut\line\par}" +
"{\s2 Second Heading\par}" +
"{\pard\plain\f2 " +
"Donec dapibus tristique. Mauris" +
"sollicitudin nunc nulla urna Aenean" +
"convallis ante id Curabitur penatibus." +
"Tincidunt ipsum nec neque Praesent"