Gå til hovedindhold

Udforsk det nye, gratis version af Kutools til Outlook i dag!

Sådan ændres forfatternavnet til kommentar i Word

Forfatter: Siluvia Sidst ændret: 2024-07-29

Denne artikel taler om at ændre standardforfatternavnet til kommentarer eller ændre det eksisterende forfatternavn i et dokument til et nyt. Prøv nedenstående to metoder.

Skift kommentarernes forfatternavn til fremtidig brug

Skift de eksisterende kommentarers forfatternavn på et dokument

Skift kommentarernes forfatternavn til fremtidig brug

Hvis du vil ændre kommentarens forfatternavn til fremtidig brug, skal du ændre brugernavnet i vinduet Word Options.

1. Klik på i et åbnet Word-dokument File (Felt) > Indstillinger. I Word-indstillinger vindue, skal du sørge for, at du finder i Generelt fanen skal du ændre navnet i brugernavn som vist nedenfor, og klik endelig på OK .

Brugernavnboks i Word-indstillinger

Nu har du ændret standardbrugernavnet for kommentarer i Word-dokument.

Skift de eksisterende kommentarers forfatternavn på et dokument

Hvis du har modtaget et dokument med masser af kommentarer, og du ønsker at ændre alle kommentarers forfatternavne til et bestemt, vil følgende VBA-kode gøre dig en tjeneste.

1. Vælg området, der indeholder kommentarer, eller vælg hele dokumentet, du ændrer forfatternavne ved at trykke på Ctrl + A tryk på andre + F11 nøgler til at åbne Microsoft Visual Basic til applikationer vindue.

2. I åbningen Microsoft Visual Basic til applikationer vindue, skal du klikke på indsatte > Moduler. Kopier derefter under VBA-koden i modulvinduet.

VBA-kode: Ændre de eksisterende kommentarers forfatternavn på dokumentet

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. Tryk på F5 nøgle for at køre koden. I åbningen Kommentarer Forfatternavn dialogboksen, skal du indtaste det nye forfatternavn i tekstboksen og klikke på OK .

Kommentarer Forfatternavn dialogboks

4. I den næste åbning Kommentarer initialer dialogboksen, skal du indtaste initialerne efter behov og klikke på OK .

Dialogboksen Kommentarer initialer

Derefter ændres alle kommentarers forfatternavne i det valgte område straks til det angivne som vist nedenfor.

Kommentarernes forfatternavne ændres

Bedste kontorproduktivitetsværktøjer

Kutools for Word - Forøg din Word-oplevelse med Over 100 Bemærkelsesværdige funktioner!

🤖 Kutools AI-funktioner: AI-assistent / Realtidsassistent / Super polsk (bevar format) / Super Translate (Bevar format) / AI-redaktion / AI korrekturlæsning...

📘 Dokumentbeherskelse: Opdelt sider / Flet dokumenter / Eksporter udvalg i forskellige formater (PDF/TXT/DOC/HTML...) / Batch Konverter til PDF...

✏ Indholdsredigering: Batch Find og Erstat på tværs af flere filer / Ændr størrelse på alle billeder / Transponer tabelrækker og kolonner / Konverter tabel til tekst...

🧹 Ubesværet rengøring: Fej væk Ekstra pladser / Afsnit bryder / Tekstbokse / Hyperlinks / For mere fjernelse af værktøjer, gå til Fjern gruppe...

➕ Kreative indlæg: Indsæt Tusind adskillere / Afkrydsningsfelter / Radio knapper / QR kode / Stregkode / Flere billeder / Oplev mere i indsatte gruppe...

???? Præcisionsvalg: Find ud af Specifikke sider / tabeller / Former / Overskriftsparagraffer / Forbedre navigation med mere Type funktioner...

⭐ Stjerneforbedringer: Naviger til enhver placering / Auto-indsæt gentagen tekst / Skift mellem dokumentvinduer / 11 Konvertering Værktøjer...

Kutools og Kutools Plus faner på Word-båndet
???? Vil du prøve disse funktioner? Download Kutools til Word nu! 🚀
 

Bedste kontorproduktivitetsværktøjer

Kutools for Word - 100+ værktøjer til Word

Gratis download Køb Nu Lær mere om Kutools