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

Résolu/Fermé
pianoblanc7357 Messages postés 22 Date d'inscription vendredi 18 août 2017 Statut Membre Dernière intervention 16 novembre 2017 - 9 nov. 2017 à 07:55
pianoblanc7357 Messages postés 22 Date d'inscription vendredi 18 août 2017 Statut Membre Dernière intervention 16 novembre 2017 - 16 nov. 2017 à 22:00
Bonjour,

Ma thèse comprend 3800 notes de bas de page. J'avais pris le parti, pour homogénéiser, de supprimer les points à la fin de celles qui en comportaient.
On me demande aujourd'hui de bien vouloir mettre un point à la fin de ces 3800 notes...
Je vous laisse imaginer le temps que cela va me prendre manuellement...
Alors, je souhaiterais simplement savoir s'il existe un moyen de faire la chose systématiquement...
En vous remerciant pour votre aide... (je travaille avec Word 2016)

2 réponses

m@rina Messages postés 20036 Date d'inscription mardi 12 juin 2007 Statut Contributeur Dernière intervention 19 avril 2024 11 269
9 nov. 2017 à 13:19
Bonjour,

Tu peux le faire avec une macro, et justement (quelle chance :)), j'en ai justement mis une ici :
https://faqword.com/index.php/word/references/865-ajouter-un-point-a-la-fin-de-chaque-note

m@rina
0
pianoblanc7357 Messages postés 22 Date d'inscription vendredi 18 août 2017 Statut Membre Dernière intervention 16 novembre 2017
9 nov. 2017 à 16:21
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
0
m@rina Messages postés 20036 Date d'inscription mardi 12 juin 2007 Statut Contributeur Dernière intervention 19 avril 2024 11 269
10 nov. 2017 à 11:39
0
pianoblanc7357 Messages postés 22 Date d'inscription vendredi 18 août 2017 Statut Membre Dernière intervention 16 novembre 2017 > m@rina Messages postés 20036 Date d'inscription mardi 12 juin 2007 Statut Contributeur Dernière intervention 19 avril 2024
12 nov. 2017 à 22:30
Merci 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
0
m@rina Messages postés 20036 Date d'inscription mardi 12 juin 2007 Statut Contributeur Dernière intervention 19 avril 2024 11 269
13 nov. 2017 à 00:24
Il faut exécuter la macro !!! :)
0
pianoblanc7357 Messages postés 22 Date d'inscription vendredi 18 août 2017 Statut Membre Dernière intervention 16 novembre 2017 > m@rina Messages postés 20036 Date d'inscription mardi 12 juin 2007 Statut Contributeur Dernière intervention 19 avril 2024
13 nov. 2017 à 11:19
Bonjour

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
0
pianoblanc7357 Messages postés 22 Date d'inscription vendredi 18 août 2017 Statut Membre Dernière intervention 16 novembre 2017
16 nov. 2017 à 22:00
SUPER !!!!!!!!!!

ça a parfaitement fonctionné !!!

Merci à toi du fond du coeur !!
C'est tellement appréciable (et rare) les gens sur qui on peut compter comme ça !!!

Mille mercis !!!! du fond du coeur ! ENCORE !!!
0