1 2 3 4 5 6 7 8 9 10 11 12 13
|
Sub Résidence()
Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:= _
"ASK Résidence_nom ""Résidence - Nom ?"" ", PreserveFormatting:=True
Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:= _
"ASK Résidence_adresse ""Résidence - Numéro et voie ?"" ", PreserveFormatting:= _
True
Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:= _
"ASK Résidence_CP ""Résidence - Code postal ?"" ", PreserveFormatting:=True
Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:= _
"ASK Résidence_ville ""Résidence - Ville ?"" ", PreserveFormatting:= _
True
End Sub |
Partager