Ajouter automatiquement des points à la fin des notes de bas de

Bonjour et merci beaucoup m@rina !
C'est vraiment super !!!

Par contre, ça va être ma première Macro. Je n'en ai jamais créé ni utilisé. Comment faire pour utiliser les commandes qui figurent sur ton lien STP ?

En te remerciant 2000 fois ! Isa

Bonjour

J'explique ici :
https://faqword.com/index.php/generalites-office/615-le-b-a-ba-du-vba#forum

m@rina

@m@rinaMerci beaucoup !!!
Alors je ne comprends pas, j'ai suivi la procédure, me semble-t-il, mais aucun changement ne s'opère dans mes notes de bas de page.

J'ai fait ALT F11, créé le module
il n'y a pas de lignes rouges ou éléments semblant erronés

puis j'ai quitté cette fenêtre
j'ai fait ALT F8, mais pas de points qui apparaissent.

J'ai enregistré le doc sous un format acceptant les macros. Rien de plus...

Qu'est-ce qui pourrait clocher ?

En vous remerciant encore...

Bonne soirée
pianoblanc

Il faut exécuter la macro !!! :)

@m@rinaBonjour

oui, je l'ai exécutée, mais rien.
Alors soit j'ai mal copié la macro

soit y a un truc avec mes notes de bas de page

J'ai tenté deux versions de la macro, dans le doute

la première est celle là :

Sub notes()
'macro écrite par m@rina
Dim note As Endnote
Dim manote As String
For Each note In ActiveDocument.Endnotes
manote = note.Range.Text
If note.Range.Characters.Last <> "." Then
note.Range.Text = manote & "."
End If

Next
End Sub

la deuxième est celle-là
Sub notes()

Dim note As Endnote
Dim manote As String
For Each note In ActiveDocument.Endnotes
manote = note.Range.Text
If note.Range.Characters.Last <> "." Then
note.Range.Text = manote & "."
End If

Next
End Sub

j'ai enregistré, cliqué sur Exécuter, mais rien dans les deux cas