I don't think what you require is possible, however you could perhaps warn
the users?
Intercept the FileSave/Save As commands in the document template eg - which
will not allow a user to save a document longer than 10 pages.
Sub FileSave()
On Error GoTo UserCancelled:
If ActiveDocument.ComputeStatistics(Statistic:=wdStatisticPages) > 10 Then
MsgBox "This document is too long and has not been saved." & vbCr & _
"Reduce the document size to 10 pages or less, and save again", vbCritical,
"Error!"
Exit Sub
End If
ActiveDocument.Save
Exit Sub
UserCancelled:
MsgBox "Cancelled!", vbCritical, ""
End Sub
Sub FileSaveAs()
On Error GoTo UserCancelled:
If ActiveDocument.ComputeStatistics(Statistic:=wdStatisticPages) > 10 Then
MsgBox "This document is too long and has not been saved." & vbCr & _
"Reduce the document size to 10 pages or less, and save again", vbCritical,
"Error!"
Exit Sub
End If
Dialogs(wdDialogFileSaveAs).Show
Exit Sub
UserCancelled:
MsgBox "Cancelled!", vbCritical, ""
End Sub
--
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>
Graham Mayor - Word MVP
My web site
www.gmayor.com
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>