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

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

تغيير اسم مؤلف التعليقات للاستخدام في المستقبل

تغيير اسم كاتب التعليقات الموجودة للمستند

تغيير اسم مؤلف التعليقات للاستخدام في المستقبل

إذا كنت تريد تغيير اسم مؤلف التعليق للاستخدام في المستقبل ، فالرجاء تغيير اسم المستخدم في نافذة خيارات Word.

1. في مستند Word مفتوح ، انقر فوق قم بتقديم > العلاج. في خيارات Word نافذة ، تأكد من تحديد موقع في فكرة عامة علامة التبويب ، قم بتغيير الاسم في ملف اسم المستخدم مربع كما هو موضح أدناه لقطة الشاشة ، وأخيراً انقر فوق OK .

لقد قمت الآن بتغيير اسم المستخدم الافتراضي للتعليقات في مستند Word.

تغيير اسم كاتب التعليقات الموجودة للمستند

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

1. حدد النطاق الذي يحتوي على تعليقات أو حدد المستند بأكمله الذي ستقوم بتغيير أسماء المؤلفين بالضغط على CTRL + A مفاتيح ، اضغط على قديم + F11 مفاتيح لفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.

2. في الافتتاح ميكروسوفت فيسوال باسيك للتطبيقات الإطار، انقر فوق إدراج > وحدة. ثم انسخ رمز VBA أدناه في نافذة الوحدة النمطية.

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

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. اضغط على F5 مفتاح لتشغيل الكود. في الافتتاح التعليقات اسم المؤلف في مربع الحوار ، أدخل اسم المؤلف الجديد في مربع النص وانقر فوق OK .

4. في الافتتاح القادم التعليقات بالاحرف الاولى في مربع الحوار ، أدخل الأحرف الأولى حسب حاجتك وانقر فوق OK .

ثم يتم تغيير جميع أسماء مؤلفي التعليقات في النطاق المحدد إلى الاسم المحدد على الفور كما هو موضح أدناه.

---

أدوات إنتاجية Word الموصى بها

 

Kutools For Word - أكثر من 100 ميزة متقدمة لـ Word ، وفر وقتك بنسبة 50 ٪

• يمكن إجراء العمليات المعقدة والمتكررة لمرة واحدة في ثوانٍ.
• أدخل صورًا متعددة عبر المجلدات في مستند Word مرة واحدة.
• دمج ودمج ملفات Word المتعددة عبر المجلدات في ملف واحد بالترتيب الذي تريده.
• قسّم المستند الحالي إلى مستندات منفصلة وفقًا للعنوان أو فاصل المقطع أو معايير أخرى.
• قم بتحويل الملفات بين Doc و Docx و Docx و PDF ، ومجموعة من الأدوات للتحويلات والاختيارات الشائعة ، وما إلى ذلك ...

التفاصيل حمل التطبيق الآن شراء