Hoe commentaar uit Excel naar Word exporteren?
Voor gebruikers van Excel is het invoegen van opmerkingen in cellen een veelvoorkomende taak. Soms moet je deze opmerkingen kopiëren en plakken in een Word-document voor een bepaald doel. Natuurlijk kun je de opmerkingen één voor één naar Word kopiëren en plakken, maar dit is een tijdrovende en vervelende klus. Is er een manier om alle opmerkingen tegelijkertijd van Excel naar Word te exporteren?
Opmerkingen uit het huidige werkblad naar Word exporteren met VBA-code
Opmerkingen uit het huidige werkblad naar Word exporteren met VBA-code
Helaas biedt Excel geen functie om alle opmerkingen tegelijk naar Word te kopiëren en te plakken. Met de volgende VBA-code kun je echter snel alle opmerkingen van het actieve werkblad naar het Word-document exporteren.
1. Houd de toetsen ALT + F11 ingedrukt om het venster Microsoft Visual Basic for Applications te openen.
2. Klik op Invoegen > Module en plak de volgende code in het modulevenster.
VBA-code: Opmerkingen uit het huidige werkblad naar Word exporteren
Sub CopyCommentsToWord()
'Update 20140325
Dim xComment As Comment
Dim wApp As Object
On Error Resume Next
Set wApp = GetObject(, "Word.Application")
If Err.Number <> 0 Then
Err.Clear
Set wApp = CreateObject("Word.Application")
End If
wApp.Visible = True
wApp.Documents.Add DocumentType:=0
For Each xComment In Application.ActiveSheet.Comments
wApp.Selection.TypeText xComment.Parent.Address & vbTab & xComment.Text
wApp.Selection.TypeParagraph
Next
Set wApp = Nothing
End Sub
3. Druk vervolgens op de F5-toets om deze code uit te voeren, en alle opmerkingen in het actieve werkblad zijn geëxporteerd naar een nieuw Word-document, inclusief hun celadres. Zie screenshot:
Gerelateerde artikelen:
Hoe snel een opmerking in meerdere cellen in Excel invoegen?
Hoe de vorm van het opmerkingsvak in Excel wijzigen?
Hoe alle opmaak van opmerkingen in cellen in Excel wijzigen?
Hoe de naam van alle auteurs van opmerkingen in Excel wijzigen?
Beste productiviteitstools voor Office
Verbeter je Excel-vaardigheden met Kutools voor Excel en ervaar ongeëvenaarde efficiëntie. Kutools voor Excel biedt meer dan300 geavanceerde functies om je productiviteit te verhogen en tijd te besparen. Klik hier om de functie te kiezen die je het meest nodig hebt...
Office Tab brengt een tabbladinterface naar Office en maakt je werk veel eenvoudiger
- Activeer tabbladbewerking en -lezen in Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster, in plaats van in nieuwe vensters.
- Verhoog je productiviteit met50% en bespaar dagelijks honderden muisklikken!
Alle Kutools-invoegtoepassingen. Eén installatieprogramma
Kutools for Office-suite bundelt invoegtoepassingen voor Excel, Word, Outlook & PowerPoint plus Office Tab Pro, ideaal voor teams die werken met Office-toepassingen.
- Alles-in-één suite — invoegtoepassingen voor Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Eén installatieprogramma, één licentie — in enkele minuten geïnstalleerd (MSI-ready)
- Werkt beter samen — gestroomlijnde productiviteit over meerdere Office-toepassingen
- 30 dagen volledige proef — geen registratie, geen creditcard nodig
- Beste prijs — bespaar ten opzichte van losse aanschaf van invoegtoepassingen