J
Johnnyboy5
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 a 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
(e-mail address removed)
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 a 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
(e-mail address removed)