Accès à l'element suivant de wdDialogFontSubstitution
1 réponse
knarf
Bonjour,
Je d=E9bute en VBA et je viens de d=E9couvrir les constantes =
WdWordDialog a=20
affecter =E0 la propri=E9t=E9 Dialogs, je d=E9sir acc=E9der =E0 la boite =
de dialogue des=20
polices de substitution pour copier la liste des polices manquantes et =
leurs=20
polices de remplacement dans un tableau sur un doc word gr=E2ce =E0 :=20
Dialogs(wdDialogFontSubstitution).UnavailableFont et=20
Dialogs(wdDialogFontSubstitution).SubstituteFont
Mais ne ma=EEtrisant pas encore tr=E8s bien le concept objet, je ne sais =
pas=20
comment acc=E9der =E0 toutes les valeurs de la liste les unes apr=E8s =
les autres=20
pour les copier dans mon tableau, peut-=EAtre avec une boucle For Each =
Next=20
? mais dans ce cas comment l'utiliser ?
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 !
'knarf' nous a écrit ...
Je débute en VBA et je viens de découvrir les constantes WdWordDialog a affecter à la propriété Dialogs, je désir accéder à la boite de dialogue des polices de substitution pour copier la liste des polices manquantes et leurs polices de remplacement dans un tableau sur un doc word grâce à : Dialogs(wdDialogFontSubstitution).UnavailableFont et Dialogs(wdDialogFontSubstitution).SubstituteFont Mais ne maîtrisant pas encore très bien le concept objet, je ne sais pas comment accéder à toutes les valeurs de la liste les unes après les autres pour les copier dans mon tableau
Vous pouvez afficher la boîte, tester si Unavailablefont est non vide pour savoir s'il y a substitution mais c'est tout. Il est fréquent que les boîtes de dialogue Word ne soient pas 'totalement' accessibles en vba. Pour votre projet (mais pourquoi faire une liste dans un document, alors que ça dépend du système sur lequel se trouve ouvert votre document? mais bon ) vous devez lister les polices du document (les polices substituées y sont comme les autres) et tester chacune dans celles disponibles dans Word (pas celles du système).
Anacoluthe « La police a toujours tort. » - Gustave FLAUBERT
Bonjour !
'knarf' nous a écrit ...
Je débute en VBA et je viens de découvrir les constantes WdWordDialog a
affecter à la propriété Dialogs, je désir accéder à la boite de dialogue des
polices de substitution pour copier la liste des polices manquantes et leurs
polices de remplacement dans un tableau sur un doc word grâce à :
Dialogs(wdDialogFontSubstitution).UnavailableFont et
Dialogs(wdDialogFontSubstitution).SubstituteFont
Mais ne maîtrisant pas encore très bien le concept objet, je ne sais pas
comment accéder à toutes les valeurs de la liste les unes après les autres
pour les copier dans mon tableau
Vous pouvez afficher la boîte, tester si Unavailablefont est non vide
pour savoir s'il y a substitution mais c'est tout. Il est fréquent
que les boîtes de dialogue Word ne soient pas 'totalement' accessibles
en vba. Pour votre projet (mais pourquoi faire une liste dans un
document, alors que ça dépend du système sur lequel se trouve ouvert
votre document? mais bon ) vous devez lister les polices du document
(les polices substituées y sont comme les autres) et tester chacune
dans celles disponibles dans Word (pas celles du système).
Anacoluthe
« La police a toujours tort. »
- Gustave FLAUBERT
Je débute en VBA et je viens de découvrir les constantes WdWordDialog a affecter à la propriété Dialogs, je désir accéder à la boite de dialogue des polices de substitution pour copier la liste des polices manquantes et leurs polices de remplacement dans un tableau sur un doc word grâce à : Dialogs(wdDialogFontSubstitution).UnavailableFont et Dialogs(wdDialogFontSubstitution).SubstituteFont Mais ne maîtrisant pas encore très bien le concept objet, je ne sais pas comment accéder à toutes les valeurs de la liste les unes après les autres pour les copier dans mon tableau
Vous pouvez afficher la boîte, tester si Unavailablefont est non vide pour savoir s'il y a substitution mais c'est tout. Il est fréquent que les boîtes de dialogue Word ne soient pas 'totalement' accessibles en vba. Pour votre projet (mais pourquoi faire une liste dans un document, alors que ça dépend du système sur lequel se trouve ouvert votre document? mais bon ) vous devez lister les polices du document (les polices substituées y sont comme les autres) et tester chacune dans celles disponibles dans Word (pas celles du système).
Anacoluthe « La police a toujours tort. » - Gustave FLAUBERT
