Petua: Bahasa lain diterjemahkan Google. Anda boleh melawat English versi pautan ini.
Log masuk
x
or
x
x
Daftar Sekarang
x

or

Bagaimana untuk mengubah nama pengarang untuk memberi komen dalam Word

Artikel ini bercakap tentang menukar nama pengarang lalai untuk komen, atau menukar nama pengarang yang ada dalam dokumen ke yang baru. Sila cuba di bawah dua kaedah.

Tukar nama pengarang ulasan untuk kegunaan masa hadapan

Tukar nama pengarang komen sedia ada dokumen


Tukar nama pengarang ulasan untuk kegunaan masa hadapan

Jika anda ingin menukar nama pengarang ulasan untuk kegunaan masa depan, sila tukar Nama Pengguna dalam tetingkap Opsyen Word.

1. Dalam dokumen Word yang dibuka, klik File > Pilihan. Di dalam Pilihan Kata tingkap, pastikan anda mencari di dalam Umum tab, tukar nama dalam Nama pengguna kotak sebagai tangkapan skrin di bawah, dan akhirnya klik OK butang.

Kini anda telah mengubah nama pengguna lalai untuk komen dalam dokumen Word.


Tukar nama pengarang komen sedia ada dokumen

Sekiranya anda telah menerima dokumen dengan banyak komen, dan anda ingin mengubah semua nama pengarang 'komen kepada yang tertentu, kod VBA berikut akan memberi anda kebaikan.

1. Pilih julat mengandungi komen atau pilih keseluruhan dokumen yang anda akan tukar nama pengarang dengan menekan Ctrl + A kekunci, tekan kekunci Alt + F11 kunci untuk membuka Microsoft Visual Basic untuk Aplikasi tingkap.

2. Dalam pembukaan Microsoft Visual Basic untuk Aplikasi tetingkap, klik Memasukkan > Modul. Kemudian salin di bawah kod VBA ke dalam tetingkap Modul.

Kod VBA: Tukar nama dokumen pengarang komen sedia ada

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. Tekan butang F5 kunci untuk menjalankan kod. Dalam pembukaan Komen Nama Penulis kotak dialog, masukkan nama pengarang baru ke dalam kotak teks dan klik OK butang.

4. Dalam pembukaan seterusnya Komen inisial kotak dialog, masukkan inisial yang anda perlukan dan klik OK butang.

Kemudian semua nama pengarang 'komen dalam julat terpilih ditukar kepada yang dinyatakan dengan segera seperti gambar di bawah ditunjukkan.



Alat produktiviti Word yang disyorkan

Kutools For Word - Lebih Daripada Ciri-ciri Lanjutan 100 Untuk Microsoft Word, Simpan 50% Time anda

  • Operasi yang rumit dan berulang boleh dilakukan pemprosesan satu kali dalam beberapa saat.
  • Sisipkan beberapa imej merentas folder ke dalam dokumen Word sekaligus.
  • Gabungkan dan menggabungkan beberapa fail Word merentas folder ke dalam satu dengan pesanan yang anda inginkan.
  • Pisah dokumen semasa ke dalam dokumen berasingan mengikut tajuk 1, pecahan bahagian atau kriteria lain.
  • Tukar fail antara Doc dan Docx, Docx dan PDF, koleksi alat untuk penukaran dan pilihan biasa, dan sebagainya...
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.
    JaCo · 3 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 · 4 months ago
    Yardımı oldu, teşekkürler.