Note: The other languages of the website are Google-translated. Back to English

كيفية تغيير اسم المؤلف للتعليق في 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 ، ومجموعة من الأدوات للتحويلات والاختيارات الشائعة ، وما إلى ذلك ...
فرز التعليقات حسب
التعليقات (29)
لا يوجد تقييم. كن أول من يقيم!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
Yardımı oldu، teşekkürler.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
عمل نص VBA بشكل مثالي لتغيير اسم المؤلف إلى اسم شركتي. شكرًا لك!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
إليك ماكرو معدل سيسمح لك أولاً بتحديد الاسم الذي تريد استبداله في حالة وجود تعليقات أخرى لا تريد تعديلها.

التغيير الفرعي
تم التحديث بواسطة EntendOffice 20181112
أنا خافت وطويلة
خافت xOldName كسلسلة
خافت xNewName كسلسلة
خافت xShortName كسلسلة
إذا كان Selection.Comments.Count = 0 ثم
MsgBox "لا يوجد تعليقات في اختيارك!" ، vbInformation ، "KuTools for Word"
خروج الفرعية
إنهاء حالة
xOldName = InputBox ("اسم المؤلف القديم؟" ، "KuTools for Word")
xNewName = InputBox ("اسم مؤلف جديد؟" ، "KuTools for Word")
xShortName = InputBox ("الأحرف الأولى للمؤلف الجديد؟" ، "KuTools for Word")
إذا كان xOldName = "" Or xNewName = "" Or xShortName = "" إذًا
MsgBox "لا يمكن أن يكون اسم المؤلف / الأحرف الأولى فارغًا." ، vbInformation ، "Kutools for Word"
خروج الفرعية
إنهاء حالة
مع التحديد
بالنسبة إلى I = 1 To .Comments.Count
إذا .Comments (I) .Author = xOldName ثم
التعليقات (I) .Author = xNewName
التعليقات (I) .Initial = xShortName
إنهاء حالة
التالي أنا
انتهت ب
نهاية الفرعية
تم تصغير هذا التعليق بواسطة المشرف على الموقع
شكرا لك يا أوليفر أنت شخص طيب!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
И салат неплох
تم تصغير هذا التعليق بواسطة المشرف على الموقع
La même en anglais

التغيير الفرعي
تم التحديث في ٢٠٢٢٠٦٠٣
مؤشر خافت على طول
خافت xOldName كسلسلة
خافت xNewName كسلسلة
خافت xShortName كسلسلة
إذا كان Selection.Comments.Count = 0 ثم
MsgBox "لا يوجد تعليقات في اختيارك!" ، vbInformation ، "KuTools for Word"
خروج الفرعية
إنهاء حالة
xOldName = InputBox ("اسم المؤلف القديم؟" ، "KuTools for Word")
xNewName = InputBox ("اسم مؤلف جديد؟" ، "KuTools for Word")
xShortName = InputBox ("الأحرف الأولى للمؤلف الجديد؟" ، "KuTools for Word")
إذا كان xNewName = "" Or xShortName = "" إذن
MsgBox "لا يمكن أن يكون اسم المؤلف / الأحرف الأولى فارغًا." ، vbInformation ، "Kutools for Word"
خروج الفرعية
إنهاء حالة
مع التحديد
للفهرس = 1 To .Comments.Count
If (.Comments (Index) .Author = xOldName) ثم
التعليقات (الفهرس) الكاتب = xNewName
التعليقات (الفهرس) .Initial = xShortName
إنهاء حالة
الفهرس التالي
انتهت ب
نهاية الفرعية
تم تصغير هذا التعليق بواسطة المشرف على الموقع
شكرا جزيلا على هذا. يعمل بشكل مثالي. تحذير رغم ذلك ؛ سيتم تغيير جميع التعليقات ، بغض النظر عن المؤلفين المتعددين. شيء لم يزعجني.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
شكرا على البرنامج التعليمي. انها ساعدتني حقا
تم تصغير هذا التعليق بواسطة المشرف على الموقع
يبدو أن هذا يعمل ولكن لم أتمكن من حفظ الملف دون الرجوع إلى المؤلف الأصلي.

