Field Date: UCase()?

[tinfanide]

Dim sField As Field
Set sField = ActiveDocument.Fields.Add(Selection.Range, wdFieldDate, "\@ ""yyyy/MM/dd ddd, HH:mm:ss""", True)

Is there a way to UCase the "ddd"?

[macropod]

Simple:

Dim sField As Field
Set sField = ActiveDocument.Fields.Add(Selection.Range, wdFieldDate, _
    "\@ ""yyyy/MM/dd ddd, HH:mm:ss"" \* Upper", False)

[tinfanide]

Originally Posted by macropod

Simple:

Dim sField As Field
Set sField = ActiveDocument.Fields.Add(Selection.Range, wdFieldDate, _
    "\@ ""yyyy/MM/dd ddd, HH:mm:ss"" \* Upper", False)

Thanks for that. Yes, it's as simple as that.
But I wonder why after it runs and I edit the field, Word hangs (Not responding).

[macropod]

Probably something to do with your system - on mine the field updates instantaneously with no suggestion of hanging.

[tinfanide]

Originally Posted by macropod

Probably something to do with your system - on mine the field updates instantaneously with no suggestion of hanging.

Yes, if update field (By pressing F9 or clicking on the right-click menu), no problem.
But, if edit field, it hangs.

[macropod]

The Edit|Field dialogue is incapable of handling such customisations. If you want to edit a customised field, do it via Shift-F9.