[VBA-W] insertion de signets [Résolu]

[dev81]

comment incrémenter le nom des signets dans une boucle for?

code:

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 For i = 1 To FormPilotage.TextBox_NbPara.Value
            FormPilotage.ComboBox_NumPara.AddItem (i)
            'Mettre les signets des titres dans le doc word
            'insérer les signets sans texte
            Selection.EndKey Unit:=wdStory
            Selection.Collapse Direction:=wdCollapseEnd
            With ActiveDocument.Bookmarks
                .Add Range:=Selection.Range, Name:="Para" 'incrémenter le nom du signet para1,para2,...
            End With
 
            Selection.EndKey Unit:=wdStory
            ThisDocument.Range.InsertParagraphAfter
            ThisDocument.Range.InsertParagraphAfter
            ThisDocument.Range.InsertParagraphAfter
 
        Next i

[gruget]

Bonjour
Comme ca non?

Code :

1
2
3
            With ActiveDocument.Bookmarks
                .Add Range:=Selection.Range, Name:="Para" & i 
            End With

rémi

[dev81]

C'esy bon ca marche c'était tout con mais je m'emmeller les pinceau je crois.
Merci pour cette réponse.