Superscript ordinal numbers in CreateDate field

[alexisn]

I am trying to get the ordinal number suffixes in a CreateDate field to automatically be formatted as superscript in new documents created from a Word template (i.e. the "th" in "14th" should be superscript).

I've found the following macro on Graham Mayor's excellent site (http://www.gmayor.com/formatting_word_fields.htm) and it works as it's supposed to, but it removes all formatting from the text and I want to maintain the font, colour and allignment settings.

Sub AutoNew()
' FormatDate Macro
Selection.GoTo What:=wdGoToBookmark, Name:="Date"
Selection.Find.ClearFormatting
With Options
AutoFormatReplaceOrdinals = True
End With
Selection.Range.AutoFormat
Selection.EscapeKey
Selection.Fields.Unlink
Selection.EndKey Unit:=wdLine
End Sub

I've played around trying to modify it but just don't have the required knowledge. I have also tried achieving a similar outcome using field codes but have been even less successful.

Any help would be much appreciated.

Thanks,
Alexis

[macropod]

Unfortunately, applying 'AutoFormat' does that. You could use:

Please Login or Register  to view this content.

FWIW, instead of relying on a macro, you could simply(?) encode the field as:
{QUOTE{CREATEDATE \@ "dddd 'the' d"}{IF{=(MOD({={CREATEDATE \@ d}+89},100)>2)*(MOD({={CREATEDATE \@ d}+9},10)<3)}= 1 {=MOD({CREATEDATE \@ d},10)-2 \# rd;st;nd} th}{CREATEDATE \@ "' of' MMMM, yyyy"}}
with the rd, st, nd & th all superscripted.

Note: The field brace pairs (ie '{ }') for the above example are created in the document itself, via Ctrl-F9 (Cmd-F9 on a Mac); you can't simply type them or copy & paste them from this message. Nor is it practicable to add them via any of the standard Word dialogues. There's a working field code that does this with DATE field in my Microsoft Word Date Calculation Tutorial, at:
http://windowssecrets.com/forums/sho...ation-Tutorial
or:
http://www.gmayor.com/downloads.htm#Third_party
In particular, look at the item titled 'Insert A Date with Ordinal Numbering'. All you need do is change the 'DATE' expressions in the field code there to 'CREATEDATE'. Do read the document's introductory material.

[alexisn]

Very helpful - thank you. I tried both options and, after some head scratching, I got the field codes working - definitely the better solution.

When I tried using field codes before I hadn't got my head around the fact that you could create a new field within a field so I didn't understand what people meant when they said you couldn't type or paste the field braces. For future reference, is there an easier way of creating fields than via Insert>Field and then choosing a field name, Ctrl-F9, deleting the text between the braces and then repeating the process for the 'subsidiary' fields? I'm sure the answer must be yes!

Cheers,
Alexis

[macropod]

For future reference, is there an easier way of creating fields than via Insert>Field and then choosing a field name, Ctrl-F9, deleting the text between the braces and then repeating the process for the 'subsidiary' fields? I'm sure the answer must be yes!

After pasting the textual representation of the field into the document, you could insert the true field braces and, once all of that is done, delete the text ones via Find/Replace.

You could also have just downloaded the tutorial, copy/paste the field code from there, then use Find/Replace to change DATE to CREATEDATE.

Another option is to paste the textual representation of the field into the document, then use a macro like the one at http://www.gmayor.com/export_field.htm#TextToField to turn it into a working field.

or you could create all the fields - { { }{ { { { } }{ { } } }{ { } } }{ } } - then paste the remaining text into them...