Hoe converteert u opmerkingen naar voetnoten of eindnoten in Microsoft Word?
AuteurSiluvia•Wijzigingsdatum
Stel dat uw Word-document meerdere opmerkingen bevat – hoe converteert u al die opmerkingen in één keer naar voetnoten of eindnoten? Dit artikel biedt VBA-methoden om dat voor elkaar te krijgen.
Opmerkingen converteren naar voetnoten of eindnoten met VBA-code
De onderstaande VBA-codes helpen u snel alle opmerkingen in het huidige document om te zetten naar voetnoten of eindnoten. Volg hiervoor de volgende stappen.
1. Open het document met de opmerkingen die u wilt omzetten naar voetnoten of eindnoten en druk op de toetsencombinatie Alt+F11 om het venster Microsoft Visual Basic for Applications te openen.
2. Klik in het venster Microsoft Visual Basic for Applications op Invoegen > Module. Kopieer vervolgens de onderstaande VBA-code naar het Module-venster.
VBA-code: Opmerkingen converteren 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: Opmerkingen converteren 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 op de toets F5 om de code uit te voeren.
Vervolgens worden alle opmerkingen in het huidige document onmiddellijk geconverteerd naar voetnoten of eindnoten, afhankelijk van de VBA-code die u hebt toegepast.
Doe meer in minder tijd met AI-versterkt Kutools voor Word
Kutools voor Word is niet zomaar een verzameling tools – het is een slimme oplossing die uw productiviteit flink verhoogt. Dankzij AI-gestuurde functionaliteiten en de meest essentiële functies bereikt u meer in minder tijd:
Combineer de inhoud direct, herschrijf deze, stel samen en vertaal.
Laat uw tekst in real time corrigeren met suggesties voor grammatica, leestekens en stijl terwijl u typt.
Herschrijf en vertaal de inhoud zonder de lay-out, stijl of structuur te wijzigen.
Vertaal uw inhoud moeiteloos naar meer dan 40 talen en vergroot daarmee uw wereldwijde bereik.
Ontvang directe hulp en slimme inzichten op basis van de inhoud van uw huidige document.
Vraag hoe u een taak kunt uitvoeren – bijvoorbeeld het verwijderen van een sectie-einde – en de AI begeleidt u of voert deze direct voor u uit.
Verwijder gevoelige of vertrouwelijke informatie in slechts enkele seconden voor gegarandeerde privacy.
Alle tools werken naadloos in Word en zijn altijd binnen handbereik.
Stel moeiteloos documenten samen, verfijn, vertaal, vat samen en beveilig ze.
Verbeter grammatica, duidelijkheid en toon terwijl u in realtime typt.
Herschrijf en vertaal de inhoud zonder wijzigingen in lay-out of opmaak.
Vraag hoe u een taak kunt uitvoeren – bijvoorbeeld het verwijderen van een sectie-einde – en de AI begeleidt u of voert deze direct voor u uit.
Alle tools werken naadloos in Word en zijn altijd binnen handbereik.
