نصيحة: اللغات الأخرى مترجمة من قبل Google. يمكنك زيارة English نسخة من هذا الرابط.
تسجيل الدخول
x
or
x
x
التسجيل
x

or

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

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



أوصت كلمة أدوات الإنتاجية

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

  • يمكن إجراء العمليات المعقدة والمتكررة لمرة واحدة خلال ثوانٍ.
  • إدراج صور متعددة عبر المجلدات في مستند Word مرة واحدة.
  • دمج ودمج ملفات Word متعددة عبر مجلدات في واحد بالترتيب المطلوب.
  • قسّم المستند الحالي إلى مستندات منفصلة وفقًا للعنوان أو فاصل المقاطع أو معايير أخرى.
  • تحويل الملفات بين Doc و Docx و Docx و PDF ، ومجموعة من الأدوات للتحويلات والتحديدات الشائعة ، وما إلى ذلك ...
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.
    Olivier · 3 months ago
    Here is a modified Macro that will allow you to first specify the Name your want to replace in case there are other comments that you don't want to modify.

    Sub ChangeCommentAuthor()
    'Updated by EntendOffice 20181112
    Dim I As Long
    Dim xOldName As String
    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
    xOldName = InputBox("Old author name?", "KuTools for Word")
    xNewName = InputBox("New author name?", "KuTools for Word")
    xShortName = InputBox("New author initials?", "KuTools for Word")
    If xOldName = "" Or 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
    If .Comments(I).Author = xOldName Then
    .Comments(I).Author = xNewName
    .Comments(I).Initial = xShortName
    End If
    Next I
    End With
    End Sub
  • To post as a guest, your comment is unpublished.
    JaCo · 7 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 · 8 months ago
    Yardımı oldu, teşekkürler.