كيفية تغيير اسم المؤلف للتعليق في 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 .

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

أفضل أدوات إنتاجية المكتب

كوتولس للكلمة - ارفع تجربة كلمتك مع أكثر 100 ميزات رائعة!

🤖 مساعد كوتولس AI: تحويل كتابتك باستخدام الذكاء الاصطناعي - توليد المحتوى  /  إعادة كتابة النص  /  تلخيص المستندات  /  الاستفسار عن المعلومات على أساس الوثيقة، كل ذلك داخل Word

📘 إتقان الوثيقة: تقسيم الصفحات  /  دمج المستندات  /  تصدير التحديد بتنسيقات مختلفة (PDF/TXT/DOC/HTML...)  /  دفعة تحويل إلى PDF  /  تصدير الصفحات كصور  /  طباعة ملفات متعددة في وقت واحد

✏ تحرير المحتويات: بحث واستبدال دفعة عبر ملفات متعددة  /  تغيير حجم كافة الصور  /  تبديل صفوف وأعمدة الجدول  /  تحويل الجدول إلى نص

🧹 تنظيف سهل: اكتساح بعيدا مساحات اضافية  /  فواصل القسم  /  كل الرؤوس  /  مربعات النص  /  الارتباطات التشعبية  / لمزيد من أدوات الإزالة، توجه إلى موقعنا إزالة المجموعة

➕ إدراجات إبداعية: إدراج الف فاصل  /  مربعات الاختيار  /  أزرار الراديو  /  رمز الاستجابة السريعة  /  الباركود  /  جدول الخط القطري  /  شرح المعادلة  /  صورة توضيحية  /  الجدول التوضيحي  /  صور متعددة  / اكتشف المزيد في أدخل المجموعة

🔍 التحديدات الدقيقة: يحدد بدقة صفحات محددة  /  الجداول  /  الأشكال  /  فقرات العناوين  / تحسين التنقل باستخدام الأكثر من ذلك حدد الميزات

⭐ تحسينات النجوم: انتقل بسرعة إلى أي مكان  /  الإدراج التلقائي للنص المتكرر  /  التبديل بسلاسة بين نوافذ المستندات  /  11 أدوات التحويل

؟؟؟؟ هل تريد تجربة هذه الميزات؟ يقدم Kutools for Word أ الإصدار التجريبي المجاني من 60 يومًا، بلا حدود! 🚀

تحميل مجانا     تفاصيل أكثر     اشتري الآن