Omvendt nummererte lister

January 31  by Eliza

Ord har en innebygd nummerert-liste funksjon som du kan bruke til å raskt utvikle dine lister. Dette er flott for lister som er i stigende rekkefølge (1 til 10), men ikke så stor for de du ønsker i synkende rekkefølge (10 til 1).

Hvis du har behov for omvendt lister, er det ingen automatisk funksjon i Word som lar deg lage dem. En vei rundt dette er å bare lage din egen liste tall og sette dem i den rekkefølgen du ønsker. Problemet med dette er at prosessen er manuelt krevende. I tillegg kan den vanlige nummerert-liste funksjon i Word spille ødeleggelse med omvendt sortert liste hvis du trykker på Enter på slutten av en eksisterende listeelement.

En annen måte å håndtere situasjonen er å gå foran hvert element i listen din med et SEQ feltet for å generere tall for listeelementet. Når du er ferdig med listeelementer, kan du deretter oppdatere feltene og sortere avsnitt i synkende rekkefølge. Den åpenbare ulempen med denne tilnærmingen er at du må skrive inn din opprinnelige listen i motsatt rekkefølge, siden den endelige form vil gjøre bestilling for deg. Dermed, hvis du hadde 10 elementer, skriver du inn nummer 10 først, deretter nummer 9, og så videre. Når du gjorde den slags, vil rekkefølgen av elementene bli reversert, og hvert element ville ende opp i sin endelige bestillingen.

En annen ulempe med dette er at å legge til elementer i listen blir tungvint, og hvis du oppdaterer feltene i dokumentet, vil tallene bli kastet av helt. Således må en mer tilfredsstillende måte funnet.

En måte er å modifisere SEQ-feltet, slik at det mer hensiktsmessig viser den tilsiktede rekkefølge av avsnittene. Ved hjelp av en sammensatt felt for listenummeret kan gjøre dette, i den følgende måte:

{= NP - {SEQ RevList}}

I dette tilfellet, må tegnene NP bli erstattet med et tall som er større enn antall elementer i den endelige listen. Således, hvis listen besto av 25 elementer, så NP ville være 26. Den SEQ-feltet brukes for å generere en stigende rekkefølge av tall trukket fra NP å gi en endelig omvendt rekkefølge nummerering.

Så lenge du vet hvor mange avsnitt (elementer) i listen din, og du husker å sette feltet i begynnelsen av hvert avsnitt, er du i god stand. Hvis du glemmer enten ett, kan listen bli kastet av. For å løse dette, kan en makro komme godt med. Følgende makroer (RevList og DoList) vil gjøre utslaget.

Sub RevList ()
Dim ShowFlag Som boolsk
Dim Numparas As Integer
Dim Counter As Integer

Numparas = Selection.Paragraphs.Count
Selection.MoveLeft Enhet: = wdCharacter, Count: = 1
ShowFlag = ActiveWindow.View.ShowFieldCodes
ActiveWindow.View.ShowFieldCodes = True
DoList Numparas
Teller = 1
Mens Counter <Numparas
Selection.Move Enhet: = wdParagraph, Count: = 1
DoList Numparas
Teller = Counter + 1
Wend
ActiveWindow.View.ShowFieldCodes = ShowFlag
ActiveDocument.Select
ActiveDocument.Fields.Update
End Sub

Private Sub DoList (teller As Integer)
Selection.Extend
Selection.MoveRight Enhet: = wdCharacter, Count: = 1
Hvis InStr (Selection.Text, "SEQ")> 0 Then
Selection.MoveRight Enhet: = wdCharacter, Count: = 2
Selection.Delete Enhet: = wdCharacter, Count: = 1
Else
Selection.Collapse Regi: = wdCollapseStart
End If
Selection.Fields.Add Range: = Selection.Range, Type: = wdFieldEmpty, _
PreserveFormatting: = False
Selection.TypeText Tekst: = "=" & teller + 1 & "-"
Selection.Fields.Add Range: = Selection.Range, Type: = wdFieldEmpty, _
PreserveFormatting: = False
Selection.TypeText Tekst: = "SEQ RevList"
Med Selection.ParagraphFormat
.LeftIndent = InchesToPoints (0,5)
.FirstLineIndent = InchesToPoints (-0.5)
Avslutt med
Selection.MoveRight Enhet: = wdCharacter, Count: = 4
Selection.InsertAfter "." & VbTab
End Sub

Å bruke makroer, velger du bare de avsnittene som skal inkluderes i listen, og deretter kjøre RevList, som igjen bruker DoList. De riktige feltene er plassert i begynnelsen av hvert avsnitt (fjerne noen som er der allerede), og bruke et hengende innrykk til avsnittene.

Hvis du ønsker å endre den måten som det hengende innrykket er skapt, bare endre linjene i DoList makro hvor LeftIndent og FirstLineIndent eiendommene er satt.

WordTips er din kilde for kostnadseffektiv Microsoft Word trening. (Microsoft Word er den mest populære tekstbehandlingsprogrammet i verden.) Dette tipset (1759) gjelder for Microsoft Word 97, 2000, 2002, og 2003. Du kan finne en versjon av dette tipset for Båndet av Word (Word 2007 og senere) her: Omvendt nummererte lister.