<div style="margin: 12px 0px; font-family: arial; color: #333333; background: #ffffff; border: solid 4px #e5e5e5; width: 100%; clear: left;"><div class="CM_CTB_Content_Wrap" style="margin: 0px; padding: 0px;background-color: #ffffff;"><div style="border-bottom: solid 1px #dcdcdc; white-space: nowrap; margin-bottom: 8px; background-color: #eeeeee ;background-image: url(http://clipmarks.com/images/source-bg.gif); background-repeat: repeat-x; height: 24px; line-height: 24px; vertical-align: middle; padding-bottom: 4px; color: #666666; font-size: 10px;" ><a href="http://clipmarks.com/clip-to-blog/" title="see clips that are hot right now"><img src="http://content.clipmarks.com/blog_embed/0a1dda81-12bb-4975-b72d-75da7acaf385/AC5B90B3-DB04-46B7-8E3C-A0C61026EE76/" alt="" width="19" height="19" border="0" style="vertical-align: middle; margin: 0px 4px; display: inline; border: none; float:none;" /></a>clipped from <a title="http://word.mvps.org/faqs/formatting/FontSampleGenerator.htm" href="http://word.mvps.org/faqs/formatting/FontSampleGenerator.htm" style="font-size: 11px;">word.mvps.org</a></div><blockquote style="text-align: left; padding: 0px 8px; margin: 4px 0px 8px 0px; background: transparent; border: none;" cite="http://word.mvps.org/faqs/formatting/FontSampleGenerator.htm"><H1>Print samples of every font on your system</H1></blockquote><div style="height: 2px; font-size: 2px; background: #dcdcdc; border-bottom: solid 1px #f5f5f5; margin: 2px 4px;"></div><blockquote style="text-align: left; padding: 0px 8px; margin: 4px 0px 8px 0px; background: transparent; border: none;" cite="http://word.mvps.org/faqs/formatting/FontSampleGenerator.htm"><P>It used to be simple to do this -- the macro was so simple you could just type it every time you needed it.  However, due to a bug in the fonts mechanism of Word 2003 the macro becomes unnecessarily complex to write.  It appears that the built-in FontNames collection is not correctly defined: the data type of the collection index and its content seem to be mismatched.  The following macro works (laboriously) around this.  <FONT color="#ff0000"> <B>Note:</B></FONT>  This macro is not compatible with Mac Word.  It will run, but Word may produce errors.</P></blockquote><div style="height: 2px; font-size: 2px; background: #dcdcdc; border-bottom: solid 1px #f5f5f5; margin: 2px 4px;"></div><blockquote style="text-align: left; padding: 0px 8px; margin: 4px 0px 8px 0px; background: transparent; border: none;" cite="http://word.mvps.org/faqs/formatting/FontSampleGenerator.htm"><P class="macro"> <FONT face="Courier New" size="2" color="#0000ff"> <B>Sub </B></FONT> <FONT face="Courier New" size="2" color="#000000"> <B>FontSamples() </B></FONT></P></blockquote><div style="height: 2px; font-size: 2px; background: #dcdcdc; border-bottom: solid 1px #f5f5f5; margin: 2px 4px;"></div><blockquote style="text-align: left; padding: 0px 8px; margin: 4px 0px 8px 0px; background: transparent; border: none;" cite="http://word.mvps.org/faqs/formatting/FontSampleGenerator.htm"><P class="macro"> <FONT face="Courier New" size="2" color="#000000"> <B>  </B></FONT> <FONT face="Courier New" size="2" color="#008000"> <I>' Samples all fonts installed </I></FONT></P></blockquote><div style="height: 2px; font-size: 2px; background: #dcdcdc; border-bottom: solid 1px #f5f5f5; margin: 2px 4px;"></div><blockquote style="text-align: left; padding: 0px 8px; margin: 4px 0px 8px 0px; background: transparent; border: none;" cite="http://word.mvps.org/faqs/formatting/FontSampleGenerator.htm"><I>  ' Macro written 31 March 2006 by John McGhie </I></blockquote><div style="height: 2px; font-size: 2px; background: #dcdcdc; border-bottom: solid 1px #f5f5f5; margin: 2px 4px;"></div><blockquote style="text-align: left; padding: 0px 8px; margin: 4px 0px 8px 0px; background: transparent; border: none;" cite="http://word.mvps.org/faqs/formatting/FontSampleGenerator.htm"><FONT face="Courier New" size="2" color="#008000"> <I>  </I></FONT> <FONT face="Courier New" size="2" color="#0000ff"> Const </FONT> <FONT face="Courier New" size="2" color="#000000"> </FONT></blockquote><div style="height: 2px; font-size: 2px; background: #dcdcdc; border-bottom: solid 1px #f5f5f5; margin: 2px 4px;"></div><blockquote style="text-align: left; padding: 0px 8px; margin: 4px 0px 8px 0px; background: transparent; border: none;" cite="http://word.mvps.org/faqs/formatting/FontSampleGenerator.htm"><FONT face="Courier New" size="2" color="#000000"> SampleText </FONT></blockquote><div style="height: 2px; font-size: 2px; background: #dcdcdc; border-bottom: solid 1px #f5f5f5; margin: 2px 4px;"></div><blockquote style="text-align: left; padding: 0px 8px; margin: 4px 0px 8px 0px; background: transparent; border: none;" cite="http://word.mvps.org/faqs/formatting/FontSampleGenerator.htm"><FONT face="Courier New" size="2" color="#0000ff"> As String </FONT></blockquote><div style="height: 2px; font-size: 2px; background: #dcdcdc; border-bottom: solid 1px #f5f5f5; margin: 2px 4px;"></div><blockquote style="text-align: left; padding: 0px 8px; margin: 4px 0px 8px 0px; background: transparent; border: none;" cite="http://word.mvps.org/faqs/formatting/FontSampleGenerator.htm"><FONT face="Courier New" size="2" color="#c00000"> "the quick brown fox jumps over the lazy dog." </FONT></blockquote><div style="height: 2px; font-size: 2px; background: #dcdcdc; border-bottom: solid 1px #f5f5f5; margin: 2px 4px;"></div><blockquote style="text-align: left; padding: 0px 8px; margin: 4px 0px 8px 0px; background: transparent; border: none;" cite="http://word.mvps.org/faqs/formatting/FontSampleGenerator.htm"><FONT face="Courier New" size="2" color="#000000"> = </FONT></blockquote><div style="height: 2px; font-size: 2px; background: #dcdcdc; border-bottom: solid 1px #f5f5f5; margin: 2px 4px;"></div><blockquote style="text-align: left; padding: 0px 8px; margin: 4px 0px 8px 0px; background: transparent; border: none;" cite="http://word.mvps.org/faqs/formatting/FontSampleGenerator.htm"><FONT face="Courier New" size="2" color="#000000"> _ </FONT></blockquote><div style="height: 2px; font-size: 2px; background: #dcdcdc; border-bottom: solid 1px #f5f5f5; margin: 2px 4px;"></div><blockquote style="text-align: left; padding: 0px 8px; margin: 4px 0px 8px 0px; background: transparent; border: none;" cite="http://word.mvps.org/faqs/formatting/FontSampleGenerator.htm"><FONT face="Courier New" size="2" color="#c00000"> " THE QUICK BROWN FOX JUMPS OVER THE LAZY DOG 0 1 2 3 4 5 6 7 8 9" </FONT></blockquote><div style="height: 2px; font-size: 2px; background: #dcdcdc; border-bottom: solid 1px #f5f5f5; margin: 2px 4px;"></div><blockquote style="text-align: left; padding: 0px 8px; margin: 4px 0px 8px 0px; background: transparent; border: none;" cite="http://word.mvps.org/faqs/formatting/FontSampleGenerator.htm"><FONT face="Courier New" size="2" color="#0000ff"> Dim </FONT></blockquote><div style="height: 2px; font-size: 2px; background: #dcdcdc; border-bottom: solid 1px #f5f5f5; margin: 2px 4px;"></div><blockquote style="text-align: left; padding: 0px 8px; margin: 4px 0px 8px 0px; background: transparent; border: none;" cite="http://word.mvps.org/faqs/formatting/FontSampleGenerator.htm"><FONT face="Courier New" size="2" color="#000000"> i </FONT></blockquote><div style="height: 2px; font-size: 2px; background: #dcdcdc; border-bottom: solid 1px #f5f5f5; margin: 2px 4px;"></div><blockquote style="text-align: left; padding: 0px 8px; margin: 4px 0px 8px 0px; background: transparent; border: none;" cite="http://word.mvps.org/faqs/formatting/FontSampleGenerator.htm"><FONT face="Courier New" size="2" color="#0000ff"> As Long </FONT></blockquote><div style="height: 2px; font-size: 2px; background: #dcdcdc; border-bottom: solid 1px #f5f5f5; margin: 2px 4px;"></div><blockquote style="text-align: left; padding: 0px 8px; margin: 4px 0px 8px 0px; background: transparent; border: none;" cite="http://word.mvps.org/faqs/formatting/FontSampleGenerator.htm"><I>' Make our own array because FontNames is FUBARed </I></blockquote><div style="height: 2px; font-size: 2px; background: #dcdcdc; border-bottom: solid 1px #f5f5f5; margin: 2px 4px;"></div><blockquote style="text-align: left; padding: 0px 8px; margin: 4px 0px 8px 0px; background: transparent; border: none;" cite="http://word.mvps.org/faqs/formatting/FontSampleGenerator.htm"><FONT face="Courier New" size="2" color="#0000ff"> Dim </FONT></blockquote><div style="height: 2px; font-size: 2px; background: #dcdcdc; border-bottom: solid 1px #f5f5f5; margin: 2px 4px;"></div><blockquote style="text-align: left; padding: 0px 8px; margin: 4px 0px 8px 0px; background: transparent; border: none;" cite="http://word.mvps.org/faqs/formatting/FontSampleGenerator.htm"><FONT face="Courier New" size="2" color="#000000"> AllFonts() </FONT></blockquote><div style="height: 2px; font-size: 2px; background: #dcdcdc; border-bottom: solid 1px #f5f5f5; margin: 2px 4px;"></div><blockquote style="text-align: left; padding: 0px 8px; margin: 4px 0px 8px 0px; background: transparent; border: none;" cite="http://word.mvps.org/faqs/formatting/FontSampleGenerator.htm"><FONT face="Courier New" size="2" color="#0000ff"> As String </FONT></blockquote><div style="height: 2px; font-size: 2px; background: #dcdcdc; border-bottom: solid 1px #f5f5f5; margin: 2px 4px;"></div><blockquote style="text-align: left; padding: 0px 8px; margin: 4px 0px 8px 0px; background: transparent; border: none;" cite="http://word.mvps.org/faqs/formatting/FontSampleGenerator.htm"><FONT face="Courier New" size="2" color="#0000ff">   Dim </FONT></blockquote><div style="height: 2px; font-size: 2px; background: #dcdcdc; border-bottom: solid 1px #f5f5f5; margin: 2px 4px;"></div><blockquote style="text-align: left; padding: 0px 8px; margin: 4px 0px 8px 0px; background: transparent; border: none;" cite="http://word.mvps.org/faqs/formatting/FontSampleGenerator.htm"><FONT face="Courier New" size="2" color="#000000"> StyDoc </FONT></blockquote><div style="height: 2px; font-size: 2px; background: #dcdcdc; border-bottom: solid 1px #f5f5f5; margin: 2px 4px;"></div><blockquote style="text-align: left; padding: 0px 8px; margin: 4px 0px 8px 0px; background: transparent; border: none;" cite="http://word.mvps.org/faqs/formatting/FontSampleGenerator.htm"><FONT face="Courier New" size="2" color="#0000ff"> As </FONT></blockquote><div style="height: 2px; font-size: 2px; background: #dcdcdc; border-bottom: solid 1px #f5f5f5; margin: 2px 4px;"></div><blockquote style="text-align: left; padding: 0px 8px; margin: 4px 0px 8px 0px; background: transparent; border: none;" cite="http://word.mvps.org/faqs/formatting/FontSampleGenerator.htm"><FONT face="Courier New" size="2" color="#000000"> Document </FONT></blockquote><div style="height: 2px; font-size: 2px; background: #dcdcdc; border-bottom: solid 1px #f5f5f5; margin: 2px 4px;"></div><blockquote style="text-align: left; padding: 0px 8px; margin: 4px 0px 8px 0px; background: transparent; border: none;" cite="http://word.mvps.org/faqs/formatting/FontSampleGenerator.htm"><FONT face="Courier New" size="2" color="#000000"> StyDoc = Application.Documents.Add </FONT></blockquote><div style="height: 2px; font-size: 2px; background: #dcdcdc; border-bottom: solid 1px #f5f5f5; margin: 2px 4px;"></div><blockquote style="text-align: left; padding: 0px 8px; margin: 4px 0px 8px 0px; background: transparent; border: none;" cite="http://word.mvps.org/faqs/formatting/FontSampleGenerator.htm"><I>' Resize the array the way we want it (in case the user has an Option Base set) </I></blockquote></div><div style="margin: 0px 6px 6px 4px;"><table style="font-size: 11px;border-spacing: 0px;padding: 0px;" cellpadding="0" cellspacing="0" width="100%"><tr><td style="background:transparent;border-width:0px;padding:0px;">&nbsp;</td><td align="right" style="background:transparent;border-width:0px;padding:0px;width:107px" width="107"><a href="http://clipmarks.com/share/AC5B90B3-DB04-46B7-8E3C-A0C61026EE76/blog/" title="blog or email this clip"><img src="http://content8.clipmarks.com/images/c2b-foot.png" border="0" alt="blog it" width="107" height="17" style="border-width:0px;padding:0px;margin:0px;" /></a></td></tr></table></div></div>

New from the makers of Clipmarks:  Amplify.com - Don't just share the news...Amplify it!