كيفية تقسيم مستند Word وحفظه كملف PDF منفصل؟

في Word ، يمكنك حفظ المستند بأكمله في ملف PDF ، ولكن هل سبق لك أن حاولت تقسيم المستند ثم حفظ الصفحات كملف PDF منفصل؟ في هذه المقالة ، سأقدم طرقًا لحل هذه الوظيفة بسرعة.

قم بتقسيم مستند Word وحفظه كملف PDF منفصل باستخدام VBA

قم بتقسيم مستند Word لفصل الملفات حسب الصفحات / العنوان 1 / فاصل ثم احفظه بتنسيق PDF

قم بتقسيم مستند Word وحفظه كملف PDF منفصل باستخدام VBA

هنا يمكن أن يساعدك رمز VBA في تقسيم مستند Word مباشرة حسب الصفحات ثم حفظه كملفات PDF منفصلة.

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

2. انقر إدراج > وحدة، انسخ والصق الكود أدناه إلى وحدة نافذة.

VBA: احفظ Word كملف PDF منفصل

Sub SaveAsSeparatePDFs()
'UpdatebyExtendoffice20181120
    Dim I As Long
    Dim xDlg As FileDialog
    Dim xFolder As Variant
    Dim xStart, xEnd As Integer
    On Error GoTo lbl
    Set xDlg = Application.FileDialog(msoFileDialogFolderPicker)
    If xDlg.Show <> -1 Then Exit Sub
    xFolder = xDlg.SelectedItems(1)
    xStart = CInt(InputBox("Start Page", "KuTools for Word"))
    xEnd = CInt(InputBox("End Page:", "KuTools for Word"))
    If xStart <= xEnd Then
        For I = xStart To xEnd
            ActiveDocument.ExportAsFixedFormat OutputFileName:= _
                xFolder & "\Page_" & I & ".pdf", ExportFormat:=wdExportFormatPDF, _
                OpenAfterExport:=False, OptimizeFor:=wdExportOptimizeForPrint, Range:= _
                wdExportFromTo, From:=I, To:=I, Item:=wdExportDocumentContent, _
                IncludeDocProps:=False, KeepIRM:=False, CreateBookmarks:= _
                wdExportCreateHeadingBookmarks, DocStructureTags:=True, _
                BitmapMissingFonts:=False, UseISO19005_1:=False
        Next
    End If
    Exit Sub
lbl:
    MsgBox "Enter right page number", vbInformation, "KuTools for Word"
End Sub

3. صحافة F5 مفتاح ، في مربع الحوار "استعراض" ، حدد مجلدًا لوضع ملفات PDF.
doc Split حفظ pdf 1

4. انقر OK، ثم أدخل أرقام الصفحات التي تريد تقسيم البداية والنهاية.

5. انقر OK. الآن تم حفظ الصفحات كملفات PDF منفصلة.
doc Split حفظ pdf 4

قم بتقسيم مستند Word لفصل الملفات حسب الصفحات / العنوان 1 / فاصل ثم احفظه بتنسيق PDF

إذا لم تكن على دراية برمز VBA ، يمكنك محاولة استخدام أداة الوظيفة الإضافية - كوتولس للكلمة، في الانقسام يمكن أن تساعدك الميزة في تقسيم مستند Word إلى صفحات بناءً على فواصل الصفحات وأرقام الصفحات والعنوان 1 وفواصل المقاطع وكل صفحة رقم ورقم صفحة مخصصة تحددها ، ثم قم بتطبيق محول تنسيق المستند لتحويل مستندات Word المنقسمة إلى PDF دفعة واحدة.

كوتولس للكلمة, مع أكثر من 100 وظائف يدوية ، تجعل مهامك أسهل.
انتقل إلى تنزيل (60 أيام تجريبية مجانية)

بعد تثبيت Kutools for Word ، يرجى القيام بما يلي:（تنزيل مجاني Kutools for Word الآن!)

1. قم بتمكين مستند Word الذي تريد تحويله إلى تقسيم ، انقر فوق "موافق" كوتولس بلس > الانقسام.
doc حفظ بصيغة pdf 2

2. في ال انقسام المستند مربع الحوار ، اختر قاعدة الانقسام كما تريد في قسم تقسيم حسب. ثم حدد موقع الحفظ وبادئة ملف المستند المقسم. انقر Ok.

في مجلة تقسيم حسب القسم ، فإنه يوفر 6 أنواع تقسيم لك. لمزيد من التفاصيل حول كل نوع تقسيم ، يرجى زيارة مقدمة الميزة.

الآن تم حفظ المستندات المنقسمة في الموقع المحدد.

3. بعد تقسيم المستند ، انقر فوق كوتولس بلس > Doc / Docx.

4. في ال محول تنسيق المستند الحوار، اختر تحويل Docx إلى PDF النموذج المرفق تنسيق تحويل القائمة المنسدلة ، انقر فوق علامة الجمع لإضافة ملفات أو مجلدات تحتوي على المستندات التي تريد تحويلها إلى PDF ، ثم حدد الإعدادات الأخرى التي تريدها (افتراضيًا ، تقوم بحفظ ملفات PDF في المجلد المصدر ، يمكنك تغييرها ). انقر Ok.

الآن تم تحويل مستندات Word إلى ملفات PDF.

الاستعراض المبوب وتحرير العديد من مستندات Word / مصنفات Excel مثل Firefox و Chrome و Internet Explore 10!

قد تكون مألوفًا لعرض صفحات ويب متعددة في Firefox / Chrome / IE ، والتبديل بينها عن طريق النقر فوق علامات التبويب المقابلة بسهولة. هنا ، يدعم Office Tab المعالجة المماثلة ، والتي تسمح لك باستعراض مستندات Word متعددة أو مصنفات Excel في نافذة Word واحدة أو نافذة Excel ، والتبديل بينها بسهولة عن طريق النقر فوق علامات التبويب الخاصة بها.
انقر للحصول على نسخة تجريبية مجانية من Office Tab!

تصفح مستندات متعددة الكلمات في نافذة واحدة مثل Firefox

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

لقطة kutools كلمة علامة التبويب kutools 1180x121

لقطة kutools word kutools plus tab 1180x120

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

يمكن إجراء العمليات المعقدة والمتكررة لمرة واحدة في ثوانٍ.
أدخل صورًا متعددة عبر المجلدات في مستند Word مرة واحدة.
دمج ودمج ملفات Word المتعددة عبر المجلدات في ملف واحد بالترتيب الذي تريده.
قسّم المستند الحالي إلى مستندات منفصلة وفقًا للعنوان أو فاصل المقطع أو معايير أخرى.
قم بتحويل الملفات بين Doc و Docx و Docx و PDF ، ومجموعة من الأدوات للتحويلات والاختيارات الشائعة ، وما إلى ذلك ...

التفاصيل حمل التطبيق الآن شراء

التعليقات (25)

لا يوجد تقييم. كن أول من يقيم!

نيكو

منذ حوالي 2 سنوات

#34572

تم تصغير هذا التعليق بواسطة المشرف على الموقع

كود فبا لا يعمل. يحتفظ بالقول "أدخل رقم الصفحة الصحيح. يتكون مستند Word من 3 صفحات. لقد أضفت في 1 و 3 في علب الرسائل وحصلت على الخطأ.

رد

مشمس نيكو

منذ حوالي 2 سنوات

#34573

تم تصغير هذا التعليق بواسطة المشرف على الموقع

مرحبًا نيكو ، لقد جربت الكود مرة أخرى ، إنه يعمل في الإصدار الخاص بي من نافذة 10 64 2016 ، ما هو الإصدار الذي تستخدمه؟

رد

بلغ

ميليسا نيكو

منذ حوالي سنة واحدة

#34574

تم تصغير هذا التعليق بواسطة المشرف على الموقع

يجب عليك إدخال الصفحات التي تريد تحويلها ... أي 1 (في شاشة المطالبة الأولى) ثم في شاشة المطالبة الثانية. هذا ما فعلته وكان الرمز يعمل بشكل جميل. شكرا صني لهذه المشاركة

رد

جلال 7804

منذ حوالي 2 سنوات

#34614

تم تصغير هذا التعليق بواسطة المشرف على الموقع

هل هناك طريقة لتسمية الملفات من نص في المستند بدلاً من الصفحة 1 ، الصفحة 2 ، إلخ؟

رد

بلغ

مشمس جلال 7804

منذ حوالي 2 سنوات

#34615

تم تصغير هذا التعليق بواسطة المشرف على الموقع

آسف ليس لدي فكرة.

رد

بلغ

بن مشمس

منذ حوالي 10 أشهر

#34616

تم تصغير هذا التعليق بواسطة المشرف على الموقع

إذا كان بإمكان أي شخص المساعدة في هذا ... أعتقد أنني بحاجة إلى فعل نفس الشيء ... حالة الاستخدام: لدي مستند Word مكون من 100 صفحة. كل صفحة هي نتيجة دمج المراسلات ، لذا فإن كافة الصفحات متطابقة باستثناء بضع كلمات. أعلى كل صفحة تقول ، "عزيزي " أين يتم استبدال اسم مختلف في كل صفحة. ex: - عزيزي بيكي - عزيزي نيكو - عزيزي صني - عزيزي jgall7804
يقوم هذا الرمز حاليًا بإخراج الملفات على النحو التالي:
- Page_1.pdf- Page_2.pdf- Page_3.pdf
أعلم أنه يمكنني تغيير السطر 16 حيث يقول "\ Page_" ليقول "\ Foo _" ... لذا سيكون الناتج
- Foo_1.pdf- Foo_2.pdf
لكني أسأل (و jgall7804 ، و Ines ، وآخرون) ... إذا كان بإمكان شخص لديه مهارات VBA أفضل / أذكى كتابة الكود الذي سينتج على النحو التالي: - becky.pdf- nico.pdf- sunnny.pdf- jgall7804. بي دي إف
أي ، ابحث عن الكلمة الثانية (أو الكلمة الأولى ، أو الكلمة العاشرة) في كل صفحة واستخدم هذه الكلمة كاسم للملف.
أي شخص لديه أي أفكار؟

رد

بيكي جلال 7804

منذ حوالي 2 سنوات

#34617

تم تصغير هذا التعليق بواسطة المشرف على الموقع

يمكنك القيام بذلك باستخدام وظيفة REN إذا فتحت CMD في المجلد مع المستندات المحفوظة

رد

أماركيت 13

منذ حوالي 2 سنوات

#34719

تم تصغير هذا التعليق بواسطة المشرف على الموقع

يا إلهي ، لقد أنقذت حياتي. أحتاج دائمًا إلى دمج الأحرف في Word ثم حفظ كل حرف على حدة في PDF. كانت آخر 40 حرفًا لي سريعة جدًا !!! :)

رد

بلغ

مفادلهر

منذ حوالي سنة واحدة

#34800

تم تصغير هذا التعليق بواسطة المشرف على الموقع

بدلاً من حفظ كل صفحة كمستند منفصل ، كيف يمكنني الحصول على الرمز لحفظ كل صفحتين أو ثلاث صفحات كمستند منفصل.

رد

بلغ

مشمس مفادلهر

منذ حوالي سنة واحدة

#34801

تم تصغير هذا التعليق بواسطة المشرف على الموقع

لا يمكن العثور على الرمز للتعامل مع وظيفتك الآن. جرب Kutools for Word ، فهو مجاني للاستخدام في أيام 60

رد

بلغ

منذ حوالي سنة واحدة

#34874

تم تصغير هذا التعليق بواسطة المشرف على الموقع

يرجى التوضيح: (إعادة تسمية المستند) يمكنك القيام بذلك باستخدام وظيفة REN إذا فتحت CMD في المجلد مع المستندات المحفوظة - وأيضًا مستندات من صفحتين في ملف pdf واحد

رد

توشار

منذ حوالي سنة واحدة

#35273

تم تصغير هذا التعليق بواسطة المشرف على الموقع

تمكنت من تقسيم المستند ، أحتاج إلى التوجيه إذا كنت أرغب في حفظ المستند باسم فردي

رد

إيناس

منذ حوالي سنة واحدة

#35316

تم تصغير هذا التعليق بواسطة المشرف على الموقع

هل هناك أيضا إمكانية لحفظ الملفات ليس كصفحة 1 أو صفحة 2 ، ولكن باسم يعتمد على محتوى الصفحة؟

رد

شون

منذ حوالي سنة واحدة

#35536

تم تصغير هذا التعليق بواسطة المشرف على الموقع

مرحبًا ، عند النقر فوق "موافق" ، تختفي الشاشة ولكن لا يتم حفظ أي شيء؟ هل هناك إعداد آخر أحتاج إلى تمكينه في مكان ما؟
أيضًا ، ينتقل الحفظ إلى إلى مجلد One Drive المحلي الخاص بي ، إذا كان هذا قد يمثل مشكلة؟ شكرًا

رد

منذ حوالي سنة واحدة

#36152

تم تصغير هذا التعليق بواسطة المشرف على الموقع

نصيحة مفيدة للغاية وسهلة الاستخدام. وفر لي الكثير من الوقت. شكرا جزيلا لك.

رد

تيليت

منذ حوالي 6 أشهر

#39211

تم تصغير هذا التعليق بواسطة المشرف على الموقع

مرحبا،
Est-il can de Changer le module pour fractionner le fichier word en PDF toutes les 24 pages؟

شكرا لك على مساعدتك

رد

مشمس تيليت

منذ حوالي 5 أشهر

#39296

تم تصغير هذا التعليق بواسطة المشرف على الموقع

مرحبًا ، TEILLET ، يمكنك تطبيق Kutools لميزة Split Document في Word ، واختيار كل صفحات n في قسم Split by ، ثم اكتب 24 في مربع نص Every n من الصفحات ، وحدد الإعدادات الأخرى ، ثم انقر فوق موافق ، سيتم فصل كل 24 صفحة على أنها واحدة وثيقة واحدة. ثم قم بالتطبيق ، يجب أن تجرب ميزة Doc / Docx في Kutools for Excel ، واختر تحويل Docx إلى PDF من قسم تحويل التنسيق ، واختر موقعًا واحدًا لحفظه ، انقر فوق موافق ، الآن تم حفظ كل 24 صفحة كملف PDF.
لقد قمنا بترقية الميزات في Kutools for Word ، لكن هذه المقالة لم يتم تحديثها ، وبالتالي فإن لقطات الشاشة قديمة. سنقوم بتحديث المحتويات قريبًا ، يمكنك اتباع الخطوات لتحقيق ذلك.

Kutools for Word مجاني في 60 يومًا ، قد تجد أداة أكثر فائدة. تحميل مجانا

رد

بلغ

سروج

منذ حوالي 6 أشهر

#39245

تم تصغير هذا التعليق بواسطة المشرف على الموقع

مرحبا،

يعمل هذا الرمز على تحويل عملية دمج البريد إلى ملفات PDF فردية. لكني بحاجة إلى تقسيم أول صفحتين كمستند واحد. يعني إذا كان هناك 2 صفحة فأنا بحاجة إلى 12 مستندات PDF. مجموعة من 6 في ملف PDF واحد. في الوقت الحالي ، يقسم هذا الرمز إلى 2 ملفًا فرديًا. أفيدوني بما يجب علي تغييره في الكود.

رد

مشمس سروج

منذ حوالي 5 أشهر

#39298

تم تصغير هذا التعليق بواسطة المشرف على الموقع

مرحبًا ، SAROJ ، أقترح أن استخدام الأدوات في Kutools for Word ، فإن الخطوات هي نفس ردي على تيليت

رد

بلغ

مينيموريز

منذ حوالي 2 أشهر

#41206

تم تصغير هذا التعليق بواسطة المشرف على الموقع

Kérnék részlete leírást arról، hogy hogyan tudom elnevezni a létrehozott dokumentumokat egy lépésben، akár VBA-val.
Köszönöm.

رد

مشمس

منذ حوالي 2 أشهر

#41371

تم تصغير هذا التعليق بواسطة المشرف على الموقع

مرحبًا ، جرب هذا vba

Sub SaveAsSeparatePDFs()
'UpdatebyExtendoffice20221122
    Dim I As Long
    Dim xDlg As FileDialog
    Dim xFolder As Variant
    Dim xStart, xEnd As Integer
    Dim xName As String
    On Error GoTo lbl
    Set xDlg = Application.FileDialog(msoFileDialogFolderPicker)
    If xDlg.Show <> -1 Then Exit Sub
    xFolder = xDlg.SelectedItems(1)
    xStart = CInt(InputBox("Start Page", "KuTools for Word"))
    xEnd = CInt(InputBox("End Page:", "KuTools for Word"))
    If xStart <= xEnd Then
        For I = xStart To xEnd
            xName = InputBox("Page: " & I, "Enter the name for this page")
            ActiveDocument.ExportAsFixedFormat OutputFileName:= _
                xFolder & "\" & xName & ".pdf", ExportFormat:=wdExportFormatPDF, _
                OpenAfterExport:=False, OptimizeFor:=wdExportOptimizeForPrint, Range:= _
                wdExportFromTo, From:=I, To:=I, Item:=wdExportDocumentContent, _
                IncludeDocProps:=False, KeepIRM:=False, CreateBookmarks:= _
                wdExportCreateHeadingBookmarks, DocStructureTags:=True, _
                BitmapMissingFonts:=False, UseISO19005_1:=False
        Next
    End If
    Exit Sub
lbl:
    MsgBox "Enter right page number", vbInformation, "KuTools for Word"
End Sub

ستعيد تسمية ملف pdf واحدًا تلو الآخر في مربع الحوار المنبثق أثناء تطبيق vba.

رد

بلغ

أليس مشمس

قبل حوالي 1 شهر

#42004

تم تصغير هذا التعليق بواسطة المشرف على الموقع

مرحبا صني ،

هل هناك أي فرصة لمعرفة رمز اسم الملف المراد أخذها من السطر الثالث من الملف؟ أو موقع محدد؟

شكرا!

رد

مشمس أليس

قبل حوالي 1 شهر

#42147

تم تصغير هذا التعليق بواسطة المشرف على الموقع

مرحبًا ، جرب هذا vba

Sub SaveAsSeparatePDFs()

'UpdatebyExtendoffice20221221
    Dim I As Long
    Dim xDlg As FileDialog
    Dim xFolder As Variant
    Dim xStart, xEnd As Integer
    Dim xStrName As String
    Dim xPath As String
'    On Error Resume Next

    Set xDlg = Application.FileDialog(msoFileDialogFolderPicker)
    If xDlg.Show <> -1 Then Exit Sub
    xFolder = xDlg.SelectedItems(1)
    xStart = CInt(InputBox("Start Page", "KuTools for Word"))
    xEnd = CInt(InputBox("End Page:", "KuTools for Word"))
    If xStart <= xEnd Then
        For I = xStart To xEnd
                Selection.GoTo What:=wdGoToPage, Which:=wdGoToNext, Name:=I
                Selection.GoTo What:=wdGoToLine, Which:=wdGoToNext, Name:=3 - 1
                Selection.Extend
                Selection.EndKey Unit:=wdLine
                Selection.EscapeKey
   
                xStrName = Selection.Range
                xStrName = Replace(xStrName, " ", "")
                xStrName = Replace(xStrName, vbLf, "")
                xStrName = Replace(xStrName, Chr(10), "")
                xStrName = Replace(xStrName, Chr(13), "")
                xStrName = Replace(xStrName, "\", "")
                xStrName = Replace(xStrName, "/", "")
                xStrName = Replace(xStrName, ":", "")
                xStrName = Replace(xStrName, "*", "")
                xStrName = Replace(xStrName, "?", "")
                xStrName = Replace(xStrName, "<", "")
                xStrName = Replace(xStrName, ">", "")
                xStrName = Replace(xStrName, "|", "")
                xStrName = Replace(xStrName, """", "")
                If xStrName = "" Then
                    xStrName = I
                End If
                xPath = xFolder & "\" & xStrName & ".pdf"
                ActiveDocument.ExportAsFixedFormat OutputFileName:=xPath, ExportFormat:=wdExportFormatPDF, OpenAfterExport:=False, OptimizeFor:=wdExportOptimizeForPrint, Range:=wdExportFromTo, From:=I, To:=I, Item:=wdExportDocumentContent, IncludeDocProps:=False, KeepIRM:=False, CreateBookmarks:=wdExportCreateHeadingBookmarks, DocStructureTags:=True, BitmapMissingFonts:=False, UseISO19005_1:=False
        Next
    End If
End Sub

إذا كان هناك فارغ في السطر الثالث ، فسيتم تسمية ملف pdf بالرقم.

رد

بلغ

مينيموريز مشمس

منذ حوالي 5 أيام

#42820

تم تصغير هذا التعليق بواسطة المشرف على الموقع

Kedves Napos!

Ez a kód már majdnem tökéletes, a fájl elnevezéséből még ki kellene valahogyan szedni a Az eszközökért felelős személy neve részt, és akkor csak a dolgozó neve maradna.
Köszönöm szépen!

مينيموريز

رد

مينيموريز

منذ حوالي 4 أيام

#42836

تم تصغير هذا التعليق بواسطة المشرف على الموقع

Kedves Napos!

Mostmár majdnem tökéletes a kód ahhoz, amit szeretnék. A 9. sorból szeretném a fájl nevét venni, de csak a 20. karaktertől.

Ez megoldható lenne?

Nagyon szépen köszönöm.

مينيموريز

رد

لا توجد تعليقات منشورة هنا حتى الآن

اترك تعليقاتك

النشر كضيف

الدخول

الاسم (مطلوب)

البريد الإلكتروني (مطلوب)

قيم المنشور:

إعادة تعيين

0 الشخصيات

أنا أوافق على أحكام وشروط