Solved

How to format autonum numbers to add several 0 before depending if they are one, two or three diggits.

Posted on 2014-11-26
8
64 Views
Last Modified: 2015-04-15
I am looking for a way to format auto numbers, so that they are always the same # of digits. Here is why: the first part of the number is supposed to be the date in a certain format, which works great, and the second part should be an auto-number which also works ok, but not how I need it. So how can I make this number: 201411261 look like this: 20141126001 as if it would always be a three digit number, (there is no case that the autonumber would ever be more than 3 digits)?
Thanks for your help
0
Comment
Question by:mvp1985
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
8 Comments
 
LVL 24

Expert Comment

by:Eirman
ID: 40466586
An imperfect possible workaround
.... start the auto numbering from 1001
0
 
LVL 76

Expert Comment

by:GrahamSkan
ID: 40466665
When the document is complete, you can run a VBA macro to replace the Autonum fields with formatted numbers. This code has been tested in Word 2007, Windows 7.
Sub FormatAutoNum()
    Dim fld As Field
    Dim n As Integer
    Dim rng As Range
    Dim f As Integer
    
    For f = ActiveDocument.Fields.Count To 1 Step -1
        Set fld = ActiveDocument.Fields(f)
        If fld.Type = wdFieldAutoNum Then
            Set rng = fld.Code
            fld.Unlink
            rng.Expand wdWord
            n = Val(rng.Text)
            rng.Text = Format(n, "000")
        End If
    Next f

End Sub

Open in new window

0
 

Author Comment

by:mvp1985
ID: 40466740
How can I start autonumbering at 1001 then?
0
Announcing the Most Valuable Experts of 2016

MVEs are more concerned with the satisfaction of those they help than with the considerable points they can earn. They are the types of people you feel privileged to call colleagues. Join us in honoring this amazing group of Experts.

 
LVL 76

Expert Comment

by:GrahamSkan
ID: 40466801
If your version of Word supports it, you could use ListNum fields with the \s switch in the first one.
{LISTNUM \s 1000}
0
 

Author Comment

by:mvp1985
ID: 40466924
I just tried ListNum, but it does not add an additional number like AutoNum.
0
 
LVL 76

Expert Comment

by:GrahamSkan
ID: 40467398
It isn't clear exactly what the difference is. The number seems to increment as expected.Image of field results
0
 
LVL 76

Expert Comment

by:GrahamSkan
ID: 40467410
I messed that up. Try again:

Image of codes:Field codes
Image of results:ListNumResults.PNG
0
 
LVL 21

Accepted Solution

by:
Eric Fletcher earned 500 total points
ID: 40468470
As in another of your questions (here), I suggest using field code switches and the SEQ field code. Consider the field codes and the results in the screen captures below:
Adding a 3-digit sequence to a date-based valueIn the above, I've set a bookmark named “fcDate” (shown within the [ ] bookmark indicators made visible onscreen by File Options > Advanced > Show document content, Show bookmarks).

On the 2nd line, I've set up a sequence named “Suffix” and set its initial value to 0. The \h switch hides the result (as can be seen in the corresponding result screen capture).

The other lines use the REFerence field code to pull the value of the named bookmark and format it as a date without any separators, but then also adds a SEQ field to insert the sequence’s incrementing value formatted with leading zeros.

Other field codes can use a similar approach, depending on how you can reference your source date values. MailMerge is perhaps the best option if the values are (or can be) in a list. Select all and use Shift-Ctrl-F9 to convert the calculated results to text.

(As noted in the other question, my screen captures above show the result of turning on field code visibility with File Options > Advanced > Show document content, Field shading=Always.)
0

Featured Post

On Demand Webinar: Networking for the Cloud Era

Did you know SD-WANs can improve network connectivity? Check out this webinar to learn how an SD-WAN simplified, one-click tool can help you migrate and manage data in the cloud.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

If you work with Word a lot, you probably use styles. If you use styles a lot, you've probably balled your fist more often than not when working with the ribbon. In Word 2007/2010, one of the things that I find missing when using styles is a quic…
Using Word 2013, I was experiencing some incredible lag when typing.  Here's what worked for me....
Learn how to make your own table of contents in Microsoft Word using paragraph styles and the automatic table of contents tool. We'll be using the paragraph styles in Word’s Home toolbar to help you create a table of contents. Type out your initial …
Office 365 is currently available in five editions. Three of them are for business use: Office 365 Business Essentials, Office 365 Business, and Office 365 Business Premium. Two of them are for home/personal use: Office 365 Home and Office 365 Perso…

628 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question