Signaler

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

Posez votre question pianoblanc7357 22Messages postés vendredi 18 août 2017Date d'inscription 16 novembre 2017 Dernière intervention - Dernière réponse le 16 nov. 2017 à 22:00 par pianoblanc7357
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)

Utile
+0
plus moins
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
pianoblanc7357 22Messages postés vendredi 18 août 2017Date d'inscription 16 novembre 2017 Dernière intervention - 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
Répondre
pianoblanc7357 22Messages postés vendredi 18 août 2017Date d'inscription 16 novembre 2017 Dernière intervention - 13 nov. 2017 à 11:44
j'ai essayé dans un deuxième document, et les points n'apparaissent pas non plus à la fin des notes de bas de page
Répondre
m@rina 13801Messages postés mardi 12 juin 2007Date d'inscription ContributeurStatut 17 novembre 2017 Dernière intervention - 13 nov. 2017 à 13:32
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
Répondre
pianoblanc7357 22Messages postés vendredi 18 août 2017Date d'inscription 16 novembre 2017 Dernière intervention - 13 nov. 2017 à 15:06
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...
Répondre
m@rina 13801Messages postés mardi 12 juin 2007Date d'inscription ContributeurStatut 17 novembre 2017 Dernière intervention - 15 nov. 2017 à 02:54
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
Répondre
Donnez votre avis
Utile
+0
plus moins
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 !!!
Donnez votre avis

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !