J'essaye désespérément de créer un macro qui modifie la taille de tous les
caractères d'une police donnée (en l'occurrence Symbol) se trouvant dans un
texte, par exemple en augmentant la taille d'un point.
Si un expert pouvait me donner un coup de main ce serait sympa.
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 !
'Barsalou' nous a écrit ...
J'essaye désespérément de créer un macro qui modifie la taille de tous les caractères d'une police donnée (en l'occurrence Symbol) se trouvant dans un texte, par exemple en augmentant la taille d'un point.
S'il vous faut absolument une macro, en voici une qui augmente d'un point tous les caractères en police Arial du document :
Public Sub Test() For Each c In ActiveDocument.Characters With c.Font If .Name = "Arial" Then .Size = .Size + 1 End With Next c End Sub
Prise isolément cette macro est superfétatoire, c'est juste pour vous servir de point de départ. Sur un gros document, c'est très long ...
J'ai exprès pris la police Arial et non Symbol car si cette macro marche pour un caractère mis en police Symbol, elle ne marchera pas pour un caractère spécial Symbol (Insertion / Caractères spéciaux) qui est plus compliqué qu'une simple mise en forme de police.
Anacoluthe « Le monde est un interminable défilé de symboles. » - John GARDNER
Bonjour !
'Barsalou' nous a écrit ...
J'essaye désespérément de créer un macro qui modifie la taille de tous
les caractères d'une police donnée (en l'occurrence Symbol) se trouvant
dans un texte, par exemple en augmentant la taille d'un point.
S'il vous faut absolument une macro, en voici une qui augmente d'un point
tous les caractères en police Arial du document :
Public Sub Test()
For Each c In ActiveDocument.Characters
With c.Font
If .Name = "Arial" Then .Size = .Size + 1
End With
Next c
End Sub
Prise isolément cette macro est superfétatoire, c'est juste pour
vous servir de point de départ. Sur un gros document, c'est très long ...
J'ai exprès pris la police Arial et non Symbol car si cette macro
marche pour un caractère mis en police Symbol, elle ne marchera pas
pour un caractère spécial Symbol (Insertion / Caractères spéciaux)
qui est plus compliqué qu'une simple mise en forme de police.
Anacoluthe
« Le monde est un interminable défilé de symboles. »
- John GARDNER
J'essaye désespérément de créer un macro qui modifie la taille de tous les caractères d'une police donnée (en l'occurrence Symbol) se trouvant dans un texte, par exemple en augmentant la taille d'un point.
S'il vous faut absolument une macro, en voici une qui augmente d'un point tous les caractères en police Arial du document :
Public Sub Test() For Each c In ActiveDocument.Characters With c.Font If .Name = "Arial" Then .Size = .Size + 1 End With Next c End Sub
Prise isolément cette macro est superfétatoire, c'est juste pour vous servir de point de départ. Sur un gros document, c'est très long ...
J'ai exprès pris la police Arial et non Symbol car si cette macro marche pour un caractère mis en police Symbol, elle ne marchera pas pour un caractère spécial Symbol (Insertion / Caractères spéciaux) qui est plus compliqué qu'une simple mise en forme de police.
Anacoluthe « Le monde est un interminable défilé de symboles. » - John GARDNER
Tisane
Bonjour Barsalou,
J'essaye désespérément de créer un macro qui modifie la taille de tous les caractères d'une police donnée (en l'occurrence Symbol) se trouvant dans un texte, par exemple en augmentant la taille d'un point.
Tu peux le faire sans macro : - menu Edition | Remplacer - clique si nécessaire sur le bouton [Plus...] - clique sur le bouton [Format] et choisis la police et la taille que tu cherches - clique dans la zone "Remplacer par", puis sur le bouton [Format] - sélectionne la police et la taille de remplacement - clique sur [Remplacer tout]
-- Tisane
Bonjour Barsalou,
J'essaye désespérément de créer un macro qui modifie la taille de
tous les caractères d'une police donnée (en l'occurrence Symbol) se
trouvant dans un texte, par exemple en augmentant la taille d'un
point.
Tu peux le faire sans macro :
- menu Edition | Remplacer
- clique si nécessaire sur le bouton [Plus...]
- clique sur le bouton [Format] et choisis la police et la taille que tu
cherches
- clique dans la zone "Remplacer par", puis sur le bouton [Format]
- sélectionne la police et la taille de remplacement
- clique sur [Remplacer tout]
J'essaye désespérément de créer un macro qui modifie la taille de tous les caractères d'une police donnée (en l'occurrence Symbol) se trouvant dans un texte, par exemple en augmentant la taille d'un point.
Tu peux le faire sans macro : - menu Edition | Remplacer - clique si nécessaire sur le bouton [Plus...] - clique sur le bouton [Format] et choisis la police et la taille que tu cherches - clique dans la zone "Remplacer par", puis sur le bouton [Format] - sélectionne la police et la taille de remplacement - clique sur [Remplacer tout]
-- Tisane
Barsalou
Merci, mais les caractères existent en plusieurs tailles, d'ou une opération fastidieuse.
Merci, mais les caractères existent en plusieurs tailles, d'ou une opération
fastidieuse.
Je vais essayer avec les symboles de couleurs de cartes (pique etc...)
Tisane
Je vais essayer avec les symboles de couleurs de cartes (pique etc...)
Comme l'a dit Anacoluthe, sa macro ne fonctionne pas pour les caractères insérés via la boîte de dialogue "Caractères spéciaux" et issus des polices Symbol ou Wingdings. Dans le texte, ces caractères conservent la police du paragraphe dans lequel ils sont insérés.
Si les caractères dont tu as besoin sont les couleurs de cartes uniquement (et s'il n'est pas trop tard ;-), prends-les dans la police "Arial Unicode MS", et adapte la macro d'Anacoluthe à cette police.
Ou encore, sélectionne un des caractères spéciaux insérés, copie-le puis fais un Remplacer de ce caractère (que tu colles dans le champ Rechercher) par ^0167 en police Symbol Idem pour les 3 autres (^0168, ^0169, ^0170). Dans la macro, tu pourras alors utiliser la police Symbol pour modifier la taille.
A moins qu'une macro permette d'agir simplement sur ces caractères. Les méthodes ne manquent pas...
-- Tisane
Je vais essayer avec les symboles de couleurs de cartes (pique etc...)
Comme l'a dit Anacoluthe, sa macro ne fonctionne pas pour les caractères
insérés via la boîte de dialogue "Caractères spéciaux" et issus des polices
Symbol ou Wingdings.
Dans le texte, ces caractères conservent la police du paragraphe dans lequel
ils sont insérés.
Si les caractères dont tu as besoin sont les couleurs de cartes uniquement
(et s'il n'est pas trop tard ;-), prends-les dans la police "Arial Unicode
MS", et adapte la macro d'Anacoluthe à cette police.
Ou encore, sélectionne un des caractères spéciaux insérés, copie-le puis
fais un Remplacer de ce caractère (que tu colles dans le champ Rechercher)
par ^0167 en police Symbol
Idem pour les 3 autres (^0168, ^0169, ^0170).
Dans la macro, tu pourras alors utiliser la police Symbol pour modifier la
taille.
A moins qu'une macro permette d'agir simplement sur ces caractères.
Les méthodes ne manquent pas...
Je vais essayer avec les symboles de couleurs de cartes (pique etc...)
Comme l'a dit Anacoluthe, sa macro ne fonctionne pas pour les caractères insérés via la boîte de dialogue "Caractères spéciaux" et issus des polices Symbol ou Wingdings. Dans le texte, ces caractères conservent la police du paragraphe dans lequel ils sont insérés.
Si les caractères dont tu as besoin sont les couleurs de cartes uniquement (et s'il n'est pas trop tard ;-), prends-les dans la police "Arial Unicode MS", et adapte la macro d'Anacoluthe à cette police.
Ou encore, sélectionne un des caractères spéciaux insérés, copie-le puis fais un Remplacer de ce caractère (que tu colles dans le champ Rechercher) par ^0167 en police Symbol Idem pour les 3 autres (^0168, ^0169, ^0170). Dans la macro, tu pourras alors utiliser la police Symbol pour modifier la taille.
A moins qu'une macro permette d'agir simplement sur ces caractères. Les méthodes ne manquent pas...
