حذف دفعة واحدة واستبدال رأس وتذييل مستندات Microsoft Word

افتح برنامج Microsoft WORD، عرض، ماكرو، عرض ماكرو، إنشاء ماكرو جديد

فرعي أ()

تعتيم مربعات الحوار الخاصة بي كمربعات حوار للملفات، وoDoc كمستندات، وoSecs كأقسام

Dim oFile كـ Variant، myRange كـ Range

في حالة حدوث خطأ، استأنف التالي

تحديد مربع حوار اختيار المجلد

تعيين myDialogue = سجل ملف التطبيق (msoFileDialogFilePicker)

مع myDialogs

. المرشحات. مسح 'يمسح جميع العناصر الموجودة في مرشحات الملف

. الفلاتر. أضف "جميع ملفات Word"، "*. doc، *. docx"، 1 'أضف الفلاتر إلى جميع ملفات Word

. AllowMultiSelect=True 'السماح باختيارات متعددة

إذا كان العرض = -1، إذن "موافق"

لكل ملف في حلقة "SelectedItems" قم بالتنقل عبر جميع العناصر المحددة

تعيين oDoc=فتح مستندات Word (اسم الملف:=oFile، مرئي:=False)

لكل oSec في أقسام oDoc، حلقة مستند داخل الأقسام

تعيين نطاق myRange=oSec Headers (wdHeaderFooterPrimary)

MyRange Delete 'حذف المحتوى الموجود في الرأس

نطاقي النصي=”www.jincan.net”

MyRange ParagraphFormat Alignment=wdAlignParagraphCenter 'مركز النص

حدود تنسيق الفقرة MyRange (wdBorderBottom) LineStyle=wdLineStyleNone 'خط الحد السفلي للفقرة

مع خط myRange

إنتهى بـ

تعيين نطاق myRange=oSec Footers (wdHeaderFooterPrimary)

MyRange Delete 'حذف المحتوى الموجود في التذييل

انهيار نطاقي wdCollapseEnd

إدراج بعد رقم الصفحة في نطاقي

حقول MyRange أضف Range:=myRange، Type:=wdFieldEmpty، Text:=”PAGE”، PreserveFormatting:=True

MyRange ParagraphFormat Alignment=wdAlignParagraphCenter 'مركز أرقام الصفحات

التالي

ODoc إغلاق صحيح

التالي

نهاية إذا

إنتهى بـ

نهاية الترجمة