كيفية تحديد الفقرات غير العناوين في Word؟

Author: Amanda Li Last Modified: 2025-05-30

في بعض الحالات، قد تحتاج إلى تحديد جميع الفقرات غير العناوين في مستند Word. بدلاً من تحديدها واحدة تلو الأخرى، يقدم هذا البرنامج التعليمي طريقتين فعّالتين لتحديد جميع الفقرات غير العناوين دفعة واحدة.

تحديد الفقرات غير العناوين باستخدام Kutools for Word

تحديد الفقرات غير العناوين باستخدام VBA

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

Kutools for Word: يدمج الذكاء الاصطناعي 🤖، أكثر من 100 ميزات متقدمة توفر 50% من وقت التعامل مع المستندات. Free Download

Office Tab: يقدم علامات التبويب المشابهة للمتصفح إلى Word (وأدوات Office الأخرى)، مما يبسط التنقل بين المستندات المتعددة. Free Download

تحديد الفقرات غير العناوين باستخدام Kutools for Word

يقدم Kutools for Word أسهل طريقة لتحديد الفقرات غير العناوين. بمجرد التثبيت، يمكنك إكمال المهمة بنقرة واحدة فقط.

Kutools for Word،المزود بذكاء اصطناعي 🤖، يقدم أكثر من 100 ميزات عملية لتبسيط مهامك.

تحميل الآن

انقر على Kutools > فقرات > تحديد الفقرات غير العناوين.

ملاحظة: يمكنك أيضًا استخدام هذه الأداة لتحديد جميع الفقرات غير العناوين داخل جزء محدد من المستند عن طريق تحديد الجزء أولاً ثم تطبيق الأداة.

Kutools for Word هو الإضافة النهائية لبرنامج Word التي تُبسّط عملك وتعزز مهاراتك في معالجة المستندات. احصل عليه الآن!

تحديد الفقرات غير العناوين باستخدام VBA

يمكنك أيضًا استخدام VBA لتحديد جميع الفقرات غير العناوين. اتبع الخطوات أدناه:

اضغط على Alt + F11 لفتح نافذة Microsoft Visual Basic for Applications.

انقر على Module في علامة التبويب Insert، ثم قم بنسخ ولصق الكود التالي لـ VBA في نافذة الوحدة.

Sub SelectNonHeadingParagraphs()
Dim tempTable As Paragraph
Application.ScreenUpdating = False
ActiveDocument.DeleteAllEditableRanges wdEditorEveryone
For Each tempTable In ActiveDocument.Paragraphs
    If tempTable.Style <> ActiveDocument.Styles(wdStyleHeading1) Then
        tempTable.Range.Editors.Add wdEditorEveryone
    End If
Next
ActiveDocument.SelectAllEditableRanges wdEditorEveryone
ActiveDocument.DeleteAllEditableRanges wdEditorEveryone
Application.ScreenUpdating = True
End Sub

انقر على Run لتنفيذ الكود.

ملاحظة: تستخدم هذه الطريقة العنوان 1 كمثال. يمكنك استبداله بأساليب عناوين أخرى. إذا كان مستندك يتضمن عدة أنماط عناوين، فقد لا تكون هذه الطريقة مناسبة.