Bonjour,
Je voudrais savoir s'il est possible pour une macro VBA de=20
scanner un fichier word ferm=E9 pour en lister les=20
polices ???
Si ce n'est pas possible directement sous word, quel=20
language ou application pourrait le permettre ?
(mon pb est de connaitre les polices utilis=E9es avant que=20
word ne les remplace par d'autres s'il ne les connait pas)
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Anacoluthe
Bonjour !
'franck racine' nous a écrit ...
Je voudrais savoir s'il est possible pour une macro VBA de scanner un fichier word fermé pour en lister les polices ??? Si ce n'est pas possible directement sous word, quel language ou application pourrait le permettre ? (mon pb est de connaitre les polices utilisées avant que word ne les remplace par d'autres s'il ne les connait pas)
Il faut bien que Word ouvre le fichier pour voir ce qu'il y a dedans ! Et a priori Word est le meilleur pour y chercher les polices. Il ne va pas vous les effacer, il va les substituer s'il ne les trouve pas. Ce qu'on voit bien dans : Outils / Options / Compatibilité / Substitution de polices
Pour lister toutes les polices du document voici une mini-macro :
Public Sub ListePolices() 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 MsgBox 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
Bonjour !
'franck racine' nous a écrit ...
Je voudrais savoir s'il est possible pour une macro VBA de
scanner un fichier word fermé pour en lister les
polices ???
Si ce n'est pas possible directement sous word, quel
language ou application pourrait le permettre ?
(mon pb est de connaitre les polices utilisées avant que
word ne les remplace par d'autres s'il ne les connait pas)
Il faut bien que Word ouvre le fichier pour voir ce qu'il y a
dedans ! Et a priori Word est le meilleur pour y chercher les
polices. Il ne va pas vous les effacer, il va les substituer
s'il ne les trouve pas. Ce qu'on voit bien dans :
Outils / Options / Compatibilité / Substitution de polices
Pour lister toutes les polices du document
voici une mini-macro :
Public Sub ListePolices()
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
MsgBox 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
Je voudrais savoir s'il est possible pour une macro VBA de scanner un fichier word fermé pour en lister les polices ??? Si ce n'est pas possible directement sous word, quel language ou application pourrait le permettre ? (mon pb est de connaitre les polices utilisées avant que word ne les remplace par d'autres s'il ne les connait pas)
Il faut bien que Word ouvre le fichier pour voir ce qu'il y a dedans ! Et a priori Word est le meilleur pour y chercher les polices. Il ne va pas vous les effacer, il va les substituer s'il ne les trouve pas. Ce qu'on voit bien dans : Outils / Options / Compatibilité / Substitution de polices
Pour lister toutes les polices du document voici une mini-macro :
Public Sub ListePolices() 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 MsgBox 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
