İpucu: Digər dillər Google-tərcümə olunur. Sizi ziyarət edə bilərsiniz English bu linkin versiyası.
Daxil ol
x
or
x
x
Qeydiyyatdan
x

or

Word-də şərh üçün yazar adını dəyişdirmək

Bu məqalədə şərh üçün əsl müəllif adını dəyişmək və ya yeni bir sənəddə mövcud yazar adını dəyişdirməkdən bəhs olunur. Aşağıdakı iki metoddan istifadə edin.

Gələcək istifadə üçün 'yazar adını dəyişdirin

Bir sənədin mövcud şərhinin yazar adını dəyişdirin


Gələcək istifadə üçün 'yazar adını dəyişdirin

Gələcək istifadə üçün şərhin yazıçı adını dəyişdirmək istəyirsinizsə, istifadəçi adını Word Seçimlər penceresinden dəyişdirin.

1. Açılmış bir Word sənədində, basın fayl > Nizamlamalar. İçində Word Seçimləri pəncərədə yerləşdirdiyinizə əmin olun ümumi nişanı dəyişdirin İstifadəçi adı Aşağıdakı ekran görüntüsü göstərilir və son olaraq basın OK düyməsini basın.

Word sənədindəki şərhlər üçün indi istifadəçi adını dəyişdirdiniz.


Bir sənədin mövcud şərhinin yazar adını dəyişdirin

Bir çox şərh ilə bir sənəd aldıysanız və bütün şərhlərin 'yazı adlarını müəyyən birinə dəyişdirmək istəyirsinizsə, aşağıdakı VBA kodu sizə bir xeyir verəcəkdir.

1. Aralığı seçin və ya yazaraq yazar adlarını dəyişəcək bütün sənədləri seçin Ctrl + A düymələri basın Dayandırmaq + F11 düymələri açmaq üçün Proqramlar üçün Microsoft Visual Basic pəncərə.

2. Açılışda Proqramlar üçün Microsoft Visual Basic pəncərə basın Taxmaq > Modules. Sonra VBA kodu aşağıda Modul penceresine kopyalayın.

VBA kodu: Sənədin mövcud yazıların 'yazar adını dəyişdirin

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. Basın F5 kodunu çalıştırmak üçün düyməsini basın. Açılışda Şərhlər Müəllif adı informasiya qutusuna yeni yazar adını mətn qutusuna daxil edin və basın OK düyməsini basın.

4. Növbəti açılışda Şərhlər başlıqları informasiya qutusuna ehtiyacınız olduğu halda başlanğıcları daxil edin və basın OK düyməsini basın.

Sonra bütün şərhlər 'Seçilmiş aralıdakı yazı adları göstərilən ekran görüntüsünün aşağıda göstərildiyi kimi dərhal dəyişdirilir.



Word üçün Kutools

100, 2003, 2007, 2010, 2013 və 2016 üçün 2019 Ətraflı funksiyaları

shot-kutools-700-225-kte

Daha çox xüsusiyyətlər | Pulsuz Yüklə | Yüzlərlə funksiya üçün yalnız $ 39.00

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 · 1 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 · 2 months ago
    Yardımı oldu, teşekkürler.