דילוג לתוכן
  • חוקי הפורום
  • פופולרי
  • לא נפתר
  • משתמשים
  • חיפוש גוגל בפורום
  • צור קשר
עיצובים
  • Light
  • Cerulean
  • Cosmo
  • Flatly
  • Journal
  • Litera
  • Lumen
  • Lux
  • Materia
  • Minty
  • Morph
  • Pulse
  • Sandstone
  • Simplex
  • Sketchy
  • Spacelab
  • United
  • Yeti
  • Zephyr
  • Dark
  • Cyborg
  • Darkly
  • Quartz
  • Slate
  • Solar
  • Superhero
  • Vapor

  • ברירת מחדל (ללא עיצוב (ברירת מחדל))
  • ללא עיצוב (ברירת מחדל)
כיווץ
מתמחים טופ
  1. דף הבית
  2. תוכנות
  3. תוכנות גרפיקה עימוד ועיצוב
  4. עזרה הדדית - תוכנות גרפיקה ועיצוב
  5. בירור | תוכנה חינמית לעשות סימני חיתוך ושוליים לגלישה

בירור | תוכנה חינמית לעשות סימני חיתוך ושוליים לגלישה

מתוזמן נעוץ נעול הועבר עזרה הדדית - תוכנות גרפיקה ועיצוב
18 פוסטים 7 כותבים 415 צפיות 6 עוקבים
  • מהישן לחדש
  • מהחדש לישן
  • הכי הרבה הצבעות
תגובה
  • תגובה כנושא
