Re: autonumbering

Tech-Archive recommends: Repair Windows Errors & Optimize Windows Performance



Hmm, if you want to number text in a single sequence, you can use the macro
below which increments and inserts the numbers into text. In order to run
the macro easily, you may want to attach it to a custom button that you can
add to any toolbar. See http://www.gmayor.com/installing_macro.htm.

Sub CreateSeqNumber()

'(Modified version of the code at
'http://word.mvps.org/faqs/macrosvba/NumberDocs.htm)

Order = System. _
PrivateProfileString _
("C:\Settings.Txt", _
"MacroSettings", "Order")

If Order = "" Then
Order = 1
Else
Order = Order + 1
End If

Selection.Collapse wdCollapseStart
Selection.InsertAfter Order

System.PrivateProfileString _
("C:\Settings.Txt", _
"MacroSettings", "Order") = Order

End Sub

Note that the macro keeps track of the sequence by storing the current value
in a text file called Settings.txt stored in the root folder C:\. (You can
change the path in the code if you want the file somewhere else.)

--
Stefan Blom
Microsoft Word MVP



"cedarmoose" <cedarmoose@xxxxxxxxxxxxxxxxxxxxxxxxx> wrote in message
news:42E8D7E1-C8CA-4E9D-B8F0-B0A1DC850CE9@xxxxxxxxxxxxxxxx
would it allow me to add more autonumber to the list
Actually what I need is this
I am answering bible questions online and make a copy each time of my
answer
for reference later which I keep on a doc with autonumber. I would like to
reverse the order starting from 1 at the bottom of the sheet and adding
upward as I add more. Sorry for my english

"Stefan Blom" wrote:

If you are trying to number text on the page, you can use SEQ fields to
create a reverse numbering sequence. See
http://homepage.hispeed.ch/cindymeister/NbrFAQ.htm#RevNbr.

If you are trying to number the pages in the reverse order, you can use
the
following field in the header (or footer):

{ = { NUMPAGES } - { PAGE } + 1 }

To create each pair of field delimiters, { }, use Ctrl+F9. Use Alt+F9 to
show/hide field codes. To update fields at the insertion point, press F9.

--
Stefan Blom
Microsoft Word MVP



"cedarmoose" <cedarmoose@xxxxxxxxxxxxxxxxxxxxxxxxx> wrote in message
news:51DC0AFD-6684-4697-9866-317127E4F1EE@xxxxxxxxxxxxxxxx
Is there a way to reverse the already autonumbered page, I mean from
bottom
to top starting 1 at the bottom
--
Thanks to all

dell d800 lap
xp pro


















.



Relevant Pages

  • Re: Reverse order numbered list
    ... The following is a far superior macro to ... Dim i As Long, Numrange As Range ... already have a list that he needed to number in reverse. ... set up the fields and then type the sequence. ...
    (microsoft.public.word.numbering)
  • sorting list
    ... Is it possible to sort a list from top to bottom (reverse the sequence) in ...
    (microsoft.public.word.newusers)
  • Re: Button adding Section of Text
    ... insert the text section into the middle of the document not at the bottom ... I'm also looking for a way to call the Macro by ... protecting the code from prying eyes. ... I'd suggest using a SEQ field instead of a dropdown to display the ...
    (microsoft.public.word.docmanagement)
  • Re: Hunter builds
    ... start over the sequence." ... What happens on third press a few ms ... keep pressing it, it'll fire steady, auto, steady, auto forever. ... To be honest, it's not strictly necessary in THIS macro, because there's ...
    (alt.games.warcraft)
  • Re: How do I set up automatically suceeding numbers in Word?
    ... "Jay Freedman" wrote: ... In the template, insert continuous-type section breaks before and after ... Or, in the macro, insert new code before and after the InsertBefore line ... That will turn off the protection just long enough to insert the sequence ...
    (microsoft.public.word.docmanagement)