- Joined
- Jun 29, 2011
- Messages
- 2
- Reaction score
- 0
Heres how to make a TICK work in a word form instead of a check box.
Set up your form as normal
Add the text form fields where you want and use this macro to put a tick in the field. If you want the "boxed tick" symbol then change the CharacterNumber to = 3842
If you want bigger ticks just change the font size.
It’s a good idea to set the macro as a tool bar button if lots of ticks are needed in your forms etc
Remember to lock the form before starting.
Sub tick()
'
' tick Macro
' Macro recorded 29/06/2011 by J Hayward
''Unprotect the file
If ActiveDocument.ProtectionType <> wdNoProtection Then
ActiveDocument.Unprotect Password:=""
End If
Selection.Font.Size = 12
Selection.InsertSymbol Font:="Wingdings", CharacterNumber:=-3844, Unicode _
:=True
'Reprotect the document.
If ActiveDocument.ProtectionType = wdNoProtection Then
ActiveDocument.Protect _
Type:=wdAllowOnlyFormFields, NoReset:=True, Password:=""
End If
End Sub
Set up your form as normal
Add the text form fields where you want and use this macro to put a tick in the field. If you want the "boxed tick" symbol then change the CharacterNumber to = 3842
If you want bigger ticks just change the font size.
It’s a good idea to set the macro as a tool bar button if lots of ticks are needed in your forms etc
Remember to lock the form before starting.
Sub tick()
'
' tick Macro
' Macro recorded 29/06/2011 by J Hayward
''Unprotect the file
If ActiveDocument.ProtectionType <> wdNoProtection Then
ActiveDocument.Unprotect Password:=""
End If
Selection.Font.Size = 12
Selection.InsertSymbol Font:="Wingdings", CharacterNumber:=-3844, Unicode _
:=True
'Reprotect the document.
If ActiveDocument.ProtectionType = wdNoProtection Then
ActiveDocument.Protect _
Type:=wdAllowOnlyFormFields, NoReset:=True, Password:=""
End If
End Sub