Fonts

Finding new fonts
Installing fonts
Listing all the fonts on your computer

Finding new fonts:

• Click here (when at school) for a folder of fonts on the Norwood network

• Many web sites sell fonts, some fonts can be found for free.

• These web sites have some free fonts:

  • 1001 Fonts, Larabie Fonts, 1001 Free Fonts,

• These web sites are a little easier to use because they are not free:

  • Fonts.com, FontHaus, Adobe, Linotype,  ITC

• If you purchase a font, please talk to the tech dept, to make sure it gets stored properly. When your computer is re-imaged, any non-standard fonts are permanently deleted and have to be re-installed from the original source file.

Installing fonts:

• If you're copying a font from somewhere (like the ones on our network), just paste or drag it into this location: My Computer --> C Drive --> Windows --> Fonts

• If you get a font online, it probably comes in a "zip file" which just means that it's compressed. After it downloads, if it doesn't automatically open, click on it to open it.

  • If zipped, it will open with WinZip

  • Click "Extract" to unzip the files. It will ask you where to save them.

  • Fonts have to be put into: My Computer --> C Drive --> Windows --> Fonts

Listing all the fonts on your computer:

To create a Microsoft Word macro that will produce a document that contains examples of all the fonts you have on your computer:

• Launch Microsoft Word then choose Tools > Macro > Visual Basic Editor.  That opens the Visual Basic Editor window.

• Now choose Tools > Macros.

• Type a name for your macro (e.g. ListFonts)

• Click the "Create" button. 

• Delete all existing script: "Sub ListFonts... End Sub"

• Copy & paste the following script into the window

  Sub ListFonts()
  'Speeds macro processing and suppresses display.
  Application.ScreenUpdating = False
  Documents.Add Template:="normal"
  For Each aFont In PortraitFontNames
  With Selection
  .Font.Bold = True
  .Font.Underline = True
  .Font.Name = "times new roman"
  .TypeText aFont
  .InsertParagraphAfter
  .MoveDown unit:=wdParagraph, Count:=1, Extend:=wdMove
  .Font.Bold = False
  .Font.Underline = False
  .Font.Name = aFont
  .TypeText "abcdefghijklmnopqrstuvwxyz"
  .InsertParagraphAfter
  .MoveDown unit:=wdParagraph, Count:=1, Extend:=wdMove
  .TypeText "0123456789?$%&()[]*_-=+/<>"
  .InsertParagraphAfter
  .InsertParagraphAfter
  .MoveDown unit:=wdParagraph, Count:=1, Extend:=wdMove
  End With
  Next aFont
  Application.ScreenUpdating = True
  End Sub

   

• After you've pasted in this script, choose File > Close And Return To Microsoft Word.

• Then choose Tools > Macro > Macros.

• Find your macro (you may need to change which set of Macros you're viewing), find the Macro named "ListFonts" and run it.

• When you do, Word takes a few moments to run the script, leaving you with a nicely formatted example of all of your fonts.  You can print it out, or save it. You can format your document with two columns to save some space.

If you want to see an example of my list, it's online here. Of course, when viewing a web page, you only see fonts properly if you also have that particular font installed, so some of the fonts you see on my page, will probably appear on your screen with a substituted font set.