Nécessite d'activer la référence "Microsoft Word xx.x Object Library" :

Dim WordApp As Word.Application
Dim WordDoc As Word.Document
 
    Set WordApp = CreateObject("Word.Application")
    WordApp.Visible = True
    Set WordDoc = WordApp.Documents.Open("monDocument.doc")    'adapter le chemin
    With WordDoc.Sections(1)
        .Headers(wdHeaderFooterPrimary).Range.Text = "Le titre"
        .Headers(wdHeaderFooterPrimary).Range.Paragraphs.Alignment = wdAlignParagraphCenter
        .Footers(wdHeaderFooterPrimary).PageNumbers.Add
    End With

Que ce soit pour un signet ou pour un autre objet, vous devez travailler avec l'objet sélection pour pouvoir mettre du texte en gras.

ActiveDocument.Bookmarks(1).range.Select
With Selection
    .text = "Mon Texte"
    .Font.Bold = True
End With

Dans le code ci-avant, en plus de mettre du texte dans le signet, on le met en gras.

Nécessite d'activer la référence "Microsoft Word xx.x Object Library" :

Dim WordApp As Word.Application
Dim WordDoc As Word.Document
 
    Set WordApp = CreateObject("Word.Application")
    Set WordDoc = WordApp.Documents.Add
    WordApp.Visible = True
 
    With WordDoc.PageSetup
        .LeftMargin = CentimetersToPoints(1)
        .RightMargin = CentimetersToPoints(1)
        .TopMargin = CentimetersToPoints(1.5)
        .BottomMargin = CentimetersToPoints(2)
    End With

Le code suivant crée l'en-tête, centre le texte et le met en gras

ActiveDocument.Sections(1).Headers(wdHeaderFooterPrimary).Range.Text = "En-tête"
With ActiveDocument.StoryRanges(wdPrimaryHeaderStory)
    .Bold = True
    .ParagraphFormat.Alignment = wdAlignParagraphCenter
End With

On utilise pour cela l'objet PageSetup de document. Par exemple

With ActiveDocument.PageSetup
        .Orientation = wdOrientLandscape
        .FirstPageTray = wdPrinterDefaultBin
        .OtherPagesTray = wdPrinterDefaultBin
        .SectionStart = wdSectionNewPage
        .OddAndEvenPagesHeaderFooter = True
        .DifferentFirstPageHeaderFooter = True
        .VerticalAlignment = wdAlignVerticalTop
        .SuppressEndnotes = False
        .MirrorMargins = True
End With

Avec ce code, vous pouvez choisir le mode de soulignement d'une sélection.

Selection.Font.Underline = wdUnderlineWavyHeavy

Liste des soulignements possibles.

• wdUnderlineDash ++ Tirets.
• wdUnderlineDashHeavy ++ Tirets épais.
• wdUnderlineDashLong ++ Tirets longs.
• wdUnderlineDashLongHeavy ++ Tirets longs épais.
• wdUnderlineDotDash ++ Alternance de points et de tirets.
• wdUnderlineDotDashHeavy ++ Alternance de points gras et de tirets gras.
• wdUnderlineDotDotDash ++ Alternance de points et de points-tirets.
• wdUnderlineDotDotDashHeavy ++ Alternance de points et de points-tirets épais.
• wdUnderlineDotted ++ Points.
• wdUnderlineDottedHeavy ++ Points épais.
• wdUnderlineDouble ++ Double ligne.
• wdUnderlineNone ++ Aucun soulignement.
• wdUnderlineSingle ++ Trait simple. Valeur par défaut.
• wdUnderlineThick ++ Trait épais simple.
• wdUnderlineWavy ++ Trait ondulé simple.
• wdUnderlineWavyDouble ++ Double trait ondulé.
• wdUnderlineWavyHeavy ++ Trait ondulé épais.
• wdUnderlineWords ++ Soulignement des mots individuels.