Date:         Fri, 31 Oct 2008 08:16:42 -0700
Reply-To:     John Hendrickx <John2.Hendrickx@GMAIL.COM>
Sender:       "SAS(r) Discussion" <SAS-L@LISTSERV.UGA.EDU>
From:         John Hendrickx <John2.Hendrickx@GMAIL.COM>
Organization: http://groups.google.com
Subject:      Re: An ODS RTF question
Comments: To: sas-l@uga.edu
Content-Type: text/plain; charset=ISO-8859-1

Hello Dirk,

This happens when you use "ods rtf bodytitle", it seems to be a bug.
Here's some VBA code to delete all occurrences:

Sub noTimes()
    With ActiveDocument.Range(0, 0).find
        .ClearFormatting
        .Replacement.ClearFormatting
        .ParagraphFormat.Alignment = wdAlignParagraphCenter
        .font.size = 12
        .font.Name = "Times New Roman"
        .Text = "^p"
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchWildcards = False
        .Execute replace:=wdReplaceAll
    End With

End Sub

Good luck,

John Hendrickx

Statistician
Clinquest Europe BV, Oss - The Netherlands
www.clinquest.com

On 31 okt, 14:35, dirk...@GMAIL.COM (Dirk Van Krunckelsven) wrote:
> Hi guys,
>
> I'm trying to get my tables out through ODS...
> All nice and neat, but one thing keeps bugging me: I altered all the fonts
> through template to be Arial 9pt, like so:
>
> proc template;
> define style MS_RTF;
> parent=Styles.sg /*In this one I have called all the defaults to see what
> is in there*/;
>
> replace fonts /
>     'TitleFont2'          = ("Arial",9pt,Normal)
>     'TitleFont'           = ("Arial",9pt,Normal)
>     'StrongFont'          = ("Arial",9pt,Normal)
>     'EmphasisFont'        = ("Arial",9pt,Italic)
>     'FixedEmphasisFont'   = ("Arial",9pt,Italic)
>     'FixedStrongFont'     = ("Arial",9pt,Normal)
>     'FixedHeadingFont'    = ("Arial",9pt,Normal)
>     'BatchFixedFont'      = ("SAS Monospace, Arial",9pt)
>     'FixedFont'           = ("Arial",9pt)
>     'headingEmphasisFont' = ("Arial",9pt,Normal Italic)
>     'headingFont'         = ("Arial",9pt,Normal)
>     'docFont'             = ("Arial",9pt);
>
> end;
> run;
>
> Yet, when I look at my report in RTF, just before the footnotes and just
> after the footnotes, there is still a line defined as Times New Roman,
> 12pt.
>
> Is there a font I missed, moreover the 12 pt. is odd.
>
> PS: using 9.1.3 SP4, on Win XP, and Word 2000.
>
> Cheers,
> Dirk