format form fields

[lovetowaltz]

Hi and thank you for your help.

I am creating a form and it uses check boxes and form fields. I want to lock the form field to a specific size to accommodate only a specific number of characters, and I know how to set the properties to do this. What I want to do is if the user types more characters than allowed, have the font reduce size automatically so the user can continue typing and not affect the next form field from moving to the next line in the document. I have seen a form field that works this way and was needing this same functionality in my form. Any help you can provide is greatly appreciated. Thank you,

[macropod]

You could use a pair of on-entry and on-exit macros such as:

Sub FldExit()
Application.ScreenUpdating = False
Dim sTxtWdth As Single, sFldWdth As Single, sPrnWdth As Single
sFldWdth = InchesToPoints(2.5)
With ActiveDocument.FormFields(1).Range
  With .Sections(1).PageSetup
    sPrnWdth = .PageWidth - .LeftMargin - .RightMargin - .Gutter
  End With
  sTxtWdth = .Characters.Last.Previous.Information(wdHorizontalPositionRelativeToPage)
  sTxtWdth = sTxtWdth - .Characters.First.Information(wdHorizontalPositionRelativeToPage)
  Do While .Characters.Last.Previous.Information(wdVerticalPositionRelativeToPage) <> _
    .Characters.First.Information(wdVerticalPositionRelativeToPage)
    .Font.Scaling = sFldWdth / (sTxtWdth + sPrnWdth) * 100
  Loop
  If sTxtWdth > sFldWdth Then .Font.Scaling = sFldWdth / sTxtWdth * 100
End With
Application.ScreenUpdating = True
End Sub
 
Sub FldEntry()
ActiveDocument.FormFields(1).Range.Font.Scaling = 100
End Sub