كان الحل البديل الخاص بي هو تغيير الامتداد .docx على اسم الملف إلى .zip. ثم فتحت الملف المضغوط. تصفح المجلد "word" ثم نسخ ملف "comments.xml". افتح ملف "comments.xml" في محرر نصوص. قم بالبحث واستبدال اسم المؤلف ثم حفظ الملف. انسخ واستبدل "comments.xml" القديم بالجديد في ملف zip. الآن قم بتغيير امتداد الملف مرة أخرى إلى .docx ويتم الآن استبدال اسم المؤلف في ملف Word المحفوظ.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
من المحتمل أن يكون لديك برنامج نصي تم تمكينه والذي أعاد مؤلف التعليقات عند الحفظ.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
شكرًا لك! لقد غيرت التعليقات تمامًا ، لكن ليس التنسيق ، مثل التمييز. هل هناك ما يمكن تعديله في VBA؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
أنا ممتن جدا لهذه المعلومات. تعمل أكواد VBA بشكل مثالي على مستند لا أريد أن يعرف الكاتب من هو المراجع حتى الآن. شكرًا.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
شكرًا جزيلاً ، رمز VBN يعمل كالسحر !!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
لقد غيرت اسم المستخدم الخاص بي وفقًا للتعليمات ، ولكن لا يزال اسمي الفعلي يظهر في التعليقات. أحاول جعل تعليقاتي مجهولة الهوية مع الاحتفاظ بتعليقات المراجع الآخر مع ذكر اسمه عليها.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
عمل رمز VBA مثل السحر - شكرًا!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
عملت بشكل ممتاز ، شكرا!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
Traduction en français غير نافع. Dommage!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
الترجمة الفرنسية تجعل العمل مستحيلاً بسبب اختلافات لوحة المفاتيح
تم تصغير هذا التعليق بواسطة المشرف على الموقع
رائع ! مدهش ! شكرا جزيلا ! 
تم تصغير هذا التعليق بواسطة المشرف على الموقع
Bonjour
Cette macro fonctionne bien، mais pour anonymiser lAuteur des fixions dans un texte، il faudrait، en plus de l'auteur des commentaires، pouvoir changer le nom au niveau de marques de révision، et tel n'est pas le cas.
Auriez-vous une الحل؟
ميرسي دي AVANCE.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
بالنسبة لأولئك الذين يريدون تغيير المؤلفين فقط من بعض التعليقات ، افتح مستندك باستخدام أرشيفي (مثل ZIP) ، وانتقل إلى مجلد الكلمات ، وابحث عن ملف comments.xml ، واستخرجه ، وافتحه باستخدام المفكرة ، وحرر وفقًا لذلك (ctrl + H للعثور على المؤلف الحالي وتغييره و الأحرف الأولى من الأحرف التي تريدها) ، حفظ ، إعادة الملف إلى مجلد الكلمات في zip ، et voila
تم تصغير هذا التعليق بواسطة المشرف على الموقع
Cette يستدعي العمل على إصدارات المكتب
تم تصغير هذا التعليق بواسطة المشرف على الموقع
عظيم ، عملت بشكل جيد جدا ... شكرا
تم تصغير هذا التعليق بواسطة المشرف على الموقع
معلومات ممتازة في هذا المنشور وكذلك في التعليقات. شكرا لكل شخص.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
Microsoft ist schon ein Schrott. لم يذكر اسمه: لا شيء جديد الإصدار ، يمكنك العثور على رجل يموت Lösung. Wo ändere ich schlichtweg den Autor grundsätzlich. Bei mir wird nichts geändert und ich suche seit über 2 Stunden ... einfach nur Schrott das UX von Microschrott
لا توجد تعليقات منشورة هنا حتى الآن
عرض المزيد
اترك تعليقاتك
النشر كضيف
×
قيم المنشور:
0   الشخصيات
المواقع المقترحة

تواصل معنا

حقوق التأليف والنشر © 2009 - شبكة الاتصالات العالمية.extendoffice.com. | كل الحقوق محفوظة. مشغل بواسطة ExtendOffice. | | خريطة الموقع
Microsoft وشعار Office هما علامتان تجاريتان أو علامتان تجاريتان مسجلتان لشركة Microsoft Corporation في الولايات المتحدة و / أو دول أخرى.
محمي بواسطة Sectigo SSL