🚀 go-pugleaf

Here we go, my first attempt to renumber my footnotes. And it works for the first part of the process, aka The renumbering of the CharacterStyle text. While it works, I'm wondering if there is a better way to do so.

My document has two layers. The main layers would be "Layer 1" where the text is. The second layers would contain the footnotes frames. You can find my test document at <http://www.guyverville.com/TestFolder.zip>.

This is a VBA script. It is certainly easy to convert it into a WindowsScript. I'm looking forward for your inputs! Thanks in advance.

Dim compteur, compteur2, i, j, starteur As Integer
Const AppelNote = "AppelNote"
Dim test, test1 As Variant
Set myindesign = CreateObject("InDesign.Application.2.0")
Set mydoc = myindesign.ActiveDocument

'compteur is counter; Starteur is the number I want to increment.
compteur = 0
starteur = 1

' clears find preferences
myindesign.FindPreferences = idNothing
myindesign.ChangePreferences = idNothing

' checks if "AppelNote" exists. AppelNote is the name of the characteur style
' I use to place my footnote number in text
compteur = mydoc.CharStyles.Count
If compteur > 0 Then
    For i = 1 To compteur
        test = mydoc.CharStyles.Item(i)
        If test = AppelNote Then test1 = test
    Next i
    If test1 <> AppelNote Then MsgBox "Your document doesn't contain the AppelNote character style"
Else
    MsgBox "Your document doesn't contain the AppelNote character style"
End If

' Layer 1 is where my main text is
Set mylayer1 = mydoc.Layers.Item("Layer 1")

' Counts the total textframes
compteur = mylayer1.TextFrames.Count

' Loops the Textframes
For j = 1 To compteur
    ' Counts the number of TextStyleRanges present in the TextFrame
    compteur1 = mylayer1.TextFrames.Item(j).TextStyleRanges.Count
    ' Loops the TextStyleRanges
    For i = 1 To compteur1
        'Finds the TextStyleRanges where CharacterStyle is "AppelNote"
        Set mytextstylerange = mylayer1.TextFrames.Item(j).TextStyleRanges.Item(i)
        test = mytextstylerange.CharacterStyle
            If test = AppelNote Then
            mytextstylerange.TextContents = LTrim$(starteur)
            starteur = starteur + 1
            End If
    Next i



Next j