Ajouter automatiquement des points à la fin des notes de bas de [Résolu/Fermé]

Signaler
Messages postés
22
Date d'inscription
vendredi 18 août 2017
Statut
Membre
Dernière intervention
16 novembre 2017
-
Messages postés
22
Date d'inscription
vendredi 18 août 2017
Statut
Membre
Dernière intervention
16 novembre 2017
-
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

Messages postés
16640
Date d'inscription
mardi 12 juin 2007
Statut
Contributeur
Dernière intervention
22 octobre 2020
9 828
Bonjour,

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

m@rina
Messages postés
22
Date d'inscription
vendredi 18 août 2017
Statut
Membre
Dernière intervention
16 novembre 2017
>
Messages postés
16640
Date d'inscription
mardi 12 juin 2007
Statut
Contributeur
Dernière intervention
22 octobre 2020

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
Messages postés
22
Date d'inscription
vendredi 18 août 2017
Statut
Membre
Dernière intervention
16 novembre 2017
>
Messages postés
22
Date d'inscription
vendredi 18 août 2017
Statut
Membre
Dernière intervention
16 novembre 2017

j'ai essayé dans un deuxième document, et les points n'apparaissent pas non plus à la fin des notes de bas de page
Messages postés
16640
Date d'inscription
mardi 12 juin 2007
Statut
Contributeur
Dernière intervention
22 octobre 2020
9 828
Bonjour,

Ouppsss... désolée, la macro a été faite pour les notes de fin et non les notes de bas de page.

Remplace simplement Endnote par Footnote (et Endnotes par Footnotes).

Je modifie sur le site.

m@rina
Messages postés
22
Date d'inscription
vendredi 18 août 2017
Statut
Membre
Dernière intervention
16 novembre 2017

Hello !!

Merci beaucoup !
Alors, là ça marche, c'est cool...
Mais ce qui n'est pas cool c'est que l'ajout de ces points me modifie les italiques les petites majuscules etc...
Selon les notes, ils me mettent certaines toutes en italiques, d'autres ils suppriment les italiques, d'autres ils les mettent en petites majuscules, en fonction de ce qu'ils trouvent comme type de caractère dans les notes...
Ne peut-on pas se prémunir contre ça ? Parce que du coup, ça fausse tout..

Bien désolée pour ces complications hein...
Messages postés
16640
Date d'inscription
mardi 12 juin 2007
Statut
Contributeur
Dernière intervention
22 octobre 2020
9 828
Effectivement ! quelles complications...
La macro ne prend effectivement pas le formatage en charge, du fait du formatage manuel. Le formatage manuel est toujours à éviter dans Word, mieux on respecte les styles moins on a de problèmes.

Essaie cette macro :

Sub notes()
'macro écrite par m@rina
Dim note As Footnote
Dim manote As String
For Each note In ActiveDocument.Footnotes
manote = note.Range.Text
If note.Range.Characters.Last <> "." Then
note.Range.Characters.Last.Select
With Selection
.Collapse direction:=wdCollapseEnd
.TypeText Text:="."
End With
End If
Next
End Sub


Elle risque d'être plus longue.
m@rina
Messages postés
22
Date d'inscription
vendredi 18 août 2017
Statut
Membre
Dernière intervention
16 novembre 2017

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 !!!