انتقل إلى المحتوى الرئيسي

كيف تحفظ الصفحة الحالية أو كل صفحة كمستند Word منفصل؟

إذا كانت هناك صفحات متعددة في مستند Word الخاص بك ، فأنت تحتاج الآن فقط إلى حفظ صفحة حالية واحدة فقط كملف Word جديد. عادةً ، يمكنك نسخ بيانات الصفحة الحالية ولصقها في ملف Word جديد ثم حفظه. لكن في هذه المقالة سأتحدث عن كيفية حفظ الصفحة الحالية أو كل صفحة كمستندات منفصلة من ملف Word.

احفظ الصفحة الحالية كمستند Word جديد برمز VBA

احفظ كل صفحة كمستندات Word منفصلة مع Kutools for Word


احفظ الصفحة الحالية كمستند Word جديد برمز VBA

يمكن أن يساعدك رمز VBA التالي في حفظ محتوى الصفحة الحالية في ملف Word جديد ، يرجى القيام بذلك على النحو التالي:

1. اضغط باستمرار على ALT + F11 مفاتيح لفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.

2. انقر إدراج > وحدة، والصق التعليمة البرمجية التالية في نافذة الوحدة النمطية.

رمز فبا: حفظ الصفحة الحالية كمستند Word جديد:

Sub SaveCurrentPageAsANewDoc()
    Dim xDoc As Document
    Dim xNewDoc As Document
    Dim xFileName As String
    Dim xFolderPath As Variant
    Dim xDlg As FileDialog
    Set xDoc = ActiveDocument
    xFileName = InputBox("Enter file name here: ", "KuTools for Word")
    If xFileName = "" Then Exit Sub
    Set xDlg = Application.FileDialog(msoFileDialogFolderPicker)
    If xDlg.Show = -1 Then
        xFolderPath = xDlg.SelectedItems(1)
        xDoc.Bookmarks("\Page").Range.Select
        Selection.Copy
        Set xNewDoc = Documents.Add
        Selection.Paste
        xNewDoc.SaveAs xFolderPath & "\" & xFileName & ".docx"
        xNewDoc.Close
    End If
End Sub

3. ثم اضغط على F5 مفتاح لتشغيل هذا الرمز ، في مربع الحوار المنبثق ، يرجى إدخال اسم للملف الجديد ، انظر لقطة الشاشة:

doc احفظ الصفحة الحالية 1

4. ثم اضغط OK زر ، وفي النافذة المنبثقة الثانية ، يرجى اختيار مجلد لإخراج الملف الجديد ، انظر لقطة الشاشة:

doc احفظ الصفحة الحالية 2

5. انقر OK زر ، تم حفظ محتوى الصفحة الحالية كملف Word جديد ، يمكنك الانتقال إلى المجلد لعرض النتيجة.


احفظ كل صفحة كمستندات Word منفصلة مع Kutools for Word

إذا كنت تريد حفظ كل صفحة من المستند بأكمله كملفات منفصلة ، فإن ملف كوتولس للكلمةالصورة الانقسام وظيفة يمكن أن تقدم لك معروفا.

كوتولس للكلمة : مع أكثر من 100 وظيفة إضافية مفيدة في Word ، يمكنك تجربتها مجانًا دون قيود في أيام 60. 

بعد تثبيت كوتولس للكلمة، برجاء اتباع الخطوات التالية:

1. انقر كوتولس بلس > الانقسام، انظر لقطة الشاشة:

2. في انقسام المستند صندوق المحادثة:

(1.) حدد صفحة من تقسيم حسب قائمة منسدلة؛

(1.) انقر doc احفظ الصفحة الحالية 5 زر لاختيار مجلد لإخراج الملفات الجديدة ؛

(2.) ثم حدد البادئة للملفات المحفوظة الجديدة حسب حاجتك.

3. بعد الانتهاء من الإعدادات ، انقر فوق OK لبدء الانقسام ، وبعد ذلك ، تم حفظ جميع الصفحات في مستند Word كملفات منفصلة في المجلد المحدد كما هو موضح في لقطة الشاشة التالية:

doc احفظ الصفحة الحالية 6

انقر لتنزيل Kutools for Word والتجربة المجانية الآن!

أفضل أدوات إنتاجية المكتب

كوتولس للكلمة - ارفع تجربة كلمتك مع أكثر 100 ميزات رائعة!

🤖 مساعد كوتولس AI: تحويل كتابتك باستخدام الذكاء الاصطناعي - توليد المحتوى  /  إعادة كتابة النص  /  تلخيص المستندات  /  الاستفسار عن المعلومات على أساس الوثيقة، كل ذلك داخل Word

📘 إتقان الوثيقة: تقسيم الصفحات  /  دمج المستندات  /  تصدير التحديد بتنسيقات مختلفة (PDF/TXT/DOC/HTML...)  /  دفعة تحويل إلى PDF  /  تصدير الصفحات كصور  /  طباعة ملفات متعددة في وقت واحد

تحرير المحتويات: بحث واستبدال دفعة عبر ملفات متعددة  /  تغيير حجم كافة الصور  /  تبديل صفوف وأعمدة الجدول  /  تحويل الجدول إلى نص

🧹 تنظيف سهل: اكتساح بعيدا مساحات اضافية  /  فواصل القسم  /  كل الرؤوس  /  مربعات النص  /  الارتباطات التشعبية  / لمزيد من أدوات الإزالة، توجه إلى موقعنا إزالة المجموعة

إدراجات إبداعية: إدراج الف فاصل  /  مربعات الاختيار  /  أزرار الراديو  /  رمز الاستجابة السريعة  /  الباركود  /  جدول الخط القطري  /  شرح المعادلة  /  صورة توضيحية  /  الجدول التوضيحي  /  صور متعددة  / اكتشف المزيد في أدخل المجموعة

🔍 التحديدات الدقيقة: يحدد بدقة صفحات محددة  /  الجداول  /  الأشكال  /  فقرات العناوين  / تحسين التنقل باستخدام الأكثر من ذلك حدد الميزات

تحسينات النجوم: انتقل بسرعة إلى أي مكان  /  الإدراج التلقائي للنص المتكرر  /  التبديل بسلاسة بين نوافذ المستندات  /  11 أدوات التحويل

؟؟؟؟ هل تريد تجربة هذه الميزات؟ يقدم Kutools for Word أ الإصدار التجريبي المجاني من 60 يومًا، بلا حدود! 🚀
 
Comments (2)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
I am using Office 365. I think I did everything right to split doc in pages, tried several times, mas the splited page docs are not saved on destination foler.
This comment was minimized by the moderator on the site
Have downloaded Kutools , however do not have ENTERPRISE as an option. Only KUTOOLS and KUTOOLS PLUS, please advise how to activate Enterprise
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations