Public Sub listbookmark()
Dim stTableau As String
Dim bm As Bookmark

For Each bm In ActiveDocument.Bookmarks
stTableau = stTableau & vbCrLf & bm.Name
Debug.Print stTableau
Next bm
Application.Documents.Add

Selection.TypeText stTableau



End Sub

Public Sub listchamps()
Dim stTableau As String
Dim ch As Field

For Each ch In ActiveDocument.Fields
stTableau = stTableau & vbCrLf & ch.Code & " - " & ch.Result
Debug.Print stTableau
Next ch
Application.Documents.Add

Selection.TypeText stTableau



End Sub

'Fields(1) : premier champ du document Word %%%
WordDoc.Fields(1).Result.Text = "essai d'ecriture dans champ Word"

'Fields(1) : premier champ du document Word
MsgBox WordDoc.Fields(1).Result.Text

objDoc.TablesOfContents.Add _
    Range:=objDoc.Range(objDoc.Paragraphs(2).Range.Start, objDoc.Paragraphs(2).Range.Start), _
    UseHeadingStyles:=True, _
    LowerHeadingLevel:=4, _
    UpperHeadingLevel:=1

selection.Collapse Direction:=wdCollapseEnd
With ActiveDocument.Bookmarks
    .Add Range:=Selection.Range, Name:="Nom"
    .DefaultSorting = wdSortByName
    .ShowHidden = True
End With

Dim objRange As Range
Set objRange = ActiveDocument.Bookmarks.Item("genre").Range
objRange.Text = "madame"

ActiveDocument.Bookmarks("genre").Range.Select
Selection.Text = "Madame"
objRange.Bookmarks.Add "genre"

Dim WordApp As Word.Application
Dim WordDoc As Word.Document
Dim i As Byte

    Set WordApp = CreateObject("word.application")    'ouvre une session Word
    Set WordDoc = WordApp.Documents.Open("monDocument.doc")    'ouvre le document Word
    WordApp.Visible = False    'Word est masqué pendant l'opération

    For i = 1 To 3
        'les signets du document Word sont nommés Signet1 , Signet2 , Signet3
        WordDoc.Bookmarks("Signet" & i).Range.Text = Cells(i, 1)
    Next i

    WordApp.Visible = True    'affiche le document Word
    'WordDoc.PrintOut 'Pour imprimer le doc obtenu

    'WordDoc.Close True 'ferme le document word en sauvegardant les données
    'WordApp.Quit 'ferme la session Word

Dim objDoc As Document

Set objDoc = Application.Documents.Open("D:\tuto.doc")
objDoc.Hyperlinks.Add objDoc.Paragraphs(1).Range.Words(objDoc.Paragraphs(1).Range.Words.Count), "d:\pilo.doc"

Public Sub listehyperliens()
Dim stTableau As String
Dim ch As Field

For Each ch In ActiveDocument.Fields
If ch.Type = wdFieldHyperlink Then
stTableau = stTableau & vbCrLf & ch.Result & " - " & ch.Code
Debug.Print stTableau
End If

Next ch

ActiveDocument.Content.InsertBreak Type:=wdPageBreak
Selection.InsertParagraph

Selection.TypeText stTableau



End Sub