Re: Seq field solution?

[Geoff Lane <geoff -at- gjctech -dot- co -dot- uk>]

On Thursday, March 6, 2008, jopakent -at- comcast -dot- net wrote;

> Can someone point me in the right direction before I self-emmolate out of utter frustration?
---

You can create macros (record them if you're not comfortable with the
VBA Editor) to create the required levels. For each level, define a
sequence and also include code to reset the next level down to zero.
While you can reset all lower levels, you should only need to reset
the next level down unless you are in the habit of following (say) a
level 1 item with a level 3 item. You can add these macros to a custom
tool bar or menu.

It's probably easier to show you. Here's some I prepared earlier:

Sub InitialiseOutline()
' Set level 1 initially to zero
    Selection.Fields.Add Range:=Selection.Range, _
        Type:=wdFieldEmpty, Text:="SEQ L1 \h \r0", _
        PreserveFormatting:=False
End Sub

Sub Level1()
    ' Add a level 1 number and reset level 2 to zero
    Selection.Fields.Add Range:=Selection.Range, _
        Type:=wdFieldEmpty, Text:="SEQ L1", _
        PreserveFormatting:=False
    Selection.Fields.Add Range:=Selection.Range, _
        Type:=wdFieldEmpty, Text:="SEQ L2 \h \r0", _
        PreserveFormatting:=False
End Sub

Sub Level2()
    ' Copy current level 1, add a level 2 number
    ' and reset level 3 to zero
    Selection.Fields.Add Range:=Selection.Range, _
        Type:=wdFieldEmpty, Text:="SEQ L1 \c", _
        PreserveFormatting:=False
    Selection.TypeText "."
    Selection.Fields.Add Range:=Selection.Range, _
        Type:=wdFieldEmpty, Text:="SEQ L2", _
        PreserveFormatting:=False
    Selection.Fields.Add Range:=Selection.Range, _
        Type:=wdFieldEmpty, Text:="SEQ L3 \h \r0", _
        PreserveFormatting:=False
End Sub

Sub Level3()
    ' Copy current levels 1 and 2 and
    ' add a level 3 number
    Selection.Fields.Add Range:=Selection.Range, _
        Type:=wdFieldEmpty, Text:="SEQ L1 \c", _
        PreserveFormatting:=False
    Selection.TypeText "."
    Selection.Fields.Add Range:=Selection.Range, _
        Type:=wdFieldEmpty, Text:="SEQ L2 \c", _
        PreserveFormatting:=False
    Selection.TypeText "."
    Selection.Fields.Add Range:=Selection.Range, _
        Type:=wdFieldEmpty, Text:="SEQ L3", _
        PreserveFormatting:=False
End Sub

Note that if you insert a list item the following list items won't
change to reflect the insertion until you update the associated
fields. To do that, select the list (or the entire document) then
press F9.

HTH,

-- 
Geoff

^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

Create HTML or Microsoft Word content and convert to Help file formats or 
printed documentation. Features include support for Windows Vista & 2007 
Microsoft Office, team authoring, plus more.
http://www.DocToHelp.com/TechwrlList

True single source, conditional content, PDF export, modular help.
Help & Manual is the most powerful authoring tool for technical
documentation. Boost your productivity! http://www.helpandmanual.com

---
You are currently subscribed to TECHWR-L as archive -at- web -dot- techwr-l -dot- com -dot- 

To unsubscribe send a blank email to 
techwr-l-unsubscribe -at- lists -dot- techwr-l -dot- com
or visit http://lists.techwr-l.com/mailman/options/techwr-l/archive%40web.techwr-l.com


To subscribe, send a blank email to techwr-l-join -at- lists -dot- techwr-l -dot- com

Send administrative questions to admin -at- techwr-l -dot- com -dot-  Visit
http://www.techwr-l.com/ for more resources and info.