Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel VBA police et enrichissement typo

VBA police et enrichissement typo

1 réponse
Avatar
José
Bonjour,

Dans une cellule d'un tableau j'ai des mots importés de Word.
Ces mots peuvent avoir une police différente et même certaines lettres en
gras ou autre.
Y a t-il un moyen (ou une propriété) en VBA qui puisse me fournir ces
renseignements sur
chaque caractère de chaque mot.
Merci d'avance
José
Signaler un problème avec ce contenu

1 réponse

Supprimer
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
Avatar
ChrisV
Bonjour José,

Sub zaza()
Dim c As Range
For Each c In Selection
For i = 1 To Len(c.Value)
a = c.Characters(i, 1).Font.Color
c.Characters(i, 1).Font.Color = 255
inFcaR = MsgBox("Police: " & c.Characters(i, 1).Font.Name _
& vbCrLf & "Taille: " & c.Characters(i, 1).Font.Size _
& vbCrLf & "Style: " & c.Characters(i, 1).Font.FontStyle, _
vbInformation, "MPFE...")
c.Characters(i, 1).Font.Color = a
Next i
Next
inFfT = MsgBox("Fin de traitement...", vbExclamation, "MPFE...")
End Sub


ChrisV


"José" a écrit dans le message de news:
42259a38$0$16910$
Bonjour,

Dans une cellule d'un tableau j'ai des mots importés de Word.
Ces mots peuvent avoir une police différente et même certaines lettres en
gras ou autre.
Y a t-il un moyen (ou une propriété) en VBA qui puisse me fournir ces
renseignements sur
chaque caractère de chaque mot.
Merci d'avance
José