[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
- Dans le texte, un seul mot a réellement été écrit en lettres capitales (majuscules). quel est ce mot ? ✓ - Forum Word
- Telecharger format factory - Télécharger - Conversion & Codecs
- [Excel VBA] Formater une cellule en texte ✓ - Forum VB / VBA
- Erreur 1004 vba ✓ - Forum VB / VBA
- Formule excel si contient texte alors texte ✓ - Forum Excel
1 réponse
cs_Le Pivert
Messages postés
7883
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
18 mars 2023
724
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
Sub Pied_de_page() WordBasic.ViewFooterOnly With Selection .Font.Size = 9 .Font.Name = "Franklin Gothic Medium" .Font.Bold = True .Font.Color = wdColorBlack End With End SubVoilà
@+