🚀 go-pugleaf

Here's the same script, but in VBScript. Save it in a text file ending with .vbs and place it in your script folder.

Dim i, j, k, starteur, starteur2
    Const AppelNote = "AppelNote"
    Const ChiffreNote = "ChiffreNote"

Set myindesign = CreateObject("InDesign.Application.2.0")
    Set MyDoc = myindesign.ActiveDocument
    ' clears find preferences
    myindesign.FindPreferences = idNothing
    myindesign.ChangePreferences = idNothing

' checks if "AppelNote" or "ChiffreNote" exists. AppelNote is the name of the characteur style
    ' I use to place my footnote number in text
     If MyDoc.CharStyles.Count > 0 Then
        For i = 1 To MyDoc.CharStyles.Count
            Select Case MyDoc.CharStyles.Item(i)
                Case AppelNote
                     j = 1
                Case ChiffreNote
                    k = 1
            End Select
        Next
    End If
    If j = 0 Or k = 0 Then
        MsgBox ("Please make sure you have the necessary CharacterStyle set in your pub.")
    Else
    'Loops through the pages
        For k = 1 To MyDoc.Pages.Count
            Set mypage = MyDoc.Pages.Item(k)
            ' Loops the Textframes
            For j = 1 To mypage.TextFrames.Count
                Set myTSRs = mypage.TextFrames.Item(j).TextStyleRanges
                ' Loops through the TextStyleRanges
                For i = 1 To myTSRs.Count
                    'Finds "AppelNote" and "ChiffreNote"
                    With myTSRs.Item(i)
                        'test = .CharacterStyle
                        Select Case .CharacterStyle
                            Case AppelNote
                                starteur = starteur + 1
                                .TextContents = LTrim(starteur)
                            Case ChiffreNote
                                starteur2 = starteur2 + 1
                                .TextContents = LTrim(starteur2) & "."
                        End Select
                    End With
                Next
            Next
        Next
        MsgBox ("Finish")
    End If