XL 2016 Changer la taille du text d'un signet word a partir d'excel

[Don pépé]

Bien le bonjour,

Alors je ne sais pas si cela est possible, mais j'aimerais savoir comment je peux changer la taille, et la police d'un signet word a partir d'excel ??

 

[Lone-wolf]

Bonsoir Don pépé 🙂, le Forum 🙂

Un exemple à adapter

Option Explicit

Sub test()
Dim WordApp As Word.Application
Dim WordDoc As Word.Document
Dim i As Long, fichier As String

    fichier = ThisWorkbook.Path & "\monDocument.doc"
    Set WordApp = CreateObject("word.application")
    Set WordDoc = WordApp.Documents.Open(fichier)
    WordApp.Visible = False

    For i = 1 To 3
        'les signets du document Word sont nommés Signet1 , Signet2 , Signet3
        With WordDoc.Bookmarks("Signet" & i).Range
                  .Text = Cells(i, "A")
                  .Font.Name = "arial"
                 .Font.Size = 16
                 .Font.Bold = True
                 .Font.Italic = True
                .Font.Color = RGB(3, 34, 76)
       End With
    Next i

    WordApp.Visible = True
End Sub

 

[Don pépé]

bien le bonjour,

Merci Lone-wolf je vais aller tester ca.