• Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 82
  • Last Modified:

Renumber Word data

Hi All,

I have a function to insert reference numbers into a word document with a mouse click:

e.g.  
click > [R001]
click > [R002]
etc.

While maintaining this document, it can hapen that the function is used to insert new numbers

click > [R003]

But the result after that could be:
[R001]
[R003]
[R002]

I'm looking for a function, that will search for the [Rxxx] format and renumber this in the the whole document, without changing other stuff.

I don't write VBA (oke a little) so please keep it simple
0
theo kouwenhoven
Asked:
theo kouwenhoven
  • 2
  • 2
1 Solution
 
xtermieCommented:
Can you please post a sample document?
0
 
theo kouwenhovenAuthor Commented:
Hi xtermie,

I was not allowed to attach the .docm file so I renamed it to .doc.
In the example there are some rows, but also the VB source that is used to insert the reference numbers.

It would be nice if it can write some logging to a TXT file during the rename actions.

e.g.
[R001] > [R001]
[R025] > [R002]
[R002] > [R003]
etc
SampleDocument.doc
0
 
Bill PrewCommented:
Give this VBA subroutine a try, seemed to do the job here.

Sub SequenceNumbers()
    Dim rng As Range
    Dim i As Integer

    ' Initialize new sequence values
    i = 0
    
    ' Search entire document
    Set rng = ActiveDocument.Range
    
    ' Use Word FIND methond to do a simple regular expression search
    With rng.Find
        ' Look for our sequence tags in format [Rnnn]
        .Text = "(\[R[0-9]{3}\])"
        .MatchWildcards = True
        
        ' Loop finding each matching tag
        Do While .Execute()
            ' Increment new sequence number and update this tag
            i = i + 1
            rng.Text = "[R" & Format(i, "000") & "]"
        Loop
    End With

End Sub

Open in new window

~bp
0
 
theo kouwenhovenAuthor Commented:
Great !!!!! thanks working fine :-)
0
 
Bill PrewCommented:
Welcome.

~bp
0

Featured Post

Independent Software Vendors: We Want Your Opinion

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

  • 2
  • 2
Tackle projects and never again get stuck behind a technical roadblock.
Join Now