Hi Philip,
Use the following code to insert the mergefield with a formatting switch:
Dim myrange As Range
Set myrange = ActiveDocument.FormFields("txtWerkNaam").Range
ActiveDocument.Fields.Add Range:=myrange, Type:=wdFieldEmpty,
Text:="mergefield txtWerkNaam \@ ""dd MM yyyy"""

Signature
Please respond to the Newsgroup for the benefit of others who may be
interested. Questions sent directly to me will only be answered on a paid
consulting basis.
Hope this helps,
Doug Robbins - Word MVP
> Hi,
>
[quoted text clipped - 13 lines]
>
> Philip Lages
Philip Lages - 05 Jul 2004 11:05 GMT
Thanks Doug this works perfectly
Philip Lages
> Hi Philip,
>
[quoted text clipped - 23 lines]
> >
> > Philip Lages