🚀 go-pugleaf

Again me.

Cycling through pages remove the previous problem. Now, I must find a way to taking into account the relative positions of the foonotes call if, for example, they are made from numerous text frames.

Sub RenumberFootnotesIndesign()
    Dim i, j, k, starteur, starteur2 As Integer
    Const AppelNote = "AppelNote"
    Const ChiffreNote = "ChiffreNote"
    Dim test, test1 As Variant
    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 Is = AppelNote: j = 1
                Case Is = ChiffreNote: k = 1
            End Select
        Next i
    End If
    If j = 0 Or k = 0 Then MsgBox "Please make sure you have the necessary CharacterStyle set in your pub.": End

'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 Is = AppelNote
                            starteur = starteur + 1
                            .TextContents = LTrim$(starteur)
                        Case Is = ChiffreNote
                            starteur2 = starteur2 + 1
                            .TextContents = LTrim$(starteur2)
                    End Select
                End With
            Next i
        Next j
    Next k
    MsgBox "Finish"
End Sub