Domanda Identificare i Font usati in un documento Word

zio_tom

Utente abituale
21 Ottobre 2015
743
3
18
Veneto
2016 - Win10
2
Capitano certi file di Word con utilizzati dei font 'strani'
specialmente quando usano simboli, tipo matematici, chimici ecc
Word se non trova il font, lo sostituisce con uno standard!!! ma si perde il significato
C'è la possibilità in fase di salvataggio (ma pochi lo sanno) di inglobare nel file i font NON standard.
CHIEDO
è possibile ricavare l'elenco dei file usati nel file?? ed eventualmente quelli mancanti, NON presenti nel sistema
magari qualche macro..... io non ho trovato niente ma forse ho fatto male la ricerca

sapendo questo si può ricercare in rete i font mancanti ed installarli
 

zio_tom

Utente abituale
21 Ottobre 2015
743
3
18
Veneto
2016 - Win10
2
grazie klingklang @klingklang
io ho trovato questo codice (molto veloce e mostra risultati su msgbox

Visual Basic:
Sub Word_Document_Fonts()
  Dim report As String
  Dim j As Integer
  Dim font_name As String
  report = "Fonts in uso in questo documento:" & vbCr & vbCr
  For j = 1 To FontNames.Count
    font_name = FontNames(j)
    Set myrange = ActiveDocument.Range
    myrange.Find.ClearFormatting
    myrange.Find.Font.Name = font_name
    With myrange.Find
      .Text = "^?"
      .Replacement.Text = ""
      .Forward = True
      .Wrap = wdFindStop
      .Format = True
    End With
    myrange.Find.Execute
    If myrange.Find.Found Then
      report = report & font_name & vbCr
    End If
  Next j
  MsgBox (report)
End Sub
ma ha lo stesso problema di quelli che hai postato
mostra solo i fonts del corpo testo
ma NON quelli presenti su intestazione e piè di pagina
io non so farlo ma penso che basterebbe fare scansione non solo nel documento ma anche
su intestazione e piè di pagina
 

zio_tom

Utente abituale
21 Ottobre 2015
743
3
18
Veneto
2016 - Win10
2
Hai ragione, stavo per scriverlo.
Ho visto che vede anche i font dello stile predefinito, nel mio caso TimesNewRoman
anche se nel file non compare (ho fatto modifica su tutto documento), intestazione, pie pagina ecc
Quindi vede anche il settaggio di base, non del solo documento
Avendolo scoperto..... provo a fare altri test per capire come funziona
ancora grazie
 
  • Like
Reactions: klingklang

zio_tom

Utente abituale
21 Ottobre 2015
743
3
18
Veneto
2016 - Win10
2
... su alcuni documenti si impalla!!!!
Ho alcuni documenti con un font che NON ho e NON riesco a trovarlo facendo ricerca nel web
secondo Word si chiama "inherit" e nell'elenco dei font ovviamente non è presente!!!
Word lo visualizza con il font di default cioè Ariel
se uso la macro che ho precedentemente postato vede solo TimesNewRoman e NON "inherit"

Usando la seconda macro macro, si impalla e da errore su di un indice.... e non completa

Il dubbio è: se il font NON esiste in Windows..... non funziona
Il mio scopo era proprio individuare i font mancanti per poi eventualmente ricercarli
 
Ultima modifica:

zio_tom

Utente abituale
21 Ottobre 2015
743
3
18
Veneto
2016 - Win10
2
allego un file con Font 'inherit' ma leggibile

Alcuni imputano il problema a che il file sia stato editato con editor di Google che ha dei font non compatibili (o corrispondenti) con Windows
e quindi Word lo mostra con il suo font di default standard...

questo forse spiegherebbe 'inherit' inteso come 'ereditato' ..... (come dice rollis13 @rollis13 ) ma NON presente nel sistema

La domanda sorge spontanea...... come individuare il nome del font 'ereditato' ma NON presente???
 

Allegati

Ultima modifica:

Sostieni ForumExcel

Aiutaci a sostenere le spese e a mantenere online la community attraverso una libera donazione!