كيفية تغيير اسم المؤلف المعروض في تعليقات Word

Author: Siluvia Last Modified: 2025-05-30

يغطي هذا المقال كيفية تغيير اسم المؤلف الافتراضي المستخدم للتعليقات في Word، وكذلك كيفية تحديث اسم المؤلف على التعليقات الموجودة في مستند. يمكنك القيام بذلك باستخدام إما إعدادات Word المدمجة أو ماكرو VBA.

تغيير اسم المؤلف الافتراضي للتعليقات الجديدة

تغيير اسم مؤلف التعليقات الموجودة في مستند

تغيير اسم المؤلف الافتراضي للتعليقات الجديدة

إذا كنت تريد أن تعرض التعليقات الجديدة اسم مؤلف مختلف، تحتاج إلى تغيير اسم المستخدم في إعدادات خيارات Word.

افتح مستند Word، ثم انقر على "ملف" > "خيارات".
في نافذة "خيارات Word"، انتقل إلى علامة التبويب "عام".
قم بتغيير الاسم في مربع "اسم المستخدم".
انقر على "موافق" لحفظ التغيير.

الآن، سيتم عرض اسم المستخدم المحدث في أي تعليق جديد تقوم بإدراجه.

تغيير اسم مؤلف التعليقات الموجودة في مستند

إذا كان لديك مستند يحتوي على العديد من التعليقات وتحتاج إلى تحديث أسماء المؤلفين دفعة واحدة، يمكنك استخدام ماكرو VBA للقيام بذلك بسرعة.

حدد النطاق الذي يحتوي على التعليقات التي تريد تغييرها، أو اضغط على "Ctrl + A" لتحديد المستند بالكامل.
اضغط على "Alt + F11" لفتح نافذة Microsoft Visual Basic for Applications.

في محرر VBA، انقر على "إدراج" > "وحدة". ثم قم بلصق الكود التالي لـ VBA في نافذة الوحدة:

Sub ChangeCommentAuthor()
'Updated by ExtendOffice 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

اضغط على "F5" لتشغيل الماكرو. في مربع الحوار الذي يظهر، اكتب اسم المؤلف الجديد وانقر على "موافق".
في مربع الحوار التالي، اكتب الأحرف الأولى الجديدة وانقر على "موافق".