Subject: TOOLS:
From: "Steve Hudson" <cruddy -at- optushome -dot- com -dot- au>
To: "TECHWR-L" <techwr-l -at- lists -dot- raycomm -dot- com>
Date: Sat, 16 Feb 2002 16:05:16 +1100

OK, some practical help. If you use Outlook, why not setup a rule that
delays the sending of any message with Digest in it's subject line for, say,
an hour. When you see mail sitting in your outbox, not moving, you know to
go and change the subject line.

Now, easy reading of digests. Unfortunately I am a MS Orifice boy, and thus
my tailorings are only good if you have such products on your desk,
nevertheless, here's a little something to help all you mail list digesters.
Of course, please feel free to distibute this mere trifle intact to wherever
you please, and re-write for other script engines etc.

Of course, send me a real digest parcel and I might be able to soup it up a

Cuttenpaste it into word and use this to generate a nice toc at the start,
and clip all quotes over 5 lines. Its easily modifiable...

Public Sub Bitters()
'$Author: heretic -at- tdfa -dot- com
'$Version: 0.1
'$Short: Makes mail list digestion easier.
Const MessageId As String = "Subject:"
Const QuotedText As String = ">"
Const DoRemoveQuotedText As Boolean = True
Const DoMakeTOC As Boolean = True
Const HeadingStyle As Long = wdStyleHeading3
Const MaxQuotedLines As Long = 5

Dim Para As Long
Dim IsQuoted As Boolean
Dim FirstQuote As Long
Dim LastQuote As Long
Dim DelPara As Long

For Para = ActiveDocument.Paragraphs.Count To 1 Step -1
With ActiveDocument.Paragraphs(Para)
IsQuoted = False
If .Range.Characters(1) = QuotedText Then IsQuoted = True
'mark heading
If DoMakeTOC And (Not IsQuoted) And _
(InStr(1, .Range.Text, MessageId) > 0) _
Then .Style = HeadingStyle

If DoRemoveQuotedText Then
If IsQuoted Then
If FirstQuote > 0 Then 'we have just gone past a block
'test for quote block size
LastQuote = Para + 1
If FirstQuote - LastQuote > MaxQuotedLines Then 'delete the
For DelPara = FirstQuote To LastQuote Step -1
FirstQuote = 0
End If
End If
End If
End If
End With
If DoMakeTOC Then
With Selection
.HomeKey unit:=wdStory
.HomeKey unit:=wdStory
ActiveDocument.TablesOfContents.Add .Range
End With
End If
End Sub

Steve Hudson, Word Heretic
Word help and tools: heretic -at- tdfa -dot- com

-----Original Message-----
From: Ron Miller [mailto:ronsmiller -at- attbi -dot- com]
Sent: Saturday, 16 February 2002 5:13 AM
To: david -at- knopf -dot- com; Jon Tobey; HATT -at- yahoogroups -dot- com
Subject: Re: [HATT] ADMIN: Reminder re snipping posts

Of course, you could post it to SourceForge and if you're lucky someone
could design you just such a tool. :)

Did you know you can get RoboHelp certified?
To learn how, visit Be sure to also check out
our special pricing offers and promotions for RoboHelp 2002.

Have you looked at the new content on TECHWR-L lately?
See and check it out.

You are currently subscribed to techwr-l as: archive -at- raycomm -dot- com
To unsubscribe send a blank email to leave-techwr-l-obscured -at- lists -dot- raycomm -dot- com
Send administrative questions to ejray -at- raycomm -dot- com -dot- Visit for more resources and info.


Previous by Author: RE: Intranet Policies and Strategy Docs
Next by Author: Request for Help
Previous by Thread: HUMOR: Solution to you documentation and career problems
Next by Thread: Re:

What this post helpful? Share it with friends and colleagues:

Sponsored Ads