polices dans un document

Bonjour, Géo et les autres,

Je vois que nous sommes du même avis, mais personnellement j'ai 400 pages.
J'ai besoin des polices employées dans le document pour utiliser le pdf
converter 2 pro de façon à réduire la taille du fichier PDF et l'expédier,
en lui signalant les polices employées, de façon que à un bout de la chaîne
PDF>Word ou Word>PDF, on puisse avoir des fichiers corrects sans
remplacement de polices (ex Arial à la place de Times new roman).

Je vois que la solution ne sera pas simple à trouver.

Merci.

Amicalement.

Greffier




"Geo" <Geo@sans.pub> a écrit dans le message de
news:uJdQnY%23oEHA.2612@TK2MSFTNGP15.phx.gbl...

Bonjour Greffier

Bonjour,

Je viens de prendre connaissance de la réponse de Géo :

- la liste des polices de Word est la liste qui s'affiche dans la
boîte du traitement de texte située entre celle du style et celle de
la taille de la police. Cette macro marche correctement et de permet
de choisir l'une d'elles.

On peut voir la macro ?

- la liste des polices utilisées dans le document est une extraction
de cette liste. C'st cette macro qui soit prend du temps, soit boucle.

J'avais testé, c'est effectivement très ( mais alors très beaucoup) long,
mais je n'avais pas détecté de boucle, le compteur avançait correctement.
pour être complet je n'ai jamais eu la patience d'attendre qu'il aille au
bout d'un document de 10 pages, ça se compte en heures, mais sur un
paragraphe c'était bon.

--

A+

Bonjour Greffier

Bonjour, Géo et les autres,

Je vois que nous sommes du même avis, mais personnellement j'ai 400
pages. J'ai besoin des polices employées dans le document pour
utiliser le pdf converter 2 pro de façon à réduire la taille du
fichier PDF et l'expédier, en lui signalant les polices employées, de
façon que à un bout de la chaîne

Word ou Word>PDF, on puisse avoir des fichiers corrects sans
remplacement de polices (ex Arial à la place de Times new roman).

Posé comme ça le problème peut peut-être être abordé différemment.
Je ne connais pas Converter pdf, donc je ne peux me prononcer sur ta
procédure.
Rechercher les polices utilisées sur 400 pages selon la méthode précédente
est effectivement hors de portée d'un ordinateur moyen.
mais en faisant à l'envers ?
rechercher si chaque police est utilisée ?
Faut voir....

Bonjour Greffier

Une minute pour 308 polices et plus de 500 pages.
Le résultat est disponible sous deux formes :
msg
ou les lignes non vides du tableau.

Sub PolicesUtilisées2()
Dim i As Long
Dim Utilisée As Boolean
Dim p
Dim TableauPolice() As String
Dim msg As String
ReDim TableauPolice(FontNames.Count)

i = 0
For Each p In FontNames
TableauPolice(i) = p
i = i + 1
Next p
Debug.Print " i " & i

For i = 0 To FontNames.Count - 1
Selection.HomeKey Unit:=wdStory
Selection.Find.ClearFormatting
With Selection.Find
.Text = ""
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindStop
.Font.name = TableauPolice(i)
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Utilisée = Selection.Find.Execute
If Utilisée Then
msg = msg + TableauPolice(i) + vbCrLf
Debug.Print "Utilisée " & TableauPolice(i)
Else
' les polices non utilisées sont suppriémes de la liste
TableauPolice(i) = ""
End If

Next i
MsgBox msg
End Sub

Bonjour !

'Greffier' nous a écrit ...

Je vois que nous sommes du même avis, mais personnellement j'ai 400 pages.
J'ai besoin des polices employées dans le document pour utiliser le pdf
converter 2 pro de façon à réduire la taille du fichier PDF et l'expédier,
en lui signalant les polices employées, de façon que à un bout de la chaîne
PDF>Word ou Word>PDF, on puisse avoir des fichiers corrects sans
remplacement de polices (ex Arial à la place de Times new roman).
Je vois que la solution ne sera pas simple à trouver.

En réalité, le problème est pris à l'envers.

Si on prend chaque caractère pour voir sa police, ça devient
infernal avec un document même pas bien gros !

Il faut plutôt prendre chaque police disponible et regarder
si elle est présente dans le document. Au besoin on pourra
compléter avec les polices substituées.

J'utilise par exemple ceci pour inscrire la liste
des polices à la fin d'un document :

Public Sub ListePolice()
Dim MaListe, sFont
For Each sFont In FontNames
With ActiveDocument.Content.Find
.ClearFormatting
.Format = True
.Text = ""
.Font.Name = sFont
If .Execute() Then
MaListe = MaListe & sFont & vbCr
End If
End With
Next sFont
ActiveDocument.Content.InsertAfter _
"Ce document utilise les polices :" & vbCr & MaListe
End Sub


Anacoluthe
« La police ressemble au sable où l'on s'enlise.
Plus on se débat, plus on s'enfonce. »
- Victor HUGO