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

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

عادةً ما يقوم Microsoft Word تلقائيًا بتغيير علامات الاقتباس المستقيمة إلى الاقتباسات المجعدة (المصمم الذكي) كما تكتب. ولكن إذا تم إيقاف تشغيل الميزة ، فقد تظهر علامات الاقتباس المفردة والمزدوجة مباشرة في المستند. فيما يلي تلميحات لك لتغيير علامات الاقتباس المستقيمة إلى علامات اقتباس منحنية والعكس بالعكس في Word.

يقتبس Chang المستقيم لعروض الأسعار المجعدة باستخدام Find and Replace

قم بتغيير علامات الاقتباس المستقيمة إلى عروض الأسعار المتعرجة باستخدام VBA


السهم الأزرق الحق فقاعة قم بتغيير علامات الاقتباس المستقيمة إلى علامات اقتباس متعرجة باستخدام البحث والاستبدال

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

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

قبل التطبيق بحث واستبدال، عليك الذهاب ل خيارات التصحيح التلقائي لإلغاء تحديد "اقتباسات مباشرة" مع "علامات اقتباس ذكية" خانة الاختيار.

في Word 2003 ، خيارات التصحيح التلقائي هو تحت أداة شريط. وفي Word 2007 ، التقديم خيارات التصحيح التلقائي بالضغط  > العلاج > إثبات > خيارات التصحيح التلقائي. هنا نأخذ Word 2010/2013 على سبيل المثال:

الخطوة شنومكس. انقر  > خيار > إثبات > خيارات التصحيح التلقائي > تنسيق تلقائي أثناء الكتابةوحدد "اقتباسات مباشرة" مع "اقتباسات ذكية" خانة الاختيار. انظر لقطة الشاشة :

الخطوة شنومكس. انقر الرئيسية > استبدل في ال تحرير مجموعة أو اضغط كترل + H لعرضهم بحث واستبدال الحوار ، والدخول 'or '' in تجد ما مربع ، وأدخل ' or ''in استبدال صندوق. انظر لقطة الشاشة:

الخطوة شنومكس. انقر استبدال الكل.

ملاحظة: إذا كنت تريد استبدال جميع علامات الاقتباس المتعرجة بعلامات اقتباس مستقيمة ، فيرجى توضيح ذلك "اقتباسات مباشرة" مع "علامات اقتباس ذكية" خانة الاختيار).


السهم الأزرق الحق فقاعة قم بتغيير علامات الاقتباس المستقيمة إلى عروض الأسعار المتعرجة باستخدام VBA

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

الخطوة 1: اضغط على "البديل، F11لفتح نافذة Microsoft Visual Basic for Application ؛

الخطوة شنومك: انقر وحدة على إدراج علامة التبويب ، انسخ والصق رمز 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


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

 

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

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

تواصل معنا

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