התחברו כדי לפרסם תגובה
נושא זה נמחק. רק משתמשים עם הרשאות מתאימות יוכלו לצפות בו.
  • menajemmendelM מנותק
    menajemmendelM מנותק
    menajemmendel
    כתב ב נערך לאחרונה על ידי מגדלים
    #1

    יש איזה תוכנה חינמית שאפשר לעשות סימני חיתוך ושוליים לגלישה?
    תודה

    ד תגובה 1 תגובה אחרונה
    0
    • menajemmendelM menajemmendel

      יש איזה תוכנה חינמית שאפשר לעשות סימני חיתוך ושוליים לגלישה?
      תודה

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

      @menajemmendel
      אולי פפליישר

      menajemmendelM תגובה 1 תגובה אחרונה
      0
      • ד דנבו

        @menajemmendel
        אולי פפליישר

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

        @דנבו אבל פובלישר לא יכול לפתוח PDF

        ד יוסף אלחנןי 2 תגובות תגובה אחרונה
        0
        • menajemmendelM menajemmendel

          @דנבו אבל פובלישר לא יכול לפתוח PDF

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

          @menajemmendel כתב בבירור | תוכנה חינמית לעשות סימני חיתוך ושוליים לגלישה:

          אבל פובלישר לא יכול לפתוח PDF

          בוורד ניתן לעשות:
          205cb502-c96f-492e-be72-cbd14d6daee3-image.png

          עריכה:
          אבל זה לא יוצג בהדפסה.

          יוסף אלחנןי תגובה 1 תגובה אחרונה
          1
          • ד דאנציג

            @menajemmendel כתב בבירור | תוכנה חינמית לעשות סימני חיתוך ושוליים לגלישה:

            אבל פובלישר לא יכול לפתוח PDF

            בוורד ניתן לעשות:
            205cb502-c96f-492e-be72-cbd14d6daee3-image.png

            עריכה:
            אבל זה לא יוצג בהדפסה.

            יוסף אלחנןי מחובר
            יוסף אלחנןי מחובר
            יוסף אלחנן
            מדריכים
            כתב ב נערך לאחרונה על ידי
            #5

            @דאנציג כתב בבירור | תוכנה חינמית לעשות סימני חיתוך ושוליים לגלישה:

            @menajemmendel כתב בבירור | תוכנה חינמית לעשות סימני חיתוך ושוליים לגלישה:

            אבל פובלישר לא יכול לפתוח PDF

            בוורד ניתן לעשות:
            205cb502-c96f-492e-be72-cbd14d6daee3-image.png

            WORD יכול להעלות PDF?

            ד תגובה 1 תגובה אחרונה
            0
            • menajemmendelM menajemmendel

              @דנבו אבל פובלישר לא יכול לפתוח PDF

              יוסף אלחנןי מחובר
              יוסף אלחנןי מחובר
              יוסף אלחנן
              מדריכים
              כתב ב נערך לאחרונה על ידי
              #6

              @menajemmendel כתב בבירור | תוכנה חינמית לעשות סימני חיתוך ושוליים לגלישה:

              @דנבו אבל פובלישר לא יכול לפתוח PDF

              תמיר את זה לJPEG, מסובך?

              תגובה 1 תגובה אחרונה
              0
              • יוסף אלחנןי יוסף אלחנן

                @דאנציג כתב בבירור | תוכנה חינמית לעשות סימני חיתוך ושוליים לגלישה:

                @menajemmendel כתב בבירור | תוכנה חינמית לעשות סימני חיתוך ושוליים לגלישה:

                אבל פובלישר לא יכול לפתוח PDF

                בוורד ניתן לעשות:
                205cb502-c96f-492e-be72-cbd14d6daee3-image.png

                WORD יכול להעלות PDF?

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

                @יוסף-אלחנן כתב בבירור | תוכנה חינמית לעשות סימני חיתוך ושוליים לגלישה:

                WORD יכול להעלות PDF?

                עד כמה שאני מכיר את @menajemmendel הוא משתמש בוורד לעימוד.

                אבל אחר כך ראיתי שסימני החיתוך אינם מודפסים, כך שזה לא יעזור...

                יוסף אלחנןי תגובה 1 תגובה אחרונה
                0
                • ד דאנציג

                  @יוסף-אלחנן כתב בבירור | תוכנה חינמית לעשות סימני חיתוך ושוליים לגלישה:

                  WORD יכול להעלות PDF?

                  עד כמה שאני מכיר את @menajemmendel הוא משתמש בוורד לעימוד.

                  אבל אחר כך ראיתי שסימני החיתוך אינם מודפסים, כך שזה לא יעזור...

                  יוסף אלחנןי מחובר
                  יוסף אלחנןי מחובר
                  יוסף אלחנן
                  מדריכים
                  כתב ב נערך לאחרונה על ידי
                  #8

                  @דאנציג
                  זה לא עונה לי לשאלה, האם WORD יכול להעלות PDF?

                  ד תגובה 1 תגובה אחרונה
                  0
                  • יוסף אלחנןי יוסף אלחנן

                    @דאנציג
                    זה לא עונה לי לשאלה, האם WORD יכול להעלות PDF?

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

                    @יוסף-אלחנן
                    אם זה PDF מתוך וורד, הוא יכול לפתוח אותו, אבל הוא ממיר אותו לקובץ וורד.

                    יוסף אלחנןי תגובה 1 תגובה אחרונה
                    0
                    • ד דאנציג

                      @יוסף-אלחנן
                      אם זה PDF מתוך וורד, הוא יכול לפתוח אותו, אבל הוא ממיר אותו לקובץ וורד.

                      יוסף אלחנןי מחובר
                      יוסף אלחנןי מחובר
                      יוסף אלחנן
                      מדריכים
                      כתב ב נערך לאחרונה על ידי יוסף אלחנן
                      #10

                      @דאנציג כתב בבירור | תוכנה חינמית לעשות סימני חיתוך ושוליים לגלישה:

                      @יוסף-אלחנן
                      אם זה PDF מתוך וורד, הוא יכול לפתוח אותו, אבל הוא ממיר אותו לקובץ וורד.

                      מעניין...
                      אבל הוא תמיד יכול להמיר את הקובץ באתרים חינמיים (שיש מלא, בלע"ה)...

                      menajemmendelM תגובה 1 תגובה אחרונה
                      0
                      • יוסף אלחנןי יוסף אלחנן

                        @דאנציג כתב בבירור | תוכנה חינמית לעשות סימני חיתוך ושוליים לגלישה:

                        @יוסף-אלחנן
                        אם זה PDF מתוך וורד, הוא יכול לפתוח אותו, אבל הוא ממיר אותו לקובץ וורד.

                        מעניין...
                        אבל הוא תמיד יכול להמיר את הקובץ באתרים חינמיים (שיש מלא, בלע"ה)...

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

                        @דאנציג תודה לכל העוזרים והמסעיים, לא מאמין איך דבר כ''כ פשוט יכול להיות כ''כ מסובך
                        למעשה לעת עתה לא מצאתי כלום, אז עד הודעה חדשה, כתבתי מאקרו בוורד שמוסיף סימני חיתוך, (איפה כל אלה שאומרים שאי אפשר לעמד בוורד 😊 😊 😊 )
                        מתחילה הוא שואל כמה מילימרטים להוריד מכל צד
                        דוגמא למה שיצא, אולי @pcinfogmach או @האדם-החושב מעוניינים להוסיפו לתוסף
                        e55e4ced-7551-4420-8072-3e9e69d6a102-image.png
                        אבל זה עוזר לוורד, אני רוצה משהו ישר לתוך הPDF,

                        Sub MACRO2()
                        'Sub סימני_חיתוך()
                        Dim PAGE_WIDTH, PAGE_Height, distance, DISTANCE_IN_MM, LINE_LONG As Double
                        Dim HL1, HL2, HL3, HL4, VL1, VL2, VL3, VL4 As Shape
                        DISTANCE_IN_MM = InputBox("כמה מילימטר")
                        distance = MillimetersToPoints(DISTANCE_IN_MM)
                        LINE_LONG = distance * 0.66
                        PAGE_WIDTH = ActiveDocument.PageSetup.PageWidth
                        PAGE_Height = ActiveDocument.PageSetup.PageHeight
                        
                         
                        Set VL1 = ActiveDocument.Shapes.AddLine(distance, 0, distance, LINE_LONG)
                                With VL1
                                   .RelativeHorizontalPosition = wdRelativeHorizontalPositionPage
                                   .RelativeVerticalPosition = wdRelativeVerticalPositionPage
                                   .Line.ForeColor.RGB = wdColorBlack
                                End With
                        Set VL2 = ActiveDocument.Shapes.AddLine(PAGE_WIDTH - distance, 0, PAGE_WIDTH - distance, LINE_LONG)
                                With VL2
                                   .RelativeHorizontalPosition = wdRelativeHorizontalPositionPage
                                   .RelativeVerticalPosition = wdRelativeVerticalPositionPage
                                    .Line.ForeColor.RGB = wdColorBlack
                                End With
                        Set VL3 = ActiveDocument.Shapes.AddLine(distance, PAGE_Height, distance, PAGE_Height - LINE_LONG)
                                With VL3
                                   .RelativeHorizontalPosition = wdRelativeHorizontalPositionPage
                                   .RelativeVerticalPosition = wdRelativeVerticalPositionPage
                                .Line.ForeColor.RGB = wdColorBlack
                                End With
                        Set VL4 = ActiveDocument.Shapes.AddLine(PAGE_WIDTH - distance, PAGE_Height, PAGE_WIDTH - distance, PAGE_Height - LINE_LONG)
                                With VL4
                                   .RelativeHorizontalPosition = wdRelativeHorizontalPositionPage
                                   .RelativeVerticalPosition = wdRelativeVerticalPositionPage
                                .Line.ForeColor.RGB = wdColorBlack
                                End With
                        '===========================================NOW HORIZONTAL
                          
                        Set HL1 = ActiveDocument.Shapes.AddLine(0, distance, LINE_LONG, distance)
                                With HL1
                                   .RelativeHorizontalPosition = wdRelativeHorizontalPositionPage
                                   .RelativeVerticalPosition = wdRelativeVerticalPositionPage
                                .Line.ForeColor.RGB = wdColorBlack
                                End With
                        Set HL2 = ActiveDocument.Shapes.AddLine(PAGE_WIDTH, distance, PAGE_WIDTH - LINE_LONG, distance)
                                With HL2
                                   .RelativeHorizontalPosition = wdRelativeHorizontalPositionPage
                                   .RelativeVerticalPosition = wdRelativeVerticalPositionPage
                                .Line.ForeColor.RGB = wdColorBlack
                                End With
                        Set HL3 = ActiveDocument.Shapes.AddLine(0, PAGE_Height - distance, LINE_LONG, PAGE_Height - distance)
                                With HL3
                                   .RelativeHorizontalPosition = wdRelativeHorizontalPositionPage
                                   .RelativeVerticalPosition = wdRelativeVerticalPositionPage
                                .Line.ForeColor.RGB = wdColorBlack
                                End With
                        Set HL4 = ActiveDocument.Shapes.AddLine(PAGE_WIDTH, PAGE_Height - distance, PAGE_WIDTH - LINE_LONG, PAGE_Height - distance)
                                With HL4
                                   .RelativeHorizontalPosition = wdRelativeHorizontalPositionPage
                                   .RelativeVerticalPosition = wdRelativeVerticalPositionPage
                                .Line.ForeColor.RGB = wdColorBlack
                                End With
                                
                                
                        End Sub
                        
                        menajemmendelM מ ד ל 4 תגובות תגובה אחרונה
                        5
                        • menajemmendelM menajemmendel

                          @דאנציג תודה לכל העוזרים והמסעיים, לא מאמין איך דבר כ''כ פשוט יכול להיות כ''כ מסובך
                          למעשה לעת עתה לא מצאתי כלום, אז עד הודעה חדשה, כתבתי מאקרו בוורד שמוסיף סימני חיתוך, (איפה כל אלה שאומרים שאי אפשר לעמד בוורד 😊 😊 😊 )
                          מתחילה הוא שואל כמה מילימרטים להוריד מכל צד
                          דוגמא למה שיצא, אולי @pcinfogmach או @האדם-החושב מעוניינים להוסיפו לתוסף
                          e55e4ced-7551-4420-8072-3e9e69d6a102-image.png
                          אבל זה עוזר לוורד, אני רוצה משהו ישר לתוך הPDF,

                          Sub MACRO2()
                          'Sub סימני_חיתוך()
                          Dim PAGE_WIDTH, PAGE_Height, distance, DISTANCE_IN_MM, LINE_LONG As Double
                          Dim HL1, HL2, HL3, HL4, VL1, VL2, VL3, VL4 As Shape
                          DISTANCE_IN_MM = InputBox("כמה מילימטר")
                          distance = MillimetersToPoints(DISTANCE_IN_MM)
                          LINE_LONG = distance * 0.66
                          PAGE_WIDTH = ActiveDocument.PageSetup.PageWidth
                          PAGE_Height = ActiveDocument.PageSetup.PageHeight
                          
                           
                          Set VL1 = ActiveDocument.Shapes.AddLine(distance, 0, distance, LINE_LONG)
                                  With VL1
                                     .RelativeHorizontalPosition = wdRelativeHorizontalPositionPage
                                     .RelativeVerticalPosition = wdRelativeVerticalPositionPage
                                     .Line.ForeColor.RGB = wdColorBlack
                                  End With
                          Set VL2 = ActiveDocument.Shapes.AddLine(PAGE_WIDTH - distance, 0, PAGE_WIDTH - distance, LINE_LONG)
                                  With VL2
                                     .RelativeHorizontalPosition = wdRelativeHorizontalPositionPage
                                     .RelativeVerticalPosition = wdRelativeVerticalPositionPage
                                      .Line.ForeColor.RGB = wdColorBlack
                                  End With
                          Set VL3 = ActiveDocument.Shapes.AddLine(distance, PAGE_Height, distance, PAGE_Height - LINE_LONG)
                                  With VL3
                                     .RelativeHorizontalPosition = wdRelativeHorizontalPositionPage
                                     .RelativeVerticalPosition = wdRelativeVerticalPositionPage
                                  .Line.ForeColor.RGB = wdColorBlack
                                  End With
                          Set VL4 = ActiveDocument.Shapes.AddLine(PAGE_WIDTH - distance, PAGE_Height, PAGE_WIDTH - distance, PAGE_Height - LINE_LONG)
                                  With VL4
                                     .RelativeHorizontalPosition = wdRelativeHorizontalPositionPage
                                     .RelativeVerticalPosition = wdRelativeVerticalPositionPage
                                  .Line.ForeColor.RGB = wdColorBlack
                                  End With
                          '===========================================NOW HORIZONTAL
                            
                          Set HL1 = ActiveDocument.Shapes.AddLine(0, distance, LINE_LONG, distance)
                                  With HL1
                                     .RelativeHorizontalPosition = wdRelativeHorizontalPositionPage
                                     .RelativeVerticalPosition = wdRelativeVerticalPositionPage
                                  .Line.ForeColor.RGB = wdColorBlack
                                  End With
                          Set HL2 = ActiveDocument.Shapes.AddLine(PAGE_WIDTH, distance, PAGE_WIDTH - LINE_LONG, distance)
                                  With HL2
                                     .RelativeHorizontalPosition = wdRelativeHorizontalPositionPage
                                     .RelativeVerticalPosition = wdRelativeVerticalPositionPage
                                  .Line.ForeColor.RGB = wdColorBlack
                                  End With
                          Set HL3 = ActiveDocument.Shapes.AddLine(0, PAGE_Height - distance, LINE_LONG, PAGE_Height - distance)
                                  With HL3
                                     .RelativeHorizontalPosition = wdRelativeHorizontalPositionPage
                                     .RelativeVerticalPosition = wdRelativeVerticalPositionPage
                                  .Line.ForeColor.RGB = wdColorBlack
                                  End With
                          Set HL4 = ActiveDocument.Shapes.AddLine(PAGE_WIDTH, PAGE_Height - distance, PAGE_WIDTH - LINE_LONG, PAGE_Height - distance)
                                  With HL4
                                     .RelativeHorizontalPosition = wdRelativeHorizontalPositionPage
                                     .RelativeVerticalPosition = wdRelativeVerticalPositionPage
                                  .Line.ForeColor.RGB = wdColorBlack
                                  End With
                                  
                                  
                          End Sub
                          
                          menajemmendelM מנותק
                          menajemmendelM מנותק
                          menajemmendel
                          כתב ב נערך לאחרונה על ידי
                          #12

                          @menajemmendel
                          מישהו יודע איך אפשר לעשות את זה בפייתון? אולי @sivan22 או מישהוא אחר

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

                            @דאנציג תודה לכל העוזרים והמסעיים, לא מאמין איך דבר כ''כ פשוט יכול להיות כ''כ מסובך
                            למעשה לעת עתה לא מצאתי כלום, אז עד הודעה חדשה, כתבתי מאקרו בוורד שמוסיף סימני חיתוך, (איפה כל אלה שאומרים שאי אפשר לעמד בוורד 😊 😊 😊 )
                            מתחילה הוא שואל כמה מילימרטים להוריד מכל צד
                            דוגמא למה שיצא, אולי @pcinfogmach או @האדם-החושב מעוניינים להוסיפו לתוסף
                            e55e4ced-7551-4420-8072-3e9e69d6a102-image.png
                            אבל זה עוזר לוורד, אני רוצה משהו ישר לתוך הPDF,

                            Sub MACRO2()
                            'Sub סימני_חיתוך()
                            Dim PAGE_WIDTH, PAGE_Height, distance, DISTANCE_IN_MM, LINE_LONG As Double
                            Dim HL1, HL2, HL3, HL4, VL1, VL2, VL3, VL4 As Shape
                            DISTANCE_IN_MM = InputBox("כמה מילימטר")
                            distance = MillimetersToPoints(DISTANCE_IN_MM)
                            LINE_LONG = distance * 0.66
                            PAGE_WIDTH = ActiveDocument.PageSetup.PageWidth
                            PAGE_Height = ActiveDocument.PageSetup.PageHeight
                            
                             
                            Set VL1 = ActiveDocument.Shapes.AddLine(distance, 0, distance, LINE_LONG)
                                    With VL1
                                       .RelativeHorizontalPosition = wdRelativeHorizontalPositionPage
                                       .RelativeVerticalPosition = wdRelativeVerticalPositionPage
                                       .Line.ForeColor.RGB = wdColorBlack
                                    End With
                            Set VL2 = ActiveDocument.Shapes.AddLine(PAGE_WIDTH - distance, 0, PAGE_WIDTH - distance, LINE_LONG)
                                    With VL2
                                       .RelativeHorizontalPosition = wdRelativeHorizontalPositionPage
                                       .RelativeVerticalPosition = wdRelativeVerticalPositionPage
                                        .Line.ForeColor.RGB = wdColorBlack
                                    End With
                            Set VL3 = ActiveDocument.Shapes.AddLine(distance, PAGE_Height, distance, PAGE_Height - LINE_LONG)
                                    With VL3
                                       .RelativeHorizontalPosition = wdRelativeHorizontalPositionPage
                                       .RelativeVerticalPosition = wdRelativeVerticalPositionPage
                                    .Line.ForeColor.RGB = wdColorBlack
                                    End With
                            Set VL4 = ActiveDocument.Shapes.AddLine(PAGE_WIDTH - distance, PAGE_Height, PAGE_WIDTH - distance, PAGE_Height - LINE_LONG)
                                    With VL4
                                       .RelativeHorizontalPosition = wdRelativeHorizontalPositionPage
                                       .RelativeVerticalPosition = wdRelativeVerticalPositionPage
                                    .Line.ForeColor.RGB = wdColorBlack
                                    End With
                            '===========================================NOW HORIZONTAL
                              
                            Set HL1 = ActiveDocument.Shapes.AddLine(0, distance, LINE_LONG, distance)
                                    With HL1
                                       .RelativeHorizontalPosition = wdRelativeHorizontalPositionPage
                                       .RelativeVerticalPosition = wdRelativeVerticalPositionPage
                                    .Line.ForeColor.RGB = wdColorBlack
                                    End With
                            Set HL2 = ActiveDocument.Shapes.AddLine(PAGE_WIDTH, distance, PAGE_WIDTH - LINE_LONG, distance)
                                    With HL2
                                       .RelativeHorizontalPosition = wdRelativeHorizontalPositionPage
                                       .RelativeVerticalPosition = wdRelativeVerticalPositionPage
                                    .Line.ForeColor.RGB = wdColorBlack
                                    End With
                            Set HL3 = ActiveDocument.Shapes.AddLine(0, PAGE_Height - distance, LINE_LONG, PAGE_Height - distance)
                                    With HL3
                                       .RelativeHorizontalPosition = wdRelativeHorizontalPositionPage
                                       .RelativeVerticalPosition = wdRelativeVerticalPositionPage
                                    .Line.ForeColor.RGB = wdColorBlack
                                    End With
                            Set HL4 = ActiveDocument.Shapes.AddLine(PAGE_WIDTH, PAGE_Height - distance, PAGE_WIDTH - LINE_LONG, PAGE_Height - distance)
                                    With HL4
                                       .RelativeHorizontalPosition = wdRelativeHorizontalPositionPage
                                       .RelativeVerticalPosition = wdRelativeVerticalPositionPage
                                    .Line.ForeColor.RGB = wdColorBlack
                                    End With
                                    
                                    
                            End Sub
                            
                            מ מנותק
                            מ מנותק
                            מניין
                            כתב ב נערך לאחרונה על ידי מניין
                            #13

                            @menajemmendel כתב בבירור | תוכנה חינמית לעשות סימני חיתוך ושוליים לגלישה:

                            @דאנציג תודה לכל העוזרים והמסעיים, לא מאמין איך דבר כ''כ פשוט יכול להיות כ''כ מסובך
                            למעשה לעת עתה לא מצאתי כלום, אז עד הודעה חדשה, כתבתי מאקרו בוורד שמוסיף סימני חיתוך, (איפה כל אלה שאומרים שאי אפשר לעמד בוורד 😊 😊 😊 )
                            מתחילה הוא שואל כמה מילימרטים להוריד מכל צד
                            דוגמא למה שיצא, אולי @pcinfogmach או @האדם-החושב מעוניינים להוסיפו לתוסף

                            איך עושים שימשיך לכל המסמך [כמובן עם שאלה אם רוצים להמשיך]?.

                            תגובה 1 תגובה אחרונה
                            0
                            • menajemmendelM menajemmendel

                              @דאנציג תודה לכל העוזרים והמסעיים, לא מאמין איך דבר כ''כ פשוט יכול להיות כ''כ מסובך
                              למעשה לעת עתה לא מצאתי כלום, אז עד הודעה חדשה, כתבתי מאקרו בוורד שמוסיף סימני חיתוך, (איפה כל אלה שאומרים שאי אפשר לעמד בוורד 😊 😊 😊 )
                              מתחילה הוא שואל כמה מילימרטים להוריד מכל צד
                              דוגמא למה שיצא, אולי @pcinfogmach או @האדם-החושב מעוניינים להוסיפו לתוסף
                              e55e4ced-7551-4420-8072-3e9e69d6a102-image.png
                              אבל זה עוזר לוורד, אני רוצה משהו ישר לתוך הPDF,

                              Sub MACRO2()
                              'Sub סימני_חיתוך()
                              Dim PAGE_WIDTH, PAGE_Height, distance, DISTANCE_IN_MM, LINE_LONG As Double
                              Dim HL1, HL2, HL3, HL4, VL1, VL2, VL3, VL4 As Shape
                              DISTANCE_IN_MM = InputBox("כמה מילימטר")
                              distance = MillimetersToPoints(DISTANCE_IN_MM)
                              LINE_LONG = distance * 0.66
                              PAGE_WIDTH = ActiveDocument.PageSetup.PageWidth
                              PAGE_Height = ActiveDocument.PageSetup.PageHeight
                              
                               
                              Set VL1 = ActiveDocument.Shapes.AddLine(distance, 0, distance, LINE_LONG)
                                      With VL1
                                         .RelativeHorizontalPosition = wdRelativeHorizontalPositionPage
                                         .RelativeVerticalPosition = wdRelativeVerticalPositionPage
                                         .Line.ForeColor.RGB = wdColorBlack
                                      End With
                              Set VL2 = ActiveDocument.Shapes.AddLine(PAGE_WIDTH - distance, 0, PAGE_WIDTH - distance, LINE_LONG)
                                      With VL2
                                         .RelativeHorizontalPosition = wdRelativeHorizontalPositionPage
                                         .RelativeVerticalPosition = wdRelativeVerticalPositionPage
                                          .Line.ForeColor.RGB = wdColorBlack
                                      End With
                              Set VL3 = ActiveDocument.Shapes.AddLine(distance, PAGE_Height, distance, PAGE_Height - LINE_LONG)
                                      With VL3
                                         .RelativeHorizontalPosition = wdRelativeHorizontalPositionPage
                                         .RelativeVerticalPosition = wdRelativeVerticalPositionPage
                                      .Line.ForeColor.RGB = wdColorBlack
                                      End With
                              Set VL4 = ActiveDocument.Shapes.AddLine(PAGE_WIDTH - distance, PAGE_Height, PAGE_WIDTH - distance, PAGE_Height - LINE_LONG)
                                      With VL4
                                         .RelativeHorizontalPosition = wdRelativeHorizontalPositionPage
                                         .RelativeVerticalPosition = wdRelativeVerticalPositionPage
                                      .Line.ForeColor.RGB = wdColorBlack
                                      End With
                              '===========================================NOW HORIZONTAL
                                
                              Set HL1 = ActiveDocument.Shapes.AddLine(0, distance, LINE_LONG, distance)
                                      With HL1
                                         .RelativeHorizontalPosition = wdRelativeHorizontalPositionPage
                                         .RelativeVerticalPosition = wdRelativeVerticalPositionPage
                                      .Line.ForeColor.RGB = wdColorBlack
                                      End With
                              Set HL2 = ActiveDocument.Shapes.AddLine(PAGE_WIDTH, distance, PAGE_WIDTH - LINE_LONG, distance)
                                      With HL2
                                         .RelativeHorizontalPosition = wdRelativeHorizontalPositionPage
                                         .RelativeVerticalPosition = wdRelativeVerticalPositionPage
                                      .Line.ForeColor.RGB = wdColorBlack
                                      End With
                              Set HL3 = ActiveDocument.Shapes.AddLine(0, PAGE_Height - distance, LINE_LONG, PAGE_Height - distance)
                                      With HL3
                                         .RelativeHorizontalPosition = wdRelativeHorizontalPositionPage
                                         .RelativeVerticalPosition = wdRelativeVerticalPositionPage
                                      .Line.ForeColor.RGB = wdColorBlack
                                      End With
                              Set HL4 = ActiveDocument.Shapes.AddLine(PAGE_WIDTH, PAGE_Height - distance, PAGE_WIDTH - LINE_LONG, PAGE_Height - distance)
                                      With HL4
                                         .RelativeHorizontalPosition = wdRelativeHorizontalPositionPage
                                         .RelativeVerticalPosition = wdRelativeVerticalPositionPage
                                      .Line.ForeColor.RGB = wdColorBlack
                                      End With
                                      
                                      
                              End Sub
                              
                              ד מנותק
                              ד מנותק
                              דאנציג
                              כתב ב נערך לאחרונה על ידי
                              #14

                              @menajemmendel כתב בבירור | תוכנה חינמית לעשות סימני חיתוך ושוליים לגלישה:

                              אבל זה עוזר לוורד, אני רוצה משהו ישר לתוך הPDF,

                              אפשר באקרובט:
                              כלים / הפקת הדפסה / הוספת סימני מדפסת.
                              קודם כל, להגדיר ב'קביעת תיבות עמוד' את ה'קיטום' הרצוי מכל צדדי הדף
                              אחר כך מוסיפים סימן V ב'סימני קיטם'.

                              קרדיט

                              תגובה 1 תגובה אחרונה
                              1
                              • menajemmendelM menajemmendel

                                @דאנציג תודה לכל העוזרים והמסעיים, לא מאמין איך דבר כ''כ פשוט יכול להיות כ''כ מסובך
                                למעשה לעת עתה לא מצאתי כלום, אז עד הודעה חדשה, כתבתי מאקרו בוורד שמוסיף סימני חיתוך, (איפה כל אלה שאומרים שאי אפשר לעמד בוורד 😊 😊 😊 )
                                מתחילה הוא שואל כמה מילימרטים להוריד מכל צד
                                דוגמא למה שיצא, אולי @pcinfogmach או @האדם-החושב מעוניינים להוסיפו לתוסף
                                e55e4ced-7551-4420-8072-3e9e69d6a102-image.png
                                אבל זה עוזר לוורד, אני רוצה משהו ישר לתוך הPDF,

                                Sub MACRO2()
                                'Sub סימני_חיתוך()
                                Dim PAGE_WIDTH, PAGE_Height, distance, DISTANCE_IN_MM, LINE_LONG As Double
                                Dim HL1, HL2, HL3, HL4, VL1, VL2, VL3, VL4 As Shape
                                DISTANCE_IN_MM = InputBox("כמה מילימטר")
                                distance = MillimetersToPoints(DISTANCE_IN_MM)
                                LINE_LONG = distance * 0.66
                                PAGE_WIDTH = ActiveDocument.PageSetup.PageWidth
                                PAGE_Height = ActiveDocument.PageSetup.PageHeight
                                
                                 
                                Set VL1 = ActiveDocument.Shapes.AddLine(distance, 0, distance, LINE_LONG)
                                        With VL1
                                           .RelativeHorizontalPosition = wdRelativeHorizontalPositionPage
                                           .RelativeVerticalPosition = wdRelativeVerticalPositionPage
                                           .Line.ForeColor.RGB = wdColorBlack
                                        End With
                                Set VL2 = ActiveDocument.Shapes.AddLine(PAGE_WIDTH - distance, 0, PAGE_WIDTH - distance, LINE_LONG)
                                        With VL2
                                           .RelativeHorizontalPosition = wdRelativeHorizontalPositionPage
                                           .RelativeVerticalPosition = wdRelativeVerticalPositionPage
                                            .Line.ForeColor.RGB = wdColorBlack
                                        End With
                                Set VL3 = ActiveDocument.Shapes.AddLine(distance, PAGE_Height, distance, PAGE_Height - LINE_LONG)
                                        With VL3
                                           .RelativeHorizontalPosition = wdRelativeHorizontalPositionPage
                                           .RelativeVerticalPosition = wdRelativeVerticalPositionPage
                                        .Line.ForeColor.RGB = wdColorBlack
                                        End With
                                Set VL4 = ActiveDocument.Shapes.AddLine(PAGE_WIDTH - distance, PAGE_Height, PAGE_WIDTH - distance, PAGE_Height - LINE_LONG)
                                        With VL4
                                           .RelativeHorizontalPosition = wdRelativeHorizontalPositionPage
                                           .RelativeVerticalPosition = wdRelativeVerticalPositionPage
                                        .Line.ForeColor.RGB = wdColorBlack
                                        End With
                                '===========================================NOW HORIZONTAL
                                  
                                Set HL1 = ActiveDocument.Shapes.AddLine(0, distance, LINE_LONG, distance)
                                        With HL1
                                           .RelativeHorizontalPosition = wdRelativeHorizontalPositionPage
                                           .RelativeVerticalPosition = wdRelativeVerticalPositionPage
                                        .Line.ForeColor.RGB = wdColorBlack
                                        End With
                                Set HL2 = ActiveDocument.Shapes.AddLine(PAGE_WIDTH, distance, PAGE_WIDTH - LINE_LONG, distance)
                                        With HL2
                                           .RelativeHorizontalPosition = wdRelativeHorizontalPositionPage
                                           .RelativeVerticalPosition = wdRelativeVerticalPositionPage
                                        .Line.ForeColor.RGB = wdColorBlack
                                        End With
                                Set HL3 = ActiveDocument.Shapes.AddLine(0, PAGE_Height - distance, LINE_LONG, PAGE_Height - distance)
                                        With HL3
                                           .RelativeHorizontalPosition = wdRelativeHorizontalPositionPage
                                           .RelativeVerticalPosition = wdRelativeVerticalPositionPage
                                        .Line.ForeColor.RGB = wdColorBlack
                                        End With
                                Set HL4 = ActiveDocument.Shapes.AddLine(PAGE_WIDTH, PAGE_Height - distance, PAGE_WIDTH - LINE_LONG, PAGE_Height - distance)
                                        With HL4
                                           .RelativeHorizontalPosition = wdRelativeHorizontalPositionPage
                                           .RelativeVerticalPosition = wdRelativeVerticalPositionPage
                                        .Line.ForeColor.RGB = wdColorBlack
                                        End With
                                        
                                        
                                End Sub
                                
                                ל מנותק
                                ל מנותק
                                לשכת הרב
                                כתב נערך לאחרונה על ידי לשכת הרב
                                #15

                                @menajemmendel
                                א. יש אופציה לאחר ההתקנה, להסיר את סימני החיתוך (בוורד) במידה ולא רוצים שזה יופיע?
                                ב. תוכל להביא את המאקרו בתבנית להורדה?

                                menajemmendelM ל 2 תגובות תגובה אחרונה
                                0
                                • ל לשכת הרב

                                  @menajemmendel
                                  א. יש אופציה לאחר ההתקנה, להסיר את סימני החיתוך (בוורד) במידה ולא רוצים שזה יופיע?
                                  ב. תוכל להביא את המאקרו בתבנית להורדה?

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

                                  @לשכת-הרב כתב בבירור | תוכנה חינמית לעשות סימני חיתוך ושוליים לגלישה:

                                  א. יש אופציה לאחר ההתקנה, להסיר את סימני החיתוך (בוורד) במידה ולא רוצים שזה יופיע?

                                  מה אתה מתכוון ''התקנה''? הוא פשוט מוסיף קווים, בקובץ, אתה יכול לבחור אותם ולמחוק אותם כמו שאתה מוחק כל ציור בוורד

                                  תגובה 1 תגובה אחרונה
                                  1
                                  • ל לשכת הרב

                                    @menajemmendel
                                    א. יש אופציה לאחר ההתקנה, להסיר את סימני החיתוך (בוורד) במידה ולא רוצים שזה יופיע?
                                    ב. תוכל להביא את המאקרו בתבנית להורדה?

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

                                    @לשכת-הרב כתב בבירור | תוכנה חינמית לעשות סימני חיתוך ושוליים לגלישה:

                                    ב. תוכל להביא את המאקרו בתבנית להורדה?

                                    ?
                                    אני לא יודע איך מתקינים ככה במאקרו, בקוד שהבאת

                                    תגובה 1 תגובה אחרונה
                                    0
                                    • menajemmendelM menajemmendel

                                      @menajemmendel
                                      מישהו יודע איך אפשר לעשות את זה בפייתון? אולי @sivan22 או מישהוא אחר

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

                                      @menajemmendel כתב בבירור | תוכנה חינמית לעשות סימני חיתוך ושוליים לגלישה:

                                      מישהו יודע איך אפשר לעשות את זה בפייתון?

                                      קיבלתי מגולם - לא בדקתי

                                      from docx import Document
                                      from docx.shared import Inches, Pt

                                      יצירת מסמך וורד חדש

                                      doc = Document()

                                      הגדרות עמוד: שוליים רחבים לסימני חיתוך

                                      section = doc.sections[0]
                                      section.page_height = Inches(11.69) # A4
                                      section.page_width = Inches(8.27)
                                      section.top_margin = Inches(1)
                                      section.bottom_margin = Inches(1)
                                      section.left_margin = Inches(1)
                                      section.right_margin = Inches(1)

                                      כותרת עליונה עם "סימני חיתוך"

                                      header = section.header
                                      table = header.add_table(rows=1, cols=1)
                                      cell = table.cell(0, 0)
                                      paragraph = cell.paragraphs[0]
                                      run = paragraph.add_run()
                                      run.text = "[+] [+]" # מדמה סימנים בפינות
                                      run.font.size = Pt(8)
                                      paragraph.alignment = 1 # מרכז

                                      כותרת תחתונה עם "סימני חיתוך"

                                      footer = section.footer
                                      table_f = footer.add_table(rows=1, cols=1)
                                      cell_f = table_f.cell(0, 0)
                                      paragraph_f = cell_f.paragraphs[0]
                                      run_f = paragraph_f.add_run()
                                      run_f.text = "[+] [+]"
                                      run_f.font.size = Pt(8)
                                      paragraph_f.alignment = 1

                                      הוספת טקסט לדוגמה

                                      doc.add_paragraph("דוגמה למסמך עם סימני חיתוך שיופיעו בכל עמוד.")

                                      שמירת המסמך

                                      doc.save("תבנית_וורד_עם_סימני_חיתוך.docx")

                                      תגובה 1 תגובה אחרונה
                                      0

                                      • התחברות

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

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