🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: comp.os.ms-windows.misc
Article #3211

Re: Typeface Name and Draft

#3211
From: Jay Freedman
Date: Wed, 02 Dec 1998 00:00
45 lines
2618 bytes
J. C. R. Davis wrote in message <743tpb$61k@ns2.bcm.tmc.edu>...
>I have two questions to ask:
>
>1. Is there a way to make a field state the typeface that the field itself
>is currently formatted as? Also, any other font characteristics (size,
>style, etc.)?


It very much depends on what you want to do with it. If you want the
document to display the information as part of the running text, then I
believe the answer is no -- Word doesn't provide any kind of field that can
retrieve that information. If you simply want to know the info while you're
looking at the screen, then the answer is "yes, but... why?" Looking at the
font name and size boxes on the toolbar will tell you, as will the
Shift+F1-click method.

However, if you *really* want to do it with a field, the only one that fills
the bill is the MacroButton field with an appropriate macro attached. For
instance, you can create the following macro and call it from a {MACROBUTTON
TellMyFont What's My Font?} field. When you double-click the field, the
messagebox will tell you the current font and size.

Sub TellMyFont()
    Dim MyFontName As String, MyFontSize As String
    MyFontName = Selection.Font.Name
    MyFontSize = Str(Selection.Font.Size)
    MsgBox MyFontName + " " + MyFontSize + " pt"
End Sub

Another possibility would be to use a similar macro, but replace the MsgBox
with Selection.TypeText, which would insert the string into the document at
the cursor position. This wouldn't necessarily involve a field, but you
would have to remember to run the macro whenever a change was made (or use
one of the Auto macros).

>2. Is there a way to change the draft font (available in the normal view)?


No, it uses a system font (deliberately, because it's fast). I suppose you
could modify that font if you were especially adventurous and didn't mind
risking a complete system crash...

>I will appreciate any help!
>
>JCRD
Technical Details
Message-ID: <7445b1$ep5$1@mail.pl.unisys.com>
Path: arc1-ca.pugleaf.net!unknown!not-for-mail
References: <743tpb$61k@ns2.bcm.tmc.edu>

Show Full Headers
Complete Article Headers
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 106cba,38d9fae93cfb095b
X-Google-Attributes: gid106cba,public
X-Google-Thread: 1102f1,38d9fae93cfb095b
X-Google-Attributes: gid1102f1,public
X-Google-Thread: fd71c,38d9fae93cfb095b
X-Google-Attributes: gidfd71c,public
From: "Jay Freedman" <jfreedm@i-bob.com>
Subject: Re: Typeface Name and Draft
Date: 1998/12/02
Message-ID: <7445b1$ep5$1@mail.pl.unisys.com>
X-Deja-AN: 417957244
References: <743tpb$61k@ns2.bcm.tmc.edu>
X-MimeOLE: Produced By Microsoft MimeOLE V4.72.2106.4
Organization: Unisys Corporation
Newsgroups: comp.os.ms-windows.misc,microsoft.public.word.general,bit.mailserv.word-pc