atw: Re: Limiting word count
- From: Elizabeth Fullerton <Elizabeth_Fullerton@xxxxxxxxxxx>
- To: "austechwriter@xxxxxxxxxxxxx" <austechwriter@xxxxxxxxxxxxx>
- Date: Wed, 22 Dec 2010 14:01:37 +1100
Figured it out (well, looked it up) - for Save and Save As (probably shouldn't
attach them to Normal.dot!)
I considered intercepting document close, but they might want to come back to
it later to fix it up, so we don't necessarily want to prevent them from
closing the document. This way at least they know they are over the limit.
Good point about the para count.
Here are the new and improved versions... (yes, the MaxCount=10 is so i didn't
have to write a whole 200 words to test it)
Sub FileSave()
'
' FileSave Macro
' Saves the active document or template
'
Dim MaxCount As Integer
MaxCount = 10
If ActiveDocument.Words.Count > (MaxCount +
ActiveDocument.Paragraphs.Count) Then
MsgBox "You have " & (ActiveDocument.Words.Count -
ActiveDocument.Paragraphs.Count) & " words, and you are only allowed " &
MaxCount & "."
End If
ActiveDocument.Save
End Sub
Sub FileSaveAs()
'
' FileSaveAs Macro
' Saves a copy of the document in a separate file
'
Dim MaxCount As Integer
MaxCount = 10
If ActiveDocument.Words.Count > (MaxCount +
ActiveDocument.Paragraphs.Count) Then
MsgBox "You have " & (ActiveDocument.Words.Count -
ActiveDocument.Paragraphs.Count) & " words, and you are only allowed " &
MaxCount & "."
Dialogs(wdDialogFileSaveAs).Show
End Sub
Regards
Elizabeth Fullerton, CBAP
Lead Consultant
Infosys Australia
Ph: +61 3 9680 2000
Fax: +61 3 9860 2999
www.infosys.com<http://www.infosys.com>
Powered by intellect
Driven by values
________________________________
From: austechwriter-bounce@xxxxxxxxxxxxx [austechwriter-bounce@xxxxxxxxxxxxx]
On Behalf Of Howard Silcock [howard.silcock@xxxxxxxxx]
Sent: Wednesday, 22 December 2010 1:48 PM
To: austechwriter@xxxxxxxxxxxxx
Subject: atw: Re: Limiting word count
Elizabeth, I think you may need to put this code into the Document_close event
for the Word document. (I'm assuming that you're providing them with a prepared
document to type their abstract into.) It be good if you could actually prevent
them from closing the document until they'd got the word-count down below the
limit, but I can't see how to do that. (By the way, I presume you set MaxCount
to 10 for testing purposes. You might have to set it to 200 plus the number
paragraphs - allowing an extra word for each return.)
Howard
On 22 December 2010 12:29, Elizabeth Fullerton
<Elizabeth_Fullerton@xxxxxxxxxxx<mailto:Elizabeth_Fullerton@xxxxxxxxxxx>> wrote:
Here's a macro that tells them if they have too many words - just a matter of
when it runs. Can't find the info I used to have on auto-macros - I'm pretty
sure you used to be able to make one run every time you save a document.
Also it seems to count returns as words!
Sub MaxWordsThang()
Dim MaxCount As Integer
MaxCount = 10
If ActiveDocument.Words.Count > MaxCount Then
MsgBox "You have " & ActiveDocument.Words.Count & " words, and you are
only allowed " & MaxCount & "."
End If
End Sub
Regards
Elizabeth Fullerton, CBAP
Lead Consultant
Infosys Australia
Ph: +61 3 9680 2000
Fax: +61 3 9860 2999
www.infosys.com<http://www.infosys.com/><http://www.infosys.com<http://www.infosys.com/>>
Powered by intellect
Driven by values
________________________________
From:
austechwriter-bounce@xxxxxxxxxxxxx<mailto:austechwriter-bounce@xxxxxxxxxxxxx>
[austechwriter-bounce@xxxxxxxxxxxxx<mailto:austechwriter-bounce@xxxxxxxxxxxxx>]
On Behalf Of Bill Parker [renew@xxxxxxxxxxxxxx<mailto:renew@xxxxxxxxxxxxxx>]
Sent: Wednesday, 22 December 2010 12:17 PM
To: austechwriter@xxxxxxxxxxxxx<mailto:austechwriter@xxxxxxxxxxxxx>
Subject: atw: Re: Limiting word count
Thanks all. Tweeting ? I doubt it but a good idea. I'll work on the Form
info. And I agree Rhonda - great training when I was doing film and TV
writing - a 100 word synopsis ( not 98 or 105).
Bill
Bill
On 22/12/2010, at 9:07 AM, Rhonda Bracey wrote:
Thinking a little outside the box...
Tell them to write it as a Tweet -- they are limited to 140 characters. Tell
them NOT to Tweet their abstract to the world, but instead, copy/paste it and
insert it in the paper or email it to you.
Alternatively, tell them to write it as an SMS (I think the character limit for
SMS is 160?), or as an Instant Message in Window Live Messenger (also has a
character limit but I'm not sure how many).
Writing an abstract using one of these services will help them hone their text!
Rhonda
Rhonda Bracey
rhonda.bracey@xxxxxxxxxxxxxxxx<mailto:rhonda.bracey@xxxxxxxxxxxxxxxx><mailto:rhonda.bracey@xxxxxxxxxxxxxxxx<mailto:rhonda.bracey@xxxxxxxxxxxxxxxx>>
http://www.cybertext.com.au<http://www.cybertext.com.au/><http://www.cybertext.com.au/>
CyberText Newsletter/blog:
http://cybertext.wordpress.com<http://cybertext.wordpress.com/><http://cybertext.wordpress.com/>
Author-it Certified Consultant
________________________________
From:
austechwriter-bounce@xxxxxxxxxxxxx<mailto:austechwriter-bounce@xxxxxxxxxxxxx>
[mailto:austechwriter-bounce@xxxxxxxxxxxxx<mailto:austechwriter-bounce@xxxxxxxxxxxxx>]
On Behalf Of Bill Parker
Sent: Wednesday, 22 December 2010 8:54 AM
To:
austechwriter@xxxxxxxxxxxxx<mailto:austechwriter@xxxxxxxxxxxxx><mailto:austechwriter@xxxxxxxxxxxxx<mailto:austechwriter@xxxxxxxxxxxxx>>
Subject: atw: Limiting word count
Here's one for a Friday but it is Wednesday.
I want to be able (in Word) to limit the number of words people write in
abstracts for conference proceedings.
The issue is that our authors for an annual conference do not read the
instructions for authors and the end result comes my way for inclusion into a
database every year. I have sometimes had to resort to a cut off at 200 -
unfair but necessary. I'd like to be able to nip it in the bud at source. A
bit like one of those on line blogs where you can watch the character count
decrease as you write.
I realise that you might want to know which version of Word and I cannot
specify.
Any ideas very welcome.
Bill
Dr Bill Parker
“The greatest enemy of the truth is not the lie – deliberate, contrived, and
dishonest – but the myth – persistent, pervasive, and unrealistic.”
John F. Kennedy
Dr Bill Parker
“The greatest enemy of the truth is not the lie – deliberate, contrived, and
dishonest – but the myth – persistent, pervasive, and unrealistic.”
John F. Kennedy
**************** CAUTION - Disclaimer *****************
This e-mail contains PRIVILEGED AND CONFIDENTIAL INFORMATION intended solely
for the use of the addressee(s). If you are not the intended recipient, please
notify the sender by e-mail and delete the original message. Further, you are
not
to copy, disclose, or distribute this e-mail or its contents to any other
person and
any such actions are unlawful. This e-mail may contain viruses. Infosys has
taken
every reasonable precaution to minimize this risk, but is not liable for any
damage
you may sustain as a result of any virus in this e-mail. You should carry out
your
own virus checks before opening the e-mail or attachment. Infosys reserves the
right to monitor and review the content of all messages sent to or from this
e-mail
address. Messages sent to or from this e-mail address may be stored on the
Infosys e-mail system.
***INFOSYS******** End of Disclaimer ********INFOSYS***
**************************************************
To view the austechwriter archives, go to
www.freelists.org/archives/austechwriter<//www.freelists.org/archives/austechwriter>
To unsubscribe, send a message to
austechwriter-request@xxxxxxxxxxxxx<mailto:austechwriter-request@xxxxxxxxxxxxx>
with "unsubscribe" in the Subject field (without quotes).
To manage your subscription (e.g., set and unset DIGEST and VACATION modes) go
to
www.freelists.org/list/austechwriter<//www.freelists.org/list/austechwriter>
To contact the list administrator, send a message to
austechwriter-admins@xxxxxxxxxxxxx<mailto:austechwriter-admins@xxxxxxxxxxxxx>
**************************************************
**************************************************
To view the austechwriter archives, go to
www.freelists.org/archives/austechwriter
To unsubscribe, send a message to austechwriter-request@xxxxxxxxxxxxx with
"unsubscribe" in the Subject field (without quotes).
To manage your subscription (e.g., set and unset DIGEST and VACATION modes) go
to www.freelists.org/list/austechwriter
To contact the list administrator, send a message to
austechwriter-admins@xxxxxxxxxxxxx
**************************************************
Other related posts:
