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

كيفية تقسيم مستند 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، ثم أدخل أرقام الصفحات التي تريد تقسيم البداية والنهاية.

doc Split حفظ pdf 2 doc Split حفظ pdf 3

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


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

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

كوتولس للكلمة, مع أكثر من
100
 وظائف يدوية ، تجعل مهامك أسهل. 

بعد تثبيت 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 For Word - أكثر من 100 ميزة متقدمة لـ Word ، وفر وقتك بنسبة 50 ٪

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

 

فرز التعليقات حسب
التعليقات (25)
لا يوجد تقييم. كن أول من يقيم!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
كود فبا لا يعمل. يحتفظ بالقول "أدخل رقم الصفحة الصحيح. يتكون مستند Word من 3 صفحات. لقد أضفت في 1 و 3 في علب الرسائل وحصلت على الخطأ.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا نيكو ، لقد جربت الكود مرة أخرى ، إنه يعمل في الإصدار الخاص بي من نافذة 10 64 2016 ، ما هو الإصدار الذي تستخدمه؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
يجب عليك إدخال الصفحات التي تريد تحويلها ... أي 1 (في شاشة المطالبة الأولى) ثم في شاشة المطالبة الثانية. هذا ما فعلته وكان الرمز يعمل بشكل جميل. شكرا صني لهذه المشاركة
تم تصغير هذا التعليق بواسطة المشرف على الموقع
هل هناك طريقة لتسمية الملفات من نص في المستند بدلاً من الصفحة 1 ، الصفحة 2 ، إلخ؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
آسف ليس لدي فكرة.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
إذا كان بإمكان أي شخص المساعدة في هذا ... أعتقد أنني بحاجة إلى فعل نفس الشيء ... حالة الاستخدام: لدي مستند 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. بي دي إف
أي ، ابحث عن الكلمة الثانية (أو الكلمة الأولى ، أو الكلمة العاشرة) في كل صفحة واستخدم هذه الكلمة كاسم للملف.
أي شخص لديه أي أفكار؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
يمكنك القيام بذلك باستخدام وظيفة REN إذا فتحت CMD في المجلد مع المستندات المحفوظة
تم تصغير هذا التعليق بواسطة المشرف على الموقع
يا إلهي ، لقد أنقذت حياتي. أحتاج دائمًا إلى دمج الأحرف في Word ثم حفظ كل حرف على حدة في PDF. كانت آخر 40 حرفًا لي سريعة جدًا !!! :)
تم تصغير هذا التعليق بواسطة المشرف على الموقع
بدلاً من حفظ كل صفحة كمستند منفصل ، كيف يمكنني الحصول على الرمز لحفظ كل صفحتين أو ثلاث صفحات كمستند منفصل.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
لا يمكن العثور على الرمز للتعامل مع وظيفتك الآن. جرب Kutools for Word ، فهو مجاني للاستخدام في أيام 60
تم تصغير هذا التعليق بواسطة المشرف على الموقع
يرجى التوضيح: (إعادة تسمية المستند) يمكنك القيام بذلك باستخدام وظيفة REN إذا فتحت CMD في المجلد مع المستندات المحفوظة - وأيضًا مستندات من صفحتين في ملف pdf واحد
تم تصغير هذا التعليق بواسطة المشرف على الموقع
تمكنت من تقسيم المستند ، أحتاج إلى التوجيه إذا كنت أرغب في حفظ المستند باسم فردي
تم تصغير هذا التعليق بواسطة المشرف على الموقع
هل هناك أيضا إمكانية لحفظ الملفات ليس كصفحة 1 أو صفحة 2 ، ولكن باسم يعتمد على محتوى الصفحة؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا ، عند النقر فوق "موافق" ، تختفي الشاشة ولكن لا يتم حفظ أي شيء؟ هل هناك إعداد آخر أحتاج إلى تمكينه في مكان ما؟
أيضًا ، ينتقل الحفظ إلى إلى مجلد One Drive المحلي الخاص بي ، إذا كان هذا قد يمثل مشكلة؟ شكرًا
تم تصغير هذا التعليق بواسطة المشرف على الموقع
نصيحة مفيدة للغاية وسهلة الاستخدام. وفر لي الكثير من الوقت. شكرا جزيلا لك.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا،
Est-il can de Changer le module pour fractionner le fichier word en PDF toutes les 24 pages؟

شكرا لك على مساعدتك
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا ، 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 يومًا ، قد تجد أداة أكثر فائدة. تحميل مجانا
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا،

يعمل هذا الرمز على تحويل عملية دمج البريد إلى ملفات PDF فردية. لكني بحاجة إلى تقسيم أول صفحتين كمستند واحد. يعني إذا كان هناك 2 صفحة فأنا بحاجة إلى 12 مستندات PDF. مجموعة من 6 في ملف PDF واحد. في الوقت الحالي ، يقسم هذا الرمز إلى 2 ملفًا فرديًا. أفيدوني بما يجب علي تغييره في الكود.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا ، SAROJ ، أقترح أن استخدام الأدوات في Kutools for Word ، فإن الخطوات هي نفس ردي على تيليت
تم تصغير هذا التعليق بواسطة المشرف على الموقع
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.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا ، جرب هذا 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.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا صني ،

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

شكرا!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا ، جرب هذا 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 بالرقم.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
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!

مينيموريز
تم تصغير هذا التعليق بواسطة المشرف على الموقع
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   الشخصيات
المواقع المقترحة

تواصل معنا

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