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

كيف تستبدل التسطير بالخط المائل في الكلمة؟

في بعض الحالات ، قد تحتاج إلى استبدال جميع أحرف التسطير بحروف مائل أو احتياطي نائب في Word. كيف يمكنك استبدال جميع أحرف التسطير بخط مائل في Word؟ يمكنك القيام بذلك وفقًا للطريقتين الصعبتين التاليتين في Word.

استبدل كل أحرف التسطير بخط مائل باستخدام Find and Replace

استبدل كل أحرف التسطير بخط مائل باستخدام VBA


السهم الأزرق الحق فقاعة استبدل كل أحرف التسطير بخط مائل باستخدام Find and Replace

رائعة حقا! استخدم علامات التبويب الفعالة في Word (Office) مثل Chrome و Firefox و Internet Explorer الجديد!

المزيد تحميل مجاني

الخطوة 1 : الخطوة 1: انقر الرئيسية > استبدل (Word 2007.2010/2013) واستخدام الاختصارات كترل + H لتشغيل مربع الحوار "بحث واستبدال" ؛

الخطوة 2: انقر للمزيد زر لإحضار ابحث الخيار.

الخطوة 3: ضع المؤشر العثور على ما ، انقر فوق الخط من شكل القائمة المنسدلة لتحديد ملف أكد نمط و أكد اللون

الخطوة 4: ضع المؤشر استبدال مربع، انقر فوق الخط من شكل القائمة المنسدلة للتحديد مائل في قائمة نمط الخط.

الخطوة 5: انقر OK>استبدال الكل.

ملاحظة:

1. انقر أي تنسيق للتأكد من عدم تحديد معلومات التنسيق في ملف العثور على ما مربع و استبدال مربع قبل العملية الخاصة بك.

2. هذه المعالجة تجعل النص مائلًا مسطرًا فقط ، ولا يمكن إزالة التسطير.


السهم الأزرق الحق فقاعة استبدل كل أحرف التسطير بخط مائل باستخدام VBA

بدلاً من ذلك ، يمكنك أيضًا استخدام VBA لاستبدال التسطير بخط مائل. ولكن إذا لم تكن جيدًا في الماكرو ، فأنا لا أوصي بهذه الطريقة. افعل ما يلي:

كوتولس للكلمة، وهي وظيفة إضافية مفيدة ، تتضمن مجموعات من الأدوات لتسهيل عملك وتعزيز قدرتك على معالجة مستند الكلمات. نسخة تجريبية مجانية لمدة 45 يومًا! احصل عليه الآن!

الخطوة شنومك: اضغط ألت + فسنومك لفتح نافذة VBA في Word ؛

الخطوة شنومك: انقر وحدة in إدراج ، وأدخل رمز VBA في وحدة نافذة او شباك؛

رمز VBA لاستبدال جميع أحرف التسطير بخط مائل في Word:

Sub ReplaceUnderlineWithItalic()
'Update 20131107
Selection.Find.ClearFormatting
Selection.Find.Font.Underline = wdUnderlineSingle
Selection.Find.Replacement.ClearFormatting
Selection.Find.Replacement.Font.Italic = True
With Selection.Find
.Text = ""
.Replacement.Text = ""
.Replacement.Font.Underline = wdUnderlineNone
.Forward = True
.Wrap = wdFindAsk
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub

الخطوة شنومك: انقر يجري زر لتطبيق كود فبا (أو اضغط F5);

ملاحظة:

1. هذا الرمز مناسب فقط للتسطير الفردي بدون لون. يمكنك التغيير "wdUnderlineSingle" في الكود ليناسب أنماط التسطير الأخرى مثل "wdUnderlineDouble" or "wdUnderlineThick".

2. هذا الرمز يجعل النص مائلًا ، ولا يمكن إزالة التسطير.



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

 

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

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

تواصل معنا

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