substituted fonts

[vaidas]

Hi

I would like to get the list of all the substituted fonts in Word document.

I tried
Application.Dialogs.Item(wdDialogFontSubstitution).Unavailablefont

But it gives me only the name of the first substituted font.
How can I get the other unavailable fonts?

Thanks