Ajouter automatiquement des points à la fin des notes de bas de
Résolu
pianoblanc7357
Messages postés
25
Statut
Membre
-
pianoblanc7357 Messages postés 25 Statut Membre -
pianoblanc7357 Messages postés 25 Statut Membre -
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)
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
-
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
-
-
Bonjour
J'explique ici :
https://faqword.com/index.php/generalites-office/615-le-b-a-ba-du-vba#forum
m@rina -
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 -
-
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
-
-
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 !!!
