Hoe de auteursnaam te wijzigen die wordt weergegeven in Word-opmerkingen

Author: Siluvia Last Modified: 2025-05-29

Dit artikel behandelt hoe je de standaard auteursnaam kunt wijzigen die wordt gebruikt voor opmerkingen in Word, evenals hoe je de auteursnaam bij bestaande opmerkingen in een document kunt bijwerken. Dit kun je doen met behulp van de ingebouwde instellingen van Word of een VBA-macro.

Wijzig de standaard auteursnaam voor nieuwe opmerkingen

Wijzig de auteursnaam van bestaande opmerkingen in een document

Wijzig de standaard auteursnaam voor nieuwe opmerkingen

Als je wilt dat nieuwe opmerkingen een andere auteursnaam tonen, moet je de gebruikersnaam wijzigen in de Word Opties-instellingen.

Open een Word-document en klik vervolgens op "Bestand" > "Opties".
Ga in het venster "Word Opties" naar het tabblad "Algemeen".
Wijzig de naam in het veld "Gebruikersnaam".
Klik op "OK" om de wijziging op te slaan.

Nu zal elke nieuwe opmerking die je invoegt de bijgewerkte gebruikersnaam tonen.

Wijzig de auteursnaam van bestaande opmerkingen in een document

Als je een document hebt met veel opmerkingen en je moet alle auteursnamen tegelijk bijwerken, kun je hiervoor snel een VBA-macro gebruiken.

Selecteer het bereik dat de opmerkingen bevat die je wilt wijzigen, of druk op "Ctrl + A" om het hele document te selecteren.
Druk op "Alt + F11" om het Microsoft Visual Basic for Applications-venster te openen.

Klik in de VBA-editor op "Invoegen" > "Module". Plak vervolgens de volgende VBA-code in het modulevenster:

Sub ChangeCommentAuthor()
'Updated by ExtendOffice 20181112
    Dim I As Long
    Dim xNewName As String
    Dim xShortName As String
    If Selection.Comments.Count = 0 Then
        MsgBox "No comments in your selection!", vbInformation, "Kutools for Word"
        Exit Sub
    End If
    xNewName = InputBox("New author name?", "Kutools for Word")
    xShortName = InputBox("New author initials?", "Kutools for Word")
    If xNewName = "" Or xShortName = "" Then
        MsgBox "The author name/initials can’t be empty.", vbInformation, "Kutools for Word"
        Exit Sub
    End If
    With Selection
        For I = 1 To .Comments.Count
            .Comments(I).Author = xNewName
            .Comments(I).Initial = xShortName
        Next I
    End With
End Sub

Druk op "F5" om de macro uit te voeren. Typ in het dialoogvenster dat verschijnt de nieuwe auteursnaam en klik op "OK".
Typ in het volgende dialoogvenster de nieuwe initialen en klik op "OK".

De auteursnamen van alle opmerkingen in het geselecteerde bereik zijn nu bijgewerkt.

Beste productiviteitstools voor kantoor

Kutools voor Word – Til uw Word-ervaring naar een hoger niveau met meer dan 100 indrukwekkende functies!

🤖 Kutools AI-functies: AI Assistent / Realtime Assistent / Super Pools (Formaat behouden) / Super Vertalen (Formaat behouden) / AI Redactie / AI Proeflezen...

📘 Documentbeheersing: Pagina’s splitsen / Documenten samenvoegen / Selectie exporteren in diverse formaten (PDF/TXT/DOC/HTML...) / Batch converteren naar PDF...

✏ Inhoud bewerken: Batch Zoeken en Vervangen in meerdere bestanden / Alle afbeeldingen formaat wijzigen / Rij- en kolomindeling van tabellen transponeren / Tabel naar tekst converteren...

🧹 Moeiteloos opschonen: Verwijder extra spaties / sectie-eindes / tekstvakken / hyperlinks / Voor meer verwijderopties, ga naar de groep Verwijderen...

➕ Creatieve invoegingen: Voeg duizendtallen-scheidingstekens toe / selectievakjes / keuzerondjes / QR-code / barcode / meerdere afbeeldingen / Ontdek meer in de groep Invoegen...

🔍 Nauwkeurige selecties: Selecteer specifieke pagina’s / tabellen / vormen / kopalinea’s / Verbeter de navigatie met meer Selecteer -functies...

⭐ Ster-upgrades: Navigeer naar elke locatie / Automatisch herhalende tekst invoegen / Wissel tussen documentvensters /11 conversietools...