In answer, I quote myself from an earlier post about fonts used

This is one such VBA macro that works in recent Word versions-

Public Sub ListFontsInDoc()
Dim FontList(199) As String
Dim FontCount As Integer
Dim FontName As String
Dim J As Integer, K As Integer, L As Integer
Dim X As Long, Y As Long
Dim FoundFont As Boolean
Dim rngChar As Range
Dim strFontList As String

FontCount = 0
X = ActiveDocument.Characters.Count
Y = 0
' For-Next loop through every character
For Each rngChar In ActiveDocument.Characters
Y = Y + 1
FontName = rngChar.Font.Name
StatusBar = Y & ":" & X
' check if font used for this char already in list
FoundFont = False
For J = 1 To FontCount
If FontList(J) = FontName Then FoundFont = True
Next J
If Not FoundFont Then
FontCount = FontCount + 1
FontList(FontCount) = FontName
End If
Next rngChar

' sort the list
StatusBar = "Sorting Font List"
For J = 1 To FontCount - 1
L = J
For K = J + 1 To FontCount
If FontList(L) > FontList(K) Then L = K
Next K
If J <> L Then
FontName = FontList(J)
FontList(J) = FontList(L)
FontList(L) = FontName
End If
Next J

StatusBar = ""
' put in new document
Documents.Add
Selection.TypeText Text:="There are " & FontCount & " fonts used in
the document, as follows:"
Selection.TypeParagraph
Selection.TypeParagraph
For J = 1 To FontCount
Selection.TypeText Text:=FontList(J)
Selection.TypeParagraph
Next J
End Sub

To use, see the help system about how to use this listing to make a
working macro.

Basic steps:
 1.. On the Tools menu, point to Macro, and then click Macros.
 2.. In the Macros in list, click the template (template: A file or
files that contain the structure and tools for shaping such elements as
the style and page layout of finished files. For example, Word templates
can shape a single document, and FrontPage templates can shape an entire
Web site.) or document in which you want to store the macro.
 3.. In the Macro name box, type a name for the macro.
 4.. Click Create to open the Visual Basic Editor

Plan B

Use the import text from any document to open the document. Near the
bottom of the resulting display in word will be a list of fonts used in
the document. Do _not_ save the document unless you chage the "save as"
name or you will lose all the document's formatting.

Let us know.
Tom
MSMVP
Windows Shell/User

If you open the document using the Recover Text from Any File setting, there
is a font list toward the end. Be careful not to save in this format and to
reset the "Files of type" setting afterward.