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

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

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

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

---

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

الخطوة 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. هذا الرمز يجعل النص مائلًا ، ولا يمكن إزالة التسطير.

---