Microsoft Office Forums How to custom Date Picker CC format with Ordinal and superscript it!

Go Back   Microsoft Office Forums > >

Reply
 
Thread Tools Display Modes
  #1  
Old 07-14-2011, 04:11 AM
areriff areriff is offline How to custom Date Picker CC format with Ordinal and superscript it! Windows 7 64bit How to custom Date Picker CC format with Ordinal and superscript it! Office 2010 64bit
Novice
How to custom Date Picker CC format with Ordinal and superscript it!
 
Join Date: Jul 2011
Posts: 4
areriff is on a distinguished road
Question How to custom Date Picker CC format with Ordinal and superscript it!

How to configure Date Picker Content Control to display date with ordinal number?

eg. 14 July 2011


to
14th July 2011 (with correct superscript text size and positioning, can't get it to work in this post)
Reply With Quote
  #2  
Old 07-24-2011, 08:44 PM
macropod's Avatar
macropod macropod is online now How to custom Date Picker CC format with Ordinal and superscript it! Windows 7 64bit How to custom Date Picker CC format with Ordinal and superscript it! Office 2010 32bit
Administrator
 
Join Date: Dec 2010
Location: Canberra, Australia
Posts: 19,488
macropod is a splendid one to beholdmacropod is a splendid one to beholdmacropod is a splendid one to beholdmacropod is a splendid one to beholdmacropod is a splendid one to beholdmacropod is a splendid one to beholdmacropod is a splendid one to beholdmacropod is a splendid one to behold
Default

Hi areriff,

You could name the Content Control 'Mydate' add the following code to the document's 'This Document' module:
Code:
Private Sub Document_ContentControlOnExit(ByVal ContentControl As ContentControl, Cancel As Boolean)
Dim i As Long, j As String, Rng As Range
With ContentControl
  If .Type <> wdContentControlDate Then Exit Sub
  .Type = wdContentControlRichText
  Set Rng = .Range
  If .Title = "MyDate" Then
    For i = 0 To UBound(Split(.Range.Text, " "))
      j = Split(.Range.Text, " ")(i)
      If IsNumeric(j) Then
          With Rng
            .Start = .Start + InStr(ContentControl.Range.Text, j) + Len(j) - 1
            .End = .Start
            .InsertAfter Ordinal(Val(j))
            .Font.Superscript = True
          End With
          .Type = wdContentControlDate
        Exit For
      End If
    Next
  End If
End With
End Sub
 
Function Ordinal(Val As Integer) As String
Dim strOrd As String
If (Val Mod 100) < 11 Or (Val Mod 100) > 13 Then strOrd = Choose(Val Mod 10, "st", "nd", "rd") & ""
Ordinal = IIf(strOrd = "", "th", strOrd)
End Function
Of course, you might prefer to use something more meaningful than 'MyDate' for the Content Control name ...
__________________
Cheers,
Paul Edstein
[MS MVP - Word]
Reply With Quote
Reply

Tags
ordinal date superscript

Thread Tools
Display Modes


Similar Threads
Thread Thread Starter Forum Replies Last Post
How to custom Date Picker CC format with Ordinal and superscript it! word 2003 date picker nashville Word 16 04-06-2012 04:12 AM
Calculations using values from date picker controls Inkarnate Word 0 06-09-2010 07:16 AM
Word 2007 date and time picker dmcohio Word 2 04-09-2010 04:13 AM
How to custom Date Picker CC format with Ordinal and superscript it! Inserting Date, formatting to superscript and subscript louq Word 1 10-22-2009 09:29 AM
Date format always interpreted as a formula Butch Jackman Excel 1 02-14-2006 11:27 AM


All times are GMT -7. The time now is 07:28 PM.


Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2019, vBulletin Solutions Inc.
Search Engine Optimisation provided by DragonByte SEO (Lite) - vBulletin Mods & Addons Copyright © 2019 DragonByte Technologies Ltd.
MSOfficeForums.com is not affiliated with Microsoft