{IF MonBooleen = 0 d' de}

{ MERGEFIELD "ma date" \@ "dd/MM/yyyy" }

"c:\\Mes images\\cocorico.jpg"

{ INCLUDEPICTURE \* MERGEFORMAT }

{ INCLUDEPICTURE { MERGEFIELD "Champ Image" }  \* MERGEFORMAT }

Sub Macro()
Dim NomChamp as string
    NomChamp = "Champ Image"
    InsérerChampImageEtFusion NomChamp
End sub

Sub InsérerChampImageEtFusion(NomDuChampImage)
    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, _
        PreserveFormatting:=False
    Selection.TypeText Text:="INCLUDEPICTURE "
    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, _
        PreserveFormatting:=False
    Selection.TypeText Text:="MERGEFIELD " & Chr(34) & NomDuChampImage & Chr(34)
    With ActiveDocument.MailMerge
        .Destination = wdSendToNewDocument
        .SuppressBlankLines = True
        .Execute Pause:=False
    End With
    Selection.WholeStory
    Selection.Fields.Update
End Sub

{ = { MERGEFIELD Valeur1 } + { MERGEFIELD Valeur2 } }

{ = { MERGEFIELD Valeur1 } * 1,19 }

{ IF { MERGEFIELD Sexe } = M Cher Chère}

{ IF { MERGEFIELD Sexe } = M "Bonjour cher monsieur," "Bonjour chère madame," }

{ SKIPIF { MERGEFIELD Sexe} = "F" }

{ REF MonSignet }

{ If Condition SiVrai SiFaux }

{ If Condition { If Condition_0 SiVrai_0 SiFaux_0 } SiFaux }

{ If Condition { If Condition_0 { If Condition_1 SiVrai_1 SiFaux_1 } SiFaux_0 } SiFaux }

{ If {MERGEFIELD Civilite} = "M" "Monsieur" { IF {MERGEFIELD Civilite} = "Mme" "Madame" "Mademoiselle" }}