Hoe converteer je opmerkingen naar voetnoten of eindnoten in Microsoft Word?
Stel dat er meerdere opmerkingen in je Word-document staan, hoe kun je al deze opmerkingen 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
De onderstaande VBA-codes kunnen je helpen om snel alle opmerkingen in het huidige document naar voetnoten of eindnoten te converteren. Volg de onderstaande stappen.
1. Open het document met de opmerkingen die je wilt converteren naar voetnoten of eindnoten en druk op 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: 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 op de F5-toets om de code uit te voeren.
Alle opmerkingen in het huidige document worden onmiddellijk geconverteerd naar voetnoten of eindnoten op basis van de door jou toegepaste VBA-code.
Gerelateerde artikelen:
Doe meer in minder tijd met AI-verbeterde Kutools voor Word
Kutools voor Word is niet zomaar een set tools - het is een slimme oplossing ontworpen om uw productiviteit te verhogen. Met AI-aangedreven mogelijkheden en de meest essentiële functies helpt Kutools u om meer te bereiken in minder tijd:
- Samenvatten, herschrijven, componeren en vertalen van inhoud in een oogwenk.
- Tekst in real-time proeflezen met suggesties voor grammatica, leestekens en stijl terwijl u schrijft.
- Inhoud herformuleren en vertalen zonder dat de lay-out, stijl of structuur wordt aangepast.
- Vertaal uw inhoud eenvoudig in meer dan 40 talen en breid uw wereldwijde bereik uit.
- Ontvang directe hulp en intelligente inzichten gebaseerd op de inhoud van uw huidige document.
- Vraag hoe u een taak kunt voltooien - zoals het verwijderen van sectie-einden - en de AI zal u begeleiden of het voor u doen.
- Bewerk gevoelige of vertrouwelijke informatie binnen enkele seconden om volledige privacy te waarborgen.
- Alle tools werken naadloos binnen Word en zijn altijd binnen handbereik.
- Maak, verfijn, vertaal, samenvatten en beveilig documenten moeiteloos.
- Verbeter grammatica, duidelijkheid en toon terwijl u in real-time schrijft.
- Herschrijf en vertaal inhoud zonder wijzigingen in lay-out of opmaak.
- Vraag hoe u een taak kunt voltooien - zoals het verwijderen van sectie-einden - en de AI zal u begeleiden of het voor u doen.
- Alle tools werken naadloos binnen Word en zijn altijd binnen handbereik.
Meer informatie over Kutools voor Word Nu downloaden
✨ Kutools for Office – Één installatie, vijf krachtige tools!
Inclusief Office Tab Pro · Kutools for Excel · Kutools for Outlook · Kutools for Word · Kutools for PowerPoint
📦 Krijg alle5 tools in één pakket | 🔗 Naadloze integratie met Microsoft Office | ⚡ Bespaar tijd en verhoog direct uw productiviteit
Beste Office-productiviteitstools
Kutools for Word – 100+ tools voor Word
