how can I reduce the font size of a text form field based on the number of characters?


The code should make this form field (the one that says "Customer Name") go from this:
Capture187.JPG

to look like this:
Capture189.JPG


I use this code in excel to accomplish the same thing in a userform textbox.. but cant figure out how to do this same thing in word:


    With Me.txtTrainingName
         If .TextLength Mod 4 = 0 Then
             Select Case .TextLength
                 Case Is < 74
                     .Font.Size = 14
                 Case 74 To 80
                     .Font.Size = 13
                 Case 80 To 90
                     .Font.Size = 12
                 Case Is > 90
                     .Font.Size = 11
'
             End Select
         End If
    End With