Suggerimento: le altre lingue sono tradotte da Google. Puoi visitare il English versione di questo link.
Connetti
x
or
x
x
Registratevi
x

or

Come modificare il nome dell'autore per il commento in Word

Questo articolo parla della modifica del nome dell'autore predefinito per i commenti o della modifica del nome dell'autore esistente in un documento in uno nuovo. Si prega di provare i seguenti due metodi.

Cambia il nome dell'autore dei commenti per un uso futuro

Modifica il nome dell'autore del commento esistente di un documento


Cambia il nome dell'autore dei commenti per un uso futuro

Se si desidera modificare il nome dell'autore del commento per uso futuro, modificare il nome utente nella finestra Opzioni di Word.

1. In un documento di Word aperto, fai clic su Compila il > Opzioni. Nel Opzioni di Word finestra, assicurati di posizionarti nel generale scheda, cambia il nome nel file nome utente casella come mostrato di seguito screenshot, e infine fare clic sul OK pulsante.

Ora hai cambiato il nome utente predefinito per i commenti nel documento di Word.


Modifica il nome dell'autore del commento esistente di un documento

Se hai ricevuto un documento con molti commenti e vuoi cambiare tutti i nomi degli autori dei commenti con un certo numero, il seguente codice VBA ti farà un favore.

1. Seleziona l'intervallo contiene commenti o seleziona l'intero documento per modificare i nomi dell'autore premendo il tasto Ctrl + A tasti, premere il tasto altro + F11 chiavi per aprire il Microsoft Visual Basic, Applications Edition finestra.

2. In apertura Microsoft Visual Basic, Applications Edition finestra, fare clic inserire > Modulo. Quindi copiare sotto il codice VBA nella finestra del modulo.

Codice VBA: modifica il nome dell'autore del documento dei commenti esistenti

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. premi il F5 chiave per eseguire il codice. In apertura Commenti Nome dell'autore finestra di dialogo, inserisci il nuovo nome dell'autore nella casella di testo e fai clic su OK pulsante.

4. Nella prossima apertura Iniziali di commenti finestra di dialogo, inserisci le iniziali di cui hai bisogno e fai clic su OK pulsante.

Quindi tutti i nomi degli autori dei commenti nell'intervallo selezionato vengono modificati immediatamente a quello specificato come mostrato nell'immagine sottostante.



Strumenti di produttività di Word consigliati

Kutools per Word - Oltre alle funzionalità avanzate di 100 per Word, risparmia il tuo tempo 50%

  • Le operazioni complicate e ripetute possono essere eseguite in un'unica volta in pochi secondi.
  • Inserire più immagini contemporaneamente in cartelle in un documento di Word.
  • Unisci e combina più file di Word tra cartelle in un unico ordine.
  • Dividi il documento corrente in documenti separati in base a titolo, interruzione di sezione o altri criteri.
  • Converti file tra Doc e Docx, Docx e PDF, raccolta di strumenti per conversioni e selezioni comuni e così via ...
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 · 3 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 · 7 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 · 8 months ago
    Yardımı oldu, teşekkürler.