דילוג לתוכן
  • דף הבית
  • קטגוריות
  • פוסטים אחרונים
  • משתמשים
  • חיפוש
  • חוקי הפורום
כיווץ
תחומים

תחומים - פורום חרדי מקצועי

💡 רוצה לזכור קריאת שמע בזמן? לחץ כאן!
  1. דף הבית
  2. תוכנה
  3. איך אני יכול לפצל קובץ וורד גדול לפי מקטעים

איך אני יכול לפצל קובץ וורד גדול לפי מקטעים

מתוזמן נעוץ נעול הועבר תוכנה
8 פוסטים 3 כותבים 304 צפיות 2 עוקבים
  • מהישן לחדש
  • מהחדש לישן
  • הכי הרבה הצבעות
תגובה
  • תגובה כנושא
התחברו כדי לפרסם תגובה
נושא זה נמחק. רק משתמשים עם הרשאות מתאימות יוכלו לצפות בו.
  • אורייא מנותק
    אורייא מנותק
    אוריי
    כתב ב נערך לאחרונה על ידי אוריי
    #1

    יש לי קובץ וורד שהוא כבד וקשה לעבוד עליו.
    הקובץ מחולק למקטעים כך שאני רוצה לפצל אותו לפי מקטעים שכל מקטע יהיה בקובץ נפרד.
    חיפשתי בגוגל אבל לא מצאתי משהוא בכיון ראיתי פיצול לפי מילה ראשונה ואחרונה אבל יש לי מלא קבצים ומלא מקטעים בכל קובץ כך שהעבודה ענקית.
    והשם של הקובץ יהיה השם שלו + מספר המקטע הקיים

    ניתן לפנות אלי גם ב al0548446188@gmail.com
    ותמיד... אבל תמיד תוכלו לשאול אותי ב :) כאן שאלות באקסל

    OdedDvirO תגובה 1 תגובה אחרונה
    0
    • אורייא אוריי

      יש לי קובץ וורד שהוא כבד וקשה לעבוד עליו.
      הקובץ מחולק למקטעים כך שאני רוצה לפצל אותו לפי מקטעים שכל מקטע יהיה בקובץ נפרד.
      חיפשתי בגוגל אבל לא מצאתי משהוא בכיון ראיתי פיצול לפי מילה ראשונה ואחרונה אבל יש לי מלא קבצים ומלא מקטעים בכל קובץ כך שהעבודה ענקית.
      והשם של הקובץ יהיה השם שלו + מספר המקטע הקיים

      OdedDvirO מנותק
      OdedDvirO מנותק
      OdedDvir
      כתב ב נערך לאחרונה על ידי OdedDvir
      #2

      @אוריי תדביק את הקוד הבא במודול:

      Public Sub SplitActiveDocumentBySection()
          Dim outputDoc As Document
          Dim sectionCount As Integer
          Dim currentSection As Section
          Dim baseFileName As String
          
          sectionCount = ActiveDocument.Sections.Count
          If MsgBox("Would you like to split this document into " & sectionCount & " sections?", vbYesNo) <> vbYes Then Exit Sub
      
          baseFileName = CreateObject("Scripting.FileSystemObject").GetBaseName(ActiveDocument.Name)
          For Each currentSection In ActiveDocument.Sections
              Application.StatusBar = "Saving section " & currentSection.Index & " of " & sectionCount & "..."
              currentSection.Range.Copy
              Set outputDoc = Documents.Add(Visible:=False)
              outputDoc.Range.Paste
              outputDoc.SaveAs ActiveDocument.Path & "\" & baseFileName & "_Section_" & Right$("000" & currentSection.Index, 4) & ".docx"
              outputDoc.Close
          Next currentSection
          Application.StatusBar = "All Done!"
          Set outputDoc = Nothing
      End Sub
      
      אורייא תגובה 1 תגובה אחרונה
      8
      • OdedDvirO OdedDvir

        @אוריי תדביק את הקוד הבא במודול:

        Public Sub SplitActiveDocumentBySection()
            Dim outputDoc As Document
            Dim sectionCount As Integer
            Dim currentSection As Section
            Dim baseFileName As String
            
            sectionCount = ActiveDocument.Sections.Count
            If MsgBox("Would you like to split this document into " & sectionCount & " sections?", vbYesNo) <> vbYes Then Exit Sub
        
            baseFileName = CreateObject("Scripting.FileSystemObject").GetBaseName(ActiveDocument.Name)
            For Each currentSection In ActiveDocument.Sections
                Application.StatusBar = "Saving section " & currentSection.Index & " of " & sectionCount & "..."
                currentSection.Range.Copy
                Set outputDoc = Documents.Add(Visible:=False)
                outputDoc.Range.Paste
                outputDoc.SaveAs ActiveDocument.Path & "\" & baseFileName & "_Section_" & Right$("000" & currentSection.Index, 4) & ".docx"
                outputDoc.Close
            Next currentSection
            Application.StatusBar = "All Done!"
            Set outputDoc = Nothing
        End Sub
        
        אורייא מנותק
        אורייא מנותק
        אוריי
        כתב ב נערך לאחרונה על ידי
        #3

        @OdedDvir תודה ענקית
        איך אני מקבל את השם של הקובץ ללא הסיומת?

        ניתן לפנות אלי גם ב al0548446188@gmail.com
        ותמיד... אבל תמיד תוכלו לשאול אותי ב :) כאן שאלות באקסל

        OdedDvirO תגובה 1 תגובה אחרונה
        0
        • אורייא אוריי

          @OdedDvir תודה ענקית
          איך אני מקבל את השם של הקובץ ללא הסיומת?

          OdedDvirO מנותק
          OdedDvirO מנותק
          OdedDvir
          כתב ב נערך לאחרונה על ידי OdedDvir
          #4

          @אוריי אמר באיך אני יכול לפצל קובץ וורד גדול לפי מקטעים:

          איך אני מקבל את השם של הקובץ ללא הסיומת?

          נראה לי שהבנתי לאן אתה חותר, הוספתי את השינוי הזה במקור.

          אורייא תגובה 1 תגובה אחרונה
          1
          • OdedDvirO OdedDvir

            @אוריי אמר באיך אני יכול לפצל קובץ וורד גדול לפי מקטעים:

            איך אני מקבל את השם של הקובץ ללא הסיומת?

            נראה לי שהבנתי לאן אתה חותר, הוספתי את השינוי הזה במקור.

            אורייא מנותק
            אורייא מנותק
            אוריי
            כתב ב נערך לאחרונה על ידי אוריי
            #5

            @OdedDvir
            בהתחלה עבד טוב כעת הוא מחזיר שגיאה
            עריכה: השגיאה הזו מעוררת לפי המצב רוח. לפעמים הקוד עובד טוב ולפעמים.....
            d1c0a8a3-8895-431e-afb9-d2bf5240e99b-image.png
            2835b9bc-a482-4c3e-b138-934ae8a8b5a8-image.png

            וכן הוא לא מחזיר לי את שם הקובץ

            ניתן לפנות אלי גם ב al0548446188@gmail.com
            ותמיד... אבל תמיד תוכלו לשאול אותי ב :) כאן שאלות באקסל

            תגובה 1 תגובה אחרונה
            0
            • yossizY מנותק
              yossizY מנותק
              yossiz
              כתב ב נערך לאחרונה על ידי
              #6

              נראה מכאן שאפשר מצב שההעתקה לא נגמרה, וצריך לחכות טיפה לפני הדבקה (או להעביר את התוכן ישירות - לא באמצעות לוח ההדבקה)

              📧 יוסי@מייל.קום | 🌎 בלוג | ☕ קפה

              אורייא 2 תגובות תגובה אחרונה
              3
              • yossizY yossiz

                נראה מכאן שאפשר מצב שההעתקה לא נגמרה, וצריך לחכות טיפה לפני הדבקה (או להעביר את התוכן ישירות - לא באמצעות לוח ההדבקה)

                אורייא מנותק
                אורייא מנותק
                אוריי
                כתב ב נערך לאחרונה על ידי
                #7

                @yossiz אמר באיך אני יכול לפצל קובץ וורד גדול לפי מקטעים:

                (או להעביר את התוכן ישירות - לא באמצעות לוח ההדבקה)

                איך??
                גזירה והדבקה?!! גם זה דרך הלוח??!!

                ניתן לפנות אלי גם ב al0548446188@gmail.com
                ותמיד... אבל תמיד תוכלו לשאול אותי ב :) כאן שאלות באקסל

                תגובה 1 תגובה אחרונה
                0
                • yossizY yossiz

                  נראה מכאן שאפשר מצב שההעתקה לא נגמרה, וצריך לחכות טיפה לפני הדבקה (או להעביר את התוכן ישירות - לא באמצעות לוח ההדבקה)

                  אורייא מנותק
                  אורייא מנותק
                  אוריי
                  כתב ב נערך לאחרונה על ידי אוריי
                  #8

                  @yossiz
                  אכן מבדיקה שלי אם אני מפעיל בריצה איטית על השורה הזו וממתין כמה שניות הקוד עובר בהצלחה ללא שגיאה
                  זאת אומרת שאם אני יכתוב פקודה שימתין כמה שניות זה יעבוד מעולה.
                  עריכה: הוספתי את הפקודה הבאה ועובד מעולה @yossiz @OdedDvir הרבה תודה

                  Dim tmpStart
                  tmpStart = Timer
                  Do
                      DoEvents
                  Loop While (tmpStart + 3) > Timer
                  

                  ניתן לפנות אלי גם ב al0548446188@gmail.com
                  ותמיד... אבל תמיד תוכלו לשאול אותי ב :) כאן שאלות באקסל

                  תגובה 1 תגובה אחרונה
                  0
                  תגובה
                  • תגובה כנושא
                  התחברו כדי לפרסם תגובה
                  • מהישן לחדש
                  • מהחדש לישן
                  • הכי הרבה הצבעות


                  בא תתחבר לדף היומי!
                  • התחברות

                  • אין לך חשבון עדיין? הרשמה

                  • התחברו או הירשמו כדי לחפש.
                  • פוסט ראשון
                    פוסט אחרון
                  0
                  • דף הבית
                  • קטגוריות
                  • פוסטים אחרונים
                  • משתמשים
                  • חיפוש
                  • חוקי הפורום