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>
Subject: Re: An ODS RTF question
Content-Type: text/plain; charset=ISO-8859-1
This happens when you use "ods rtf bodytitle", it seems to be a bug.
Here's some VBA code to delete all occurrences:
With ActiveDocument.Range(0, 0).find
.ParagraphFormat.Alignment = wdAlignParagraphCenter
.font.size = 12
.font.Name = "Times New Roman"
.Text = "^p"
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchWildcards = False
Clinquest Europe BV, Oss - The Netherlands
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);
> 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,
> Is there a font I missed, moreover the 12 pt. is odd.
> PS: using 9.1.3 SP4, on Win XP, and Word 2000.