[VBA-W] Mot en gras dans un pied-de-page

[Fée_Clochette]

Bonjour,

J'ai crée la procédure suivante pour insérer un pied-de-page dans un document word. Je voudrais simplement mettre les mots "Nom Prénom" en gras, comment faire?

Code :

1
2
3
4
5
6
7
8
9
10
11
Sub Pied_de_Page()
 
With ActiveDocument.Sections(1).Footers(wdHeaderFooterPrimary).Range
     .Text = "Nom Prénom Fonction" & vbCrLf & "adresse" & vbCrLf _ 
                & "Téléphone - email" & vbCrLf & "site internet"
     .Font.Name = "Verdana"
     .Font.Size = 7
     .ParagraphFormat.Alignment = wdAlignParagraphCenter
End With
 
End Sub

[Pierre Fauconnier]

Bonjour

Il y a peut-être plus simple que ma solution ...

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
Sub PiedPage()
    Dim i As Integer
 
    With ActiveDocument.Sections(1).Footers(wdHeaderFooterPrimary).Range
     .Text = "Nom Prénom Fonction" & vbCrLf & "adresse" & vbCrLf _
                & "Téléphone - email" & vbCrLf & "site internet"
     .Font.Name = "Verdana"
     .Font.Size = 7
     .ParagraphFormat.Alignment = wdAlignParagraphCenter
     ' On boucle sur les 10 premiers caractères et on met la propriété BOLD à TRUE
     For i = 1 To 10
        .Characters(i).Bold = True
     Next i
End With
End Sub

Ok?