كيف يمكن تغيير علامات الاقتباس المستقيمة إلى علامات اقتباس منحنية في Word؟

عادةً ما يقوم Microsoft Word تلقائيًا بتحويل علامات الاقتباس المستقيمة إلى علامات اقتباس منحنية (ذكية أو مطبعية) أثناء الكتابة. ولكن إذا كانت هذه الميزة معطَّلة، فقد تظهر علامات الاقتباس المفردة والمزدوجة مستقيمة في مستندك. فيما يلي نصائح فعّالة لتحويل علامات الاقتباس المستقيمة إلى منحنية — والعكس — في Word.

تغيير علامات الاقتباس المستقيمة إلى منحنية باستخدام البحث والاستبدال

تغيير علامات الاقتباس المستقيمة إلى منحنية باستخدام VBA

---

تغيير علامات الاقتباس المستقيمة إلى منحنية باستخدام البحث والاستبدال

قبل تطبيقالبحث والاستبدال، يجب عليك الانتقال إلىخيارات التصحيح التلقائيلإلغاء تحديد خيار«استبدال علامات الاقتباس المستقيمة بعلامات اقتباس ذكية»في مربع الاختيار.

الخطوة 1. انقر علىملف > خيارات > مراجعة > خيارات التصحيح التلقائي > التنسيق التلقائي أثناء الكتابة، ثم حدد مربع الاختيار«استبدال علامات الاقتباس المستقيمة بعلامات اقتباس ذكية». راجع لقطة الشاشة

الخطوة 2. انقر علىالصفحة الرئيسية > استبدالفي مجموعةالتحرير، أو اضغط علىCtrl + H لعرض مربع حوارالبحث والاستبدال. أدخل‘ أو‘’ في خانةالبحث عن، وأدخل‘ أو’’ في خانةاستبدال بـ. راجع لقطة الشاشة:

الخطوة 3. انقر علىاستبدال الكل.

ملاحظة:إذا كنت ترغب في استبدال جميع علامات الاقتباس المنحنية بعلامات مستقيمة، فيرجى إلغاء تحديد خيار«استبدال علامات الاقتباس المستقيمة بعلامات اقتباس ذكية» (مربع الاختيار).

---

تغيير علامات الاقتباس المستقيمة إلى منحنية باستخدام VBA

للاستبدال التلقائي لجميع علامات الاقتباس المستقيمة بعلامات اقتباس منحنية في Word 2010 باستخدام VBA، اتبع الخطوات التالية أولاً: انقر علىملف > خيارات > مراجعة، ثم انقر علىالتصحيح التلقائي خياراتوفعّل خيار«استبدال علامات الاقتباس المستقيمة بعلامات اقتباس ذكية»من مربع الاختيار. ()ملاحظة: إذا كنت ترغب في استبدال جميع علامات الاقتباس المنحنية بعلامات مستقيمة، فما عليك سوى إلغاء تحديد خيار «استبدال علامات الاقتباس المستقيمة بعلامات اقتباس ذكية» من مربع الاختيار).

الخطوة 1: اضغط على “Alt-F11” لفتح نافذة Microsoft Visual Basic for Applications؛

الخطوة 2: انقر علىوحدةضمن تبويبإدراج، ثم انسخ والصق كود VBA التالي في نافذةالوحدة؛

الخطوة 3: بعد ذلك، انقر على زرتشغيل لتطبيق كود VBA.

كود VBA التالي مخصص لتغيير علامات الاقتباس المستقيمة إلى منحنية:

Sub ChangeDoubleStraightQuotes()
'Update 20131107
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = """"
.Replacement.Text = """"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord =False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub

كود VBA التالي مخصص لتغيير علامات الاقتباس المنحنية إلى مستقيمة:

Sub ReplaceSmartQuotes()
Dim vFindText As Variant
Dim vReplText As Variant
Dim i As Long
vFindText = Array("[^0145^0146]", "[^0147^0148]")
vReplText = Array("^039", "^034")
With Selection.Find
.ClearFormatting
.Replacement.ClearFormatting
.Forward = True
.Wrap = wdFindContinue
.MatchWholeWord = True
.MatchWildcards = True
For i = LBound(vFindText) To UBound(vFindText)
.Text = vFindText(i)
.Replacement.Text = vReplText(i)
.Execute Replace:=wdReplaceAll
Next i
End With
End Sub

---