' ############### DEFINE STYLES
Dim Heading1 As rtStyle, Heading2 As rtStyle
Dim BodyText As rtStyle, Bullets As rtStyle
' ############### HEADING ONE
Set Heading1= New rtStyle(0)
Set Heading1.Paragraph = New rtParagraphStyle(0)
Set Heading1.Font = New rtFontStyle(0)
Heading1.Paragraph.SpacingAbove =3
Heading1.Paragraph.Alignment =ALIGN_LEFT
Heading1.Font.Typeface="Arial"
Heading1.Font.FontSize=24
Heading1.Font.Bold=True
set rtp = new rTextParagraph ("My favorite latin texts")
set rtp.Style = Heading1
set rtp.Current.Style.Font = Heading1.Font
ctxDump.add rtp
ctxDump.addNewLine 1
ctxDump.importRTF "c:\temp\Armand Gasquy.rtf"
' there is one problem - after rtf import images scaled in Word are not scaled in Notes ' Note: this method is W32 ONLY
|