Ajouter automatiquement des points à la fin des notes de bas de
Résolu
pianoblanc7357
Messages postés
22
Date d'inscription
Statut
Membre
Dernière intervention
-
pianoblanc7357 Messages postés 22 Date d'inscription Statut Membre Dernière intervention -
pianoblanc7357 Messages postés 22 Date d'inscription Statut Membre Dernière intervention -
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)
A voir également:
- Ajouter automatiquement des points à la fin des notes de bas de
- Mettre des points sur une carte - Guide
- Comment insérer des points de suite sur word - Guide
- Reconsidérer le traitement de vos informations à des fins publicitaires - Accueil - Réseaux sociaux
- Dans le fichier, générez ce tableau automatiquement (tableau croisé dynamique ou table de pilote) à partir des quatre premières colonnes. - Guide
- Base de registre - Guide
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
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
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
J'explique ici :
https://faqword.com/index.php/generalites-office/615-le-b-a-ba-du-vba#forum
m@rina
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
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