Possible feature - increment counter based on string pattern ?

Currently, I have an application ( Add In ) that generate table of content and add a counter for a constant tag. Just feel like replacing the Add In with simple macro.

I am sure that we can create a macro to generate table of content.

But, not too sure whether I can create a macro to increment the counter based on a string set by user.

For example in my document, all the string with TAGID, I need to change it to TAGID1, TAGID2 based on the last counter.

Is there some feature in Microsoft Word that allow me to do it ? or I need to write a macro to find all words with TAGID and then strip off the number at the end, take the MAX then +1.

Thanks for input.

Sharing the simple code I have created.

Sub InsertTag()
Dim text1 As String
Dim counter, maxcounter As Integer

Dim RowNum As Long, ColNum As Long

If Selection.Information(wdWithInTable) Then
RowNum = Selection.Cells(1).RowIndex
ColNum = Selection.Cells(1).ColumnIndex
End If

maxcounter = 0
For li_row = 1 To 10
text1 = Trim(Selection.Tables(1).Cell(li_row, 2).Range.Text)
counter = Right(Trim(Left(text1, Len(text1) - 2)), 1)
If IsNumeric(counter) Then
If counter > maxcounter Then
maxcounter = counter
End If
End If
Next

maxcounter = maxcounter + 1

Selection.Tables(1).Cell(RowNum, ColNum).Range.Text = "CSID" & maxcounter



End Sub

Hi Macropod, Good idea. I will explore the DocProperty to store my latest counter.