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

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

أثناء استخدام مستند Microsoft Word ، يمكنك حفظ كل صفحة كملفات pdf منفصلة واحدة تلو الأخرى باستخدام وظيفة حفظ باسم المضمنة. ومع ذلك ، إذا كان هناك مئات الصفحات التي يجب تقسيمها وحفظها كملفات pdf فردية ، فكيف يمكنك القيام بذلك؟ توفر هذه المقالة طريقة لحل هذه المشكلة بسرعة.

احفظ كل صفحة كملفات pdf منفصلة دفعة واحدة باستخدام كود VBA


احفظ كل صفحة كملفات pdf منفصلة دفعة واحدة باستخدام كود VBA

يساعدك رمز VBA أدناه على حفظ كل صفحة في مستند بسرعة كملفات pdf فردية في نفس الوقت. الرجاء القيام بما يلي.

1. افتح المستند الذي ستحفظ فيه كل صفحة أو صفحات محددة كملفات pdf ، ثم اضغط على قديم + F11 مفاتيح لفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.

2. في ال ميكروسوفت فيسوال باسيك للتطبيقات الإطار، انقر فوق إدراج > وحدة، انسخ رمز VBA أدناه في نافذة الوحدة النمطية.

رمز VBA: احفظ كل صفحة كملفات pdf منفصلة في نفس الوقت في مستند Word

Sub SaveAsSeparatePDFs()
'Updated by Extendoffice 20180906
    Dim I As Long
    Dim xStr As String
    Dim xPathStr As Variant
    Dim xDictoryStr As String
    Dim xFileDlg As FileDialog
    Dim xStartPage, xEndPage As Long
    Dim xStartPageStr, xEndPageStr As String
    Set xFileDlg = Application.FileDialog(msoFileDialogFolderPicker)
    If xFileDlg.Show <> -1 Then
        MsgBox "Please chose a valid directory", vbInformation, "Kutools for Word"
        Exit Sub
    End If
    xPathStr = xFileDlg.SelectedItems(1)
    xStartPageStr = InputBox("Begin saving PDFs starting with page __? " & vbNewLine & "(ex: 1)", "Kutools for Word")
    xEndPageStr = InputBox("Save PDFs until page __?" & vbNewLine & "(ex: 7)", "Kutools for Word")
    If Not (IsNumeric(xStartPageStr) And IsNumeric(xEndPageStr)) Then
        MsgBox "The enterng start page and end page should be number format", vbInformation, "Kutools for Word"
        Exit Sub
    End If
    xStartPage = CInt(xStartPageStr)
    xEndPage = CInt(xEndPageStr)
    If xStartPage > xEndPage Then
        MsgBox "The start page number can't be larger than end page", vbInformation, "Kutools for Word"
        Exit Sub
    End If
    If xEndPage > ActiveDocument.BuiltInDocumentProperties(wdPropertyPages) Then
        xEndPage = ActiveDocument.BuiltInDocumentProperties(wdPropertyPages)
    End If
    For I = xStartPage To xEndPage
        ActiveDocument.ExportAsFixedFormat xPathStr & "\Page_" & I & ".pdf", _
        wdExportFormatPDF, False, wdExportOptimizeForPrint, wdExportFromTo, I, I, wdExportDocumentWithMarkup, _
        False, False, wdExportCreateHeadingBookmarks, True, False, False
    Next
End Sub

3. اضغط على F5 مفتاح لتشغيل الكود.

4. في ال تصفح ، حدد مجلدًا لحفظ ملفات pdf وانقر فوق OK زر. انظر لقطة الشاشة:

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

6. في الثانية كوتولس للكلمة في مربع الحوار ، أدخل رقم الصفحة الأخيرة من المستند الخاص بك ، ثم انقر فوق حسنا. انظر لقطة الشاشة:

ملاحظة: إذا كنت ترغب فقط في حفظ عدة صفحات باستمرار في المستند كملفات pdf منفصلة مثل الصفحات 4 و 5 و 6 ، فالرجاء إدخال 4 و 6 بشكل منفصل في مربعي الحوار أعلاه.

