Substituted fonts notification

[catspec2000]

Hi all

Does anyone know I could write an AutoOpen macro that would display
message if there are missing fonts in a Word document?

I can have the FontSubstitution window display automatically when
open a document, but I'd like Word to do this only if there are missin
fonts.

Anyone any ideas?
Many thanks
L

 

[Klaus Linke]

Does anyone know I could write an AutoOpen macro that would display a

message if there are missing fonts in a Word document?

I can have the FontSubstitution window display automatically when I
open a document, but I'd like Word to do this only if there are missing
fonts.

Hi L.,

You could try something like

With Dialogs(wdDialogFontSubstitution)
If (.UnavailableFont <> "") Then
.Show
End If
End With

Greetings,
Klaus