View Single Post
  #4   Report Post  
Posted to microsoft.public.word.pagelayout
Bob Buckland ?:-\) Bob   Buckland ?:-\) is offline
external usenet poster
 
Posts: 2,073
Default Checkboxes- From 10 days ago...

Hi D.H. and Bear,

The version of the 'Professional' Fax cover sheet template thast shipped with Word (ProfFax.dot or Professional Fax.dot - depending
on Word version) prior to Word 2007 includes two autocorrect entries and two macros that provide the 'toggle' of check/unchecked
functionality behind the macro button check boxes.

The version of the same template on OfficeOnline
http://office.microsoft.com/en-us/te...129531033.aspx
does not include the macros or the autocorrect entries.

The autocorrect entries are basically two symbol characters one is the unchecked box the other is the checked one.

These are the macros included in the 'regular' version of the template that you can restore to the online download version.

'====First Line============
Sub CheckIt()

ActiveDocument.AttachedTemplate.AutoTextEntries("C hecked Box").Insert Whe=Selection.Range

End Sub

'=================
Sub UncheckIt()

ActiveDocument.AttachedTemplate.AutoTextEntries("U nchecked Box").Insert Whe=Selection.Range

End Sub
'======Last Line==========

You can open the OfficeOnline Professsional Fax template, use Alt+F11 to enter the VBA editor. Select there the current
(professional fax) template and then paste the above macros in. Hover over the 'save button' in the VBA editor to be sure it's
saving the 'correct' template/document then save the macros into the template.

You'll still need to create the two autotext entries.

Fortunately g the process for creating checkbox toggles, using the macros and autotext entries from the original MS template, and
how to use different choices for the buttons is documented in the step by step article at:
http://gregmaxey.mvps.org/Add_Toggle_Objects.htm

=========================
"DH" wrote in message ...
Thanks for the reply Bear. Now you've got me wanting to go back to the office
to check this out....! But, I think it can wait until Monday.
Thanks,
DH
--

Bob Buckland ?:-)
MS Office System Products MVP

*Courtesy is not expensive and can pay big dividends*