[VBA] Code pour modifié format du texte dans zone de texte
Résolu/Fermé
Floki72450
Messages postés
34
Date d'inscription
vendredi 17 octobre 2014
Statut
Membre
Dernière intervention
23 février 2016
-
Modifié par Floki72450 le 2/02/2016 à 10:07
Floki72450 Messages postés 34 Date d'inscription vendredi 17 octobre 2014 Statut Membre Dernière intervention 23 février 2016 - 9 févr. 2016 à 10:20
Floki72450 Messages postés 34 Date d'inscription vendredi 17 octobre 2014 Statut Membre Dernière intervention 23 février 2016 - 9 févr. 2016 à 10:20
A voir également:
- Vba format texte
- Telecharger format factory - Télécharger - Conversion & Codecs
- Format epub - Guide
- Formule excel si contient texte alors texte ✓ - Forum Excel
- Dans le texte, un seul mot a réellement été écrit en lettres capitales (majuscules). quel est ce mot ? - Forum Word
- [Excel VBA] Formater une cellule en texte ✓ - Forum VB / VBA
1 réponse
cs_Le Pivert
Messages postés
7903
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
11 mars 2024
728
3 févr. 2016 à 17:44
3 févr. 2016 à 17:44
Bonjour,
Voici un exemple a adapter à la configuration. J'ai mis une MsgBox pour connaitre le nom des shapes. Ensuite je me suis amusé à modifier une shape avec un peu de fantaisie :-)
Voici un exemple a adapter à la configuration. J'ai mis une MsgBox pour connaitre le nom des shapes. Ensuite je me suis amusé à modifier une shape avec un peu de fantaisie :-)
Private Sub CommandButton1_Click() Dim oField As Field Dim oSection As Section Dim oHeader As HeaderFooter Dim oFooter As HeaderFooter Dim oSh As Shape For Each oSection In ActiveDocument.Sections For Each oFooter In oSection.Footers If oFooter.Exists Then For Each oField In oFooter.Range.Fields oField.Update Next oField End If Next oFooter For Each oHeader In oSection.Headers If oHeader.Exists Then For Each oField In oHeader.Range.Fields oField.Update Next oField End If Next oHeader Next oSection 'Boucle sur tous les shapes du document For Each oSh In ActiveDocument.Shapes 'Selection du Shapes oSh.Select MsgBox oSh.Name ' pour connaitre le nom des shapes If oSh.Name = "Rectangle 15" Then 'exemple a adapter oSh.Select With Selection .Font.Size = 22 .Font.Name = "Franklin Gothic Medium" .Font.Bold = True .Font.Color = wdColorRed End With End If 'Mise à jour des champs Selection.Fields.Update Next oSh For Each champ In ActiveDocument.Range.Fields champ.Update Next champ ActiveDocument.PrintPreview ActiveDocument.ClosePrintPreview ActiveDocument.PrintPreview ActiveDocument.ClosePrintPreview End Sub
Modifié par Floki72450 le 8/02/2016 à 15:59
Tout d'abord un grand MERCI à toi, cela m'a permis de beaucoup avancer dans mon projet ! J'ai donc réussi à faire la mise en format des zones de textes que je voulais, taille, couleur, police, j'ai même rajouter le fait d'avoir une police ombrée ! Donc merci
Cependant : J'aimerai faire quelques lignes de code pour mettre en forme mes pieds de pages avec ces propriétés :
.Font.Size = 9
.Font.Name = "Franklin Gothic Medium"
.Font.Bold = True
.Font.Color = wdColorBlack
J'ai tenter d'utiliser les premières lignes de codes qui permettent de mettre à jour les champs des pieds de pages, mais je n'arrive pas à leur insérer une mise en format spéciale...
Peut tu m'aider ?
Merci d'avance :)
Au passage, voici mon code VBA dans l'état actuel et au point (manque la mise en format des pieds de pages...) :
8 févr. 2016 à 18:32
Voilà
@+