Hoe de auteursnaam voor commentaar in Word te wijzigen
Dit artikel heeft het over het wijzigen van de standaardauteursnaam voor opmerkingen of het wijzigen van de bestaande auteursnaam in een document in een nieuwe. Probeer de onderstaande twee methoden.
Wijzig de auteursnaam van de opmerkingen voor toekomstig gebruik
De auteursnaam van de bestaande opmerkingen van een document wijzigen
Wijzig de auteursnaam van de opmerkingen voor toekomstig gebruik
Als u de auteursnaam van de opmerking wilt wijzigen voor toekomstig gebruik, wijzig dan de gebruikersnaam in het venster Opties voor Word.
1. Klik in een geopend Word-document op Dien in > Opties. In de Opties voor Word -venster, zorg ervoor dat u zich in het Algemeen tab, wijzigt u de naam in het gebruikersnaam vak zoals hieronder getoond screenshot, en klik ten slotte op de OK knop.
Nu hebt u de standaard gebruikersnaam voor opmerkingen in Word-document gewijzigd.
De auteursnaam van de bestaande opmerkingen van een document wijzigen
Als je een document met veel opmerkingen hebt ontvangen en je wilt de auteursnamen van alle opmerkingen wijzigen in een bepaalde, dan zal de volgende VBA-code je een plezier doen.
1. Selecteer het bereik dat opmerkingen bevat of selecteer het hele document. U wijzigt de auteursnamen door op te drukken Ctrl + A toetsen, drukt u op de anders + F11 toetsen om de te openen Microsoft Visual Basic voor toepassingen venster.
2. In de opening Microsoft Visual Basic voor toepassingen venster klikt Invoegen > Module. Kopieer vervolgens onderstaande VBA-code naar het modulevenster.
VBA-code: wijzig de auteursnaam van het document van de bestaande opmerkingen
Sub ChangeCommentAuthor()
'Updated by EntendOffice 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 Sub3. druk de F5 sleutel om de code uit te voeren. In de opening Opmerkingen Naam auteur dialoogvenster, voer de nieuwe auteursnaam in het tekstvak in en klik op het OK knop.
4. In de volgende opening Opmerkingen initialen dialoogvenster, voer de initialen in die u nodig heeft en klik op het OK knop.
Vervolgens worden de auteursnamen van alle opmerkingen in het geselecteerde bereik onmiddellijk gewijzigd in de opgegeven, zoals hieronder wordt getoond.
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...
