Hoe converteer ik opmerkingen naar voetnoten of eindnoten in Microsoft Word?
Stel dat er meerdere opmerkingen in uw Word-document staan, hoe kunt u al deze opmerkingen dan tegelijkertijd naar voetnoten of eindnoten converteren? Dit artikel biedt VBA-methoden om dit te bereiken.
Converteer opmerkingen naar voetnoten of eindnoten met VBA-code
Converteer opmerkingen naar voetnoten of eindnoten met VBA-code
Met de onderstaande VBA-codes kunt u snel alle opmerkingen in het huidige document converteren naar voetnoten of eindnoten. Ga als volgt te werk.
1. Open het document dat opmerkingen bevat die u naar voetnoten of eindnoten wilt converteren, druk op anders + F11 toetsen om de te openen Microsoft Visual Basic voor toepassingen venster.
2. In de Microsoft Visual Basic voor toepassingen venster klikt Invoegen > Module. Kopieer vervolgens onderstaande VBA-code naar het modulevenster.
VBA-code: converteer opmerkingen naar voetnoten:
Sub ConvertCommentsToFootnotes()
Dim xComm As Comment
Dim xCommRange As Range
Dim xDoc As Document
Application.ScreenUpdating = False
Set xDoc = ActiveDocument
For Each xComm In xDoc.Comments
Set xCommRange = xComm.Range
xDoc.Footnotes.Add xComm.Scope, , xCommRange.Text
xComm.Delete
Next
Application.ScreenUpdating = True
End Sub
VBA-code: converteer opmerkingen naar eindnoten:
Sub ConvertCommentsToEndnotes()
Dim xComm As Comment
Dim xCommRange As Range
Dim xDoc As Document
Application.ScreenUpdating = False
Set xDoc = ActiveDocument
For Each xComm In xDoc.Comments
Set xCommRange = xComm.Range
xDoc.Endnotes.Add xComm.Scope, , xCommRange.Text
xComm.Delete
Next
Application.ScreenUpdating = True
End Sub
3. druk de F5 sleutel om de code uit te voeren.
Vervolgens worden alle opmerkingen in het huidige document onmiddellijk geconverteerd naar voetnoten of eindnoten op basis van de VBA-code die u hebt toegepast.
Gerelateerde artikelen:
- Hoe voeg ik een nieuwe pagina of tekst toe na eindnoten in een Word-document?
- Hoe selecteer ik alle voetnoten in een Word-document?
Beste Office-productiviteitstools
Kutools for Word - Verbeter uw woordervaring met Over 100 Opmerkelijke kenmerken!
🤖 Kutools AI-assistent: Transformeer uw schrijven met AI - Inhoud genereren / Herschrijf tekst / Documenten samenvatten / Informeer voor informatie gebaseerd op document, allemaal binnen Word
📘 Documentbeheersing: Pagina's splitsen / Voeg documenten samen / Selectie exporteren in verschillende formaten (PDF/TXT/DOC/HTML...) / Batchconversie naar PDF / Pagina's exporteren als afbeeldingen / Meerdere bestanden tegelijk afdrukken...
✏ Inhoud bewerken: Batch zoeken en vervangen over meerdere bestanden / Formaat van alle afbeeldingen wijzigen / Tabelrijen en -kolommen transponeren / Converteer tabel naar tekst...
🧹 Moeiteloos schoon: Veeg weg Extra ruimtes / Sectie-onderbrekingen / Alle koppen / Tekstvakken / hyperlinks / Ga voor meer verwijdergereedschappen naar onze Groep verwijderen...
➕ Creatieve invoegingen: Invoegen Duizend scheidingstekens / Vink vakjes aan / Radio knoppen / QR Code / Barcode / Diagonale lijntabel / Vergelijking bijschrift / Bijschrift bij afbeelding / Tabel titel / Meerdere afbeeldingen / Ontdek meer in de Groep invoegen...
???? Precisieselecties: Vaststellen specifieke pagina's / tafels / vormen / kop paragrafen / Verbeter de navigatie met meer Selecteer functies...
⭐ Sterverbeteringen: Navigeer snel naar elke locatie / automatisch herhaalde tekst invoegen / naadloos schakelen tussen documentvensters / 11 Conversiehulpmiddelen...