بعد تشغيل الكود ، يرجى الانتقال إلى المجلد المحدد الذي حددته في الخطوة 4 ، يمكنك رؤية جميع الصفحات مقسمة وحفظها كملفات pdf فردية كما هو موضح أدناه.


قم بتقسيم كل صفحة من المستند وحفظها كمستندات جديدة منفصلة:

انقسام المستند فائدة كوتولس ل إكسيل يمكن أن تساعدك على تقسيم وحفظ كل صفحة من المستند الحالي بسهولة كمستند جديد منفصل بشكل مجمّع كما هو موضح في لقطة الشاشة أدناه. قم بتنزيله وجربه الآن! (60درب مجاني ليوم)


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

 

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

  • يمكن إجراء العمليات المعقدة والمتكررة لمرة واحدة في ثوانٍ.
  • أدخل صورًا متعددة عبر المجلدات في مستند Word مرة واحدة.
  • دمج ودمج ملفات Word المتعددة عبر المجلدات في ملف واحد بالترتيب الذي تريده.
  • قسّم المستند الحالي إلى مستندات منفصلة وفقًا للعنوان أو فاصل المقطع أو معايير أخرى.
  • قم بتحويل الملفات بين Doc و Docx و Docx و PDF ، ومجموعة من الأدوات للتحويلات والاختيارات الشائعة ، وما إلى ذلك ...
فرز التعليقات حسب
التعليقات (19)
تقييم شنومك من شنومكس · تصنيفات 3
تم تصغير هذا التعليق بواسطة المشرف على الموقع
down تحميل kutools للتجربة - مثبتة وعند محاولة شيء ما تنتهي الكلمة والأداة لا تعمل أبدًا.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
يوم جيد،
شكرًا لإعلامي بالخطأ ، ونأسف للإزعاج. هل ستقدم نسخة Word الخاصة بك؟ نحن بحاجة لمعرفة المشكلة بمزيد من المعلومات.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
Salve، ho utilizzato i vostri preziosi suggerimenti e sono riuscito facilmente a Genare i file singoli in pdf partendo da un file word di stampa unione. يمكنك الحصول على بعض الأسماء المتاحة في ملف واحد بتنسيق pdf ، كل ما عليك فعله هو الحصول على ملف خاص به في جميع أنحاء العالم. ساريبي إل ماسيمو. غراتسي ميل
تم تصغير هذا التعليق بواسطة المشرف على الموقع
ما الذي يمكنني فعله لحفظ كل صفحة بمرجع في المستند وليس باسم الصفحة؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
الجمال! شكرًا لك ، تعليماتك سهلة المتابعة وتحديد الفور. لقد وفرت لنا الكثير من الوقت.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
ما الذي يمكنني فعله لحفظ كل صفحة بمرجع في المستند وليس باسم الصفحة؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
شكرًا! عملت معي. ما الذي يمكنني فعله لحفظه في ملف PDF على الوجهين؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
كيو القانونية ... أكوا ديو سوبر سيرتو!

شكرا
تم تصغير هذا التعليق بواسطة المشرف على الموقع
ساعدتني قراءة هذه التعليمات على إكمال مشروع كان سيستغرق ساعتين أو أكثر في 2 دقيقة. شكراً جزيلاً!
تقييم شنومك من شنومكس
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا كايل بالدوين ،
سيكون من دواعي سرورنا المساعدة في حل مشكلتك.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
شكرًا على البرنامج النصي ، لقد وفر لي أيضًا الكثير من العمل في تصدير الصفحات بتنسيق pdf!
تقييم شنومك من شنومكس
تم تصغير هذا التعليق بواسطة المشرف على الموقع
يوم جيد!
сть возможность сохранить из ворд айла (используя слияние) в пдф файл - Решения бобтвенсния.
При этом учитываем, что PDF должен сохраняться так: в 1 файле должно быть несколько листов (1 квартира), по данному модулю страницы сохраняются в пдф, но раздельно
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا،
آسف لا أفهم ما تعنيه. قد تحتاج إلى إرفاق لقطة شاشة أو نموذج ملف لوصف المشكلة التي واجهتها بشكل أكثر وضوحًا.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
شكرا على هذا ، هذا رائع. كنت أتساءل عما إذا كان لديك طريقة لتسمية ملفات pdf الخاصة بي بشكل مختلف لكل مستخرج ليس فقط Page_1.pdf.

شكر
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا سمير
كيف تريد تسمية ملفات pdf هذه؟ من فضلك أعطني مثالا على ذلك.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مثل حفظ كل مستند باسم مختلف ، وليس فقط Page_1.pdf وما إلى ذلك.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا كاميلا ،
يمكن أن يساعدك رمز VBA التالي في حل المشكلة.
ملاحظة: أنت بحاجة إلى تحديد اسم مختلف في هذا السطر: xFileName = "AA ، BB ، CC ، DD". هنا أسماء ملفات PDF هي AA و BB و CC.
يرجى تغييرها لتلبية احتياجاتك. يمكنك إضافة المزيد من الأسماء والفصل بينها بفاصلة منقوطة. أن نذكر أن عدد الأسماء المحدد يجب أن يتطابق مع عدد الصفحات التي استخرجتها. وستتم تسمية ملفات PDF بترتيب الأسماء المحددة في الكود.
Sub SaveAsSeparatePDFs()
'Updated by Extendoffice 20221223
    Dim xStr As String
    Dim xPathStr As Variant
    Dim xDictoryStr As String
    Dim xFileDlg As FileDialog
    Dim xStartPage, xEndPage As Long
    Dim xStartPageStr, xEndPageStr As String
    Dim xFileName As String
    Dim xNameArr() As String

    xFileName = "AA; BB; CC; DD"  'Specify a name for each page. The number of names specified must match the number of pages you exported.The PDF files will be named in order of the the specified names
    xNameArr = VBA.Split(xFileName, ";")
    Set xFileDlg = Application.FileDialog(msoFileDialogFolderPicker)
    If xFileDlg.Show <> -1 Then
        MsgBox "Please chose a valid directory", vbInformation, "Kutools for Word"
        Exit Sub
    End If
    xPathStr = xFileDlg.SelectedItems(1)
    xStartPageStr = InputBox("Begin saving PDFs starting with page __? " & vbNewLine & "(ex: 1)", "Kutools for Word")
    xEndPageStr = InputBox("Save PDFs until page __?" & vbNewLine & "(ex: 7)", "Kutools for Word")
    If Not (IsNumeric(xStartPageStr) And IsNumeric(xEndPageStr)) Then
        MsgBox "The enterng start page and end page should be number format", vbInformation, "Kutools for Word"
        Exit Sub
    End If
    xStartPage = CInt(xStartPageStr)
    xEndPage = CInt(xEndPageStr)
    If xStartPage > xEndPage Then
        MsgBox "The start page number can't be larger than end page", vbInformation, "Kutools for Word"
        Exit Sub
    End If
    If xEndPage > ActiveDocument.BuiltInDocumentProperties(wdPropertyPages) Then
        xEndPage = ActiveDocument.BuiltInDocumentProperties(wdPropertyPages)
    End If
    For I = xStartPage To xEndPage
        ActiveDocument.ExportAsFixedFormat xPathStr & "\" & VBA.Trim(xNameArr(I - 1)) & ".pdf", _
        wdExportFormatPDF, False, wdExportOptimizeForPrint, wdExportFromTo, I, I, wdExportDocumentWithMarkup, _
        False, False, wdExportCreateHeadingBookmarks, True, False, False
    Next
    Erase xNameArr
End Sub
تم تصغير هذا التعليق بواسطة المشرف على الموقع
10x :) كان هذا مفيدًا حقًا !!!
تقييم شنومك من شنومكس
تم تصغير هذا التعليق بواسطة المشرف على الموقع
هل هناك طريقة للحفظ في صفحتين؟

السابق. احفظ الصفحة 1/2 في Page_1.pdf
احفظ الصفحة 3/4 في Page_2.pdf

شكر!
لا توجد تعليقات منشورة هنا حتى الآن
اترك تعليقاتك
النشر كضيف
×
قيم المنشور:
0   الشخصيات
المواقع المقترحة

تواصل معنا

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