Tip: andere talen zijn Google-Vertaald. Je kunt het English versie van deze link.
Log in
x
or
x
x
Registreren
x

or

Hoe de auteursnaam voor commentaar in Word te wijzigen

In dit artikel wordt gesproken over het wijzigen van de standaardauteursnaam voor opmerkingen of over het wijzigen van de bestaande auteursnaam in een document naar een nieuw document. Probeer de onderstaande twee methoden.

Wijzig de auteursnaam van de opmerking voor toekomstig gebruik

Wijzig de auteursnaam van een bestaande opmerking van een document


Wijzig de auteursnaam van de opmerking voor toekomstig gebruik

Als u de auteursnaam van de opmerking wilt wijzigen voor toekomstig gebruik, wijzigt u de gebruikersnaam in het venster Word-opties.

1. Klik in een geopend Word-document op filet > opties. In de Opties voor Word venster, zorg ervoor dat u zich in de Algemeen tab, verander de naam in de gebruikersnaam Klik op de onderstaande afbeelding en klik ten slotte op OK knop.

Nu hebt u de standaard gebruikersnaam voor opmerkingen in Word-document gewijzigd.


Wijzig de auteursnaam van een bestaande opmerking van een document

Als je een document met veel reacties hebt ontvangen en je de auteursnamen van alle opmerkingen naar een bepaalde wilt veranderen, zal de volgende VBA-code je een plezier doen.

1. Selecteer het bereik bevat opmerkingen of selecteer het hele document waarin u de auteursnamen wilt wijzigen door op de. Te drukken Ctrl + A toetsen, druk 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 bijvoegsel > module. Kopieer vervolgens de VBA-code naar het modulevenster.

VBA-code: verander de auteursnaam van het bestaande commentaar van het document

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 Sub

3. druk de F5 sleutel om de code uit te voeren. In de opening Opmerkingen Auteur Naam dialoogvenster, voer de nieuwe auteursnaam in het tekstvak in en klik op de OK knop.

4. In de volgende opening Opmerkingen initialen dialoogvenster, voer de initialen in zoals u nodig hebt en klik op de OK knop.

Vervolgens worden de auteursnamen van alle opmerkingen in het geselecteerde bereik onmiddellijk gewijzigd in de opgegeven naam, zoals hieronder wordt weergegeven.



Aanbevolen Word-productiviteitstools

Kutools voor Word - meer dan 100 geavanceerde functies voor Word, bespaar uw 50% tijd

  • Gecompliceerde en herhaalde bewerkingen kunnen eenmalig worden uitgevoerd in seconden.
  • Voeg meerdere afbeeldingen in meerdere mappen tegelijk in Word-documenten in.
  • Voeg meerdere Word-bestanden samen en combineer ze tot één map met de door u gewenste volgorde.
  • Splits het huidige document in afzonderlijke documenten volgens kop, sectie-einde of andere criteria.
  • Converteer bestanden tussen Doc en Docx, Docx en PDF, verzameling tools voor algemene conversies en selectie, enzovoort ...
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Olivier · 2 months ago
    Here is a modified Macro that will allow you to first specify the Name your want to replace in case there are other comments that you don't want to modify.

    Sub ChangeCommentAuthor()
    'Updated by EntendOffice 20181112
    Dim I As Long
    Dim xOldName As String
    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
    xOldName = InputBox("Old author name?", "KuTools for Word")
    xNewName = InputBox("New author name?", "KuTools for Word")
    xShortName = InputBox("New author initials?", "KuTools for Word")
    If xOldName = "" Or 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
    If .Comments(I).Author = xOldName Then
    .Comments(I).Author = xNewName
    .Comments(I).Initial = xShortName
    End If
    Next I
    End With
    End Sub
  • To post as a guest, your comment is unpublished.
    JaCo · 6 months ago
    The VBA script worked perfectly to change the name of the author to my company name. Thank you!
  • To post as a guest, your comment is unpublished.
    vahit · 7 months ago
    Yardımı oldu, teşekkürler.