MS Word Template -Help

Question

I am trying to develop a template for my learners to fill in. The template needs to meet the following criteria:-

• All answers the participants fill in should automatically be accepted in Ariel 10 font.( Even if the change the font it shouldnt be accepted)
• A Page should accept only 1000 words can there be an alert if learners write more than 1000 words or WORD should reject more than 1000 words?????

This is urgent.. Please help .

Answer 1

I would do it by using Content Controls (MS Word 2007+). These controls are available throught the Developer tab in Ribbon (you might need to enabled it in settings). CC will also allow you to lock them, so they will be hard to remove.

You could write validation logic by using VBA and events of Content Controls. Note that there are several different types of CC. 

Answer 2

Using Word 2007 & later, you can restrict editing to the Styles you specify. If you select an appropriate set of Styles and apply a 10pt Arial font to them, that's all your users will be able to use. See Developer>Restrict Editing > Limit formatting to a selection of Styles.

As for the word count, a simple NUMWORDS field will return the current count. Simply toggling to/from Print Preview will update the field. A field code like the following will also give a status report:
{=1000-{NUMWORDS} \# "'Words remaining = '0;'Please delete '0' words'"}
and, if you want, you can format the bolded part of the expression as bold, red, highlighted, etc. I'd suggest putting the field in the header or footer as, in the body of the document, the field includes itself in the word count.

Note: The field brace pairs (ie '{ }') for the above example are created in the body of the document via Ctrl-F9 (Cmd-F9 on a Mac) - you can't simply type them or copy & paste them from this message.

If you add one or more content controls to the document and restrict input to them, the following macro will update the above field anytime the user clicks on another part of the document:

Private Sub Document_ContentControlOnExit(ByVal ContentControl As ContentControl, Cancel As Boolean)
Dim Rng As Range
For Each Rng In ActiveDocument.StoryRanges
  Rng.Fields.Update
Next
End Sub

---

Cheers
Paul Edstein
[MS MVP - Word]