LHSP‡ <1to10> period1to10pcspeakýð„Sub Main ' For Release 7 to allow easier dictation of numbered lists. SendKeys ListVar1 & ". ",True HeardWord "\Cap" End Sub  <1to10> periodparaline1to10pcspeakýðÿSub Main ' Copyright 2003 by Softnet Systems, Inc. ' Permission granted for individuals to copy this command for their individual use. ' No permission is granted for further distribution of this command, commercial or otherwise. ' Contact Softnet Systems via www.pcspeak.com for permission to redistribute. ' ' Not intended for Word -- automatic number generation is recommended in Word or Word Perfect ' However, it will work within Word/Word Perfect ' Release 7 -- makes up for regression Select Case ListVar1 Case "line", "new line", "next line", "item", "new item", "next item" SendKeys "{Enter}" Case "paragraph", "new paragraph", "next paragraph" SendKeys "{Enter 2}" End Select SendKeys ListVar2 & ". ",True HeardWord "\Cap" End Sub 1to10 11023456789paraline itemlinenew itemnew line new paragraph next item next linenext paragraph paragraph