Datoformat i datofelt fra inputboks

Prøv denne *S*

Sub Datoer()

Do
    Mindato = InputBox("Tast Dato", "Dato", "1-1-2003")
Loop Until IsDate(Mindato)

Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:= _
        "DATE  Mindato\@ ""d. MMMM yyyy""", PreserveFormatting:=True

End Sub

Skal du forøvrigt ikke til at tage stilling til de andre åbne spørgsmål du har?

rvm: Jo