1 2 3 4 5 6 7 8 9 10 11
| aText = <Lire ta ligne qui correspond à ta liste <=> ["Nom du Signet" = ["Valeur 1", "Valeur 2", "Valeur 3", "Valeur 4"]]>
aNomSignet = Trim(Mid(aText, 1, InStr(aText, "=") - 1))
aListeValeurs = Trim(Mid(aText, InStr(aText, "=") + 1))
aListeValeurs = Trim(Mid(aListeValeurs, InStr(aListeValeurs, "[") + 1, InStr(aListeValeurs, "]]") - InStr(aListeValeurs, "[") - 1)) & ","
Selection.GoTo What:=wdGoToBookmark, Name:=aNomSignet
While InStr(aListeValeurs, ",")
Selection.TypeText Text:=Mid(aListeValeurs, 1, InStr(aListeValeurs, ",") - 1)
Selection.MoveRight Unit:=wdCell
aListeValeurs = Mid(aListeValeurs, InStr(aListeValeurs, ",") + 1)
Wend |
Partager