Inserting Field(CustomDocProperties) from VB

[M.L.Srinivas]

I added CustomDocumentProperty to a doc thru Vb by using

Set DP = WordDoc.CustomDocumentProperties.Add
(Name:="JobDate", LinkToContent:=False,
Type:=msoPropertyTypeDate, Value:="01-Jan-2000")

It's a date field. And I want to place this prop at the
point of insertion from Vb. I'm using the following code:

Selection.Collapse Direction:=wdCollapseStart
Set myField = wordapp.ActiveDocument.Fields.Add
(Range:=Selection.Range, _
Type:=wdFieldDate, Text:="JobDate")

It's working fine..but i want multiple formats as dd-MM-
YY,dd-MMM-yyyy etc.

How can i do that, i tried in vain with following code:

Selection.Collapse Direction:=wdCollapseStart
Set myField = wordapp.ActiveDocument.Fields.Add
(Range:=Selection.Range, _
Type:=wdFieldDate, Text:="JobId \@ 'dd-MM-YY'")

Please help me.. i have done it thru this method for
strings.

Thanks in advance

M.L.Srinivas

 

[JGM]

Hi M.L.

Try this:
Set myField = WordDoc.Fields.Add(Range:=Selection.Range, _
Type:=wdFieldDate, Text:="JobDate \@ ""dd-MM-yy"" ")

HTH
Cheers!

 

[M.L.Srinivas]

HI HTH,

Thanks for your time, it worked

M.L.Srinivas