TechWhirl (TECHWR-L) is a resource for technical writing and technical communications professionals of all experience levels and in all industries to share their experiences and acquire information.
For two decades, technical communicators have turned to TechWhirl to ask and answer questions about the always-changing world of technical communications, such as tools, skills, career paths, methodologies, and emerging industries. The TechWhirl Archives and magazine, created for, by and about technical writers, offer a wealth of knowledge to everyone with an interest in any aspect of technical communications.
Subject:RE: Word numbering workaround From:"Gurudutt R. Kamath" <documentor -at- vsnl -dot- com> To:"TECHWR-L" <techwr-l -at- lists -dot- raycomm -dot- com> Date:Fri, 20 Aug 2004 10:52:04 +0530
Thank you Steve and Suzy for helping me with this code. It works
beautifully.
Guru
Send an email to documentorg-subscribe -at- topica -dot- com to receive my column
for newbie technical writers. (Latest: Tips on Microft Manual of Style)
-----Original Message-----
From: suzy -dot- davis -at- doi -dot- vic -dot- gov -dot- au [mailto:suzy -dot- davis -at- doi -dot- vic -dot- gov -dot- au]
Sent: Friday, August 20, 2004 9:31 AM
To: Gurudutt R. Kamath
Subject: RE: Word numbering workaround
Guru
If you don't have need to pass a range to the procedure suggest that you
make the following change:
Public Sub RestartListNumbering()
'Public Sub RestartListNumbering(Optional Scope As Range)
'(c) 1999-2004 Word Heretic steve -at- wordheretic -dot- com
'Restarts list numbering, 97-XP, all list implementations
Dim Scope As Range
Dim KillScope As Boolean
Set Scope = Selection.Range
If Scope Is Nothing Then
Set Scope = Selection.Range
KillScope = True
End If
'Use first listpara
With Scope.ListParagraphs
If .Count > 0 Then
With .Item(1).Range.ListFormat
.ApplyListTemplate .ListTemplate, False
End With
End If
End With
ROBOHELP X5: Featuring Word 2003 support, Content Management, Multi-Author
support, PDF and XML support and much more!
TRY IT TODAY at http://www.macromedia.com/go/techwrl
WEBWORKS FINALDRAFT: New! Document review system for Word and FrameMaker
authors. Automatic browser-based drafts with unlimited reviewers. Full
online discussions -- no Web server needed! http://www.webworks.com/techwr-l
---
You are currently subscribed to techwr-l as:
archiver -at- techwr-l -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 http://www.raycomm.com/techwhirl/ for more resources and info.
