مصطفى شاهين

الأستاذ/ برقش حفظه الله ورعاه
السلام عليكم ورحمة الله وبركاته،،،
بحمد الله وفضله، وبمساعدتكم لنا، ومن باب نشر المعلومة، والاستفادة للجميع، أدناه الماكرو الذي يحل المشكلة:
Sub CnvrtCstmFNs() Dim FtNt As Footnote For Each FtNt In ActiveDocument.Footnotes   With FtNt     With .Reference.FootnoteOptions       .Location = wdBottomOfPage       .NumberingRule = wdRestartContinuous       .StartingNumber = 1       .NumberStyle = wdNoteNumberStyleArabic     End With     .Reference.Footnotes.Add Range:=.Reference, Reference:=""   End With Next End Sub   أشكر لك حُسن تعاونكم معنا دمتم بخير

تحية طيبة وبعد،
بدايةً يجب أن يكون الملف به أكثر من مقطع (ضروري)، وذلك عن طريق تبويب تخطيط الصفحة واختار تبويب فواصل - فواصل المقطع - مستمر، سينشئ مقطع آخر بنفس الصفحة، وستلاحظ عند ترقيم الصفحات قد تم كتابة مقطع: 2 (هذه أهم خطوة)
بعد تتبع الخطوات وبالنهاية يمكنكم بدء فرض الحماية بكلمة السر، كما هو موضح بالمرفق.
لا يمكن الآن النسخ أو التعديل، أما فيما يتعلق بالطباعة فلا يوجد لديَّ معلومات بخصوص ذلك.
دمتم بخير