[Tamara1969]

Perfect. Here they are:
(normal text)
Arial
Arial Unicode MS
Courier New
Lucida Console
Lucida Sans Unicode
Marlett
Microsoft Sans Serif
MS Mincho
MS Outlook
MS Extra
Palatino Linotype
PMingLiU
Symbol
Tahoma
Times New Roman
Webdings
Wingdings
Wingdings 2
Wingdings 3

[cristobal03]

Egh, I was worried you'd say a list like that. Several of the fonts you listed aren't truly symbol fonts, which is what my code was designed to accommodate. I'm not a font expert, but the basic gist is this: whereas fonts used to only be able to contain 128 or 256 characters, modern computing allows for a much larger character set. The larger character sets rely on Unicode character codes, and I'm not sure how to generate those using VBA. Either way, for most Unicode characters, you'll have to copy/paste the character anyway because they don't have a keyboard analog (some do have an Alted keypad combination code, though). Let me see if I can't figure out a way to adapt my code to Unicode character sets; I'll get back to you.

If I can't, I'll run with the fonts you listed and show you what I mean by my code not working for extended character sets.

chris.

[cristobal03]

[bump]

The other issue with that is, if you're on a Macintosh platform, I just found out VBA doesn't support Unicode for Macs.

Keep in mind that a Unicode character set may have as many as 65,000+ characters, which would make about a 300 page document for one font. I don't know any fonts that use all 65,536 spaces...I guess I could test against Null values...

Lemme give this a try, I'll get back to you.

chris.

[cristobal03]

I'm testing something right now, it's probably going to drop my computer. I don't think this extended application will be of much use to you; so, once this test is done, to help you out at least a bit, I'm just going to run my original code on true symbol fonts, then attach a document that you can print off as a handy reference.

Sorry I can't do more with the Unicode stuff, but like I said, it'd be like flipping through a book for one font.

If this isn't any use to you, let me know and I'll see if I can't find some online resources for commonly-used Unicode symbols listed by font.

chris.

[cristobal03]

[bump]

Probably my last bump on this thread. I've attached a document that you can save and print at your leisure; if some of the fonts don't display on your computer, you'll have to acquire that particular type of font. The purpose of the document is to be a handy visual reference for the alpha-numeric keys associated with symbols. Selecting the named font and pressing the specified key on your keyboard should insert the appropriate symbol listed in the attachment.

Sorry I wasn't able to be more helpful. Somebody else who knows some good online resources will hopefully bump this thread.

chris.

[Tamara1969]

Hi Cristobal,

Thank you so much for the time you have spend in helping me. I have printed off the list that you did up and it sure will come in handy. Sorry for the delay in response, it has been hectic at work. Cheers to you!!

[cristobal03]

Glad I could help and sorry about those pesky unicode symbols

If you feel satisfied, you can mark this thread Solved using the Thread Tools at the top of the page.

chris.

[cristobal03]

[bump]

Thought I'd post the final version of the code I used, in case anyone was curious.

Public Sub MySymbolFonts()

' Written for TSG member Tamara1969; creates a
' document to act as a visual reference for
' symbol fonts.

  Dim saFontArray() As String
  Dim strFonts As String
  Dim intFontCount As Integer
  Dim intCharCount As Integer
'  Dim lngCharCount As Long 'for unicode
'  Const UNICODE_UBOUND As Long = 65536

  Const ALPHA_NUMERICS = "ABCDEFGHIJKLMNOPQRSTUVWXYZ" & _
                         "abcdefghijklmnopqrstuvwxyz" & _
                         "1234567890!@#$%^&*()-=_+,./;[]\<>?:{}|`~"

  strFonts = "CommercialPi BT," & _
             "Marlett," & _
             "MS Outlook," & _
             "Symbol," & _
             "UniversalMath1 BT," & _
             "Webdings," & _
             "Wingdings," & _
             "Wingdings 2," & _
             "Wingdings 3," & _
             "ZapfDingbats"

  saFontArray = Split(strFonts, ",")

  Application.ScreenUpdating = False
  With ActiveDocument
    With .Paragraphs.TabStops
      .Add InchesToPoints(1.25), wdAlignTabLeft
      .Add InchesToPoints(2.5), wdAlignTabLeft
      .Add InchesToPoints(3.75), wdAlignTabLeft
      .Add InchesToPoints(5), wdAlignTabLeft
    End With
    .Range.Font.Name = "Courier New"
  End With

' for unicode characters (pegs processor, probably causes crash)
'  With ActiveDocument.Range
'    .Font.Size = 14
'    For intFontCount = 0 To UBound(saFontArray)
'      If intFontCount > 0 Then
'        .Characters(.End).InsertBreak wdPageBreak
'      End If
'      .Characters(.End).Font.Name = "Courier New"
'      .InsertAfter "Font Name: " & saFontArray(intFontCount)
'      .InsertAfter vbCr & Chr$(9)
'      For lngCharCount = 33 To UNICODE_UBOUND
'        If ChrW(lngCharCount) Like vbNullString Then
'          Debug.Print "hit a null"
'        Else
'          .InsertAfter lngCharCount
'          .InsertAfter " is " & ChrW(lngCharCount) & Chr$(9)
'          .Characters(.End - 2).Font.Name = saFontArray(intFontCount)
'          If (lngCharCount Mod 3 = 0) Then
'            .InsertAfter vbCr & Chr$(9)
'          End If
'        End If
'      Next lngCharCount
'    Next intFontCount
'  End With

' original way (this works).
  With ActiveDocument.Range
    .Font.Size = 14
    For intFontCount = 0 To UBound(saFontArray)
      If intFontCount > 0 Then
        .Characters(.End).InsertBreak wdPageBreak
      End If
      .InsertAfter "Font Name: " & saFontArray(intFontCount) & vbCr
      For intCharCount = 1 To Len(ALPHA_NUMERICS)
        .InsertAfter Mid(ALPHA_NUMERICS, intCharCount, 1)
        .InsertAfter " is " & Mid(ALPHA_NUMERICS, intCharCount, 1) & Chr$(9)
        .Characters(.End - 2).Font.Name = saFontArray(intFontCount)
        If (intCharCount Mod 5 = 0) Then
          .InsertAfter vbCr
        End If
      Next intCharCount
    Next intFontCount
  End With
  Application.ScreenRefresh
End Sub

chris.

[bomb #21]

Originally Posted by cristobal03

Thought I'd post the final version of the code I used, in case anyone was curious.

Personally I'm not the least bit curious. However, you should probably get some kind of medal for the amount of effort.

[WhitPhil]

Seconded.

[Zack Barresse]

I realize this is a little old, but ..

Originally Posted by Tamara1969

.. Is the Character map that you are referring to the one that is in Insert Symbols?

A quick little snippet I wrote ..

http://vbaexpress.com/kb/getarticle.php?kb_id=784

HTH