דילוג לתוכן
  • חוקי הפורום
  • פופולרי
  • לא נפתר
  • משתמשים
  • חיפוש גוגל בפורום
  • צור קשר
עיצובים
  • 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 כותבים 414 צפיות 6 עוקבים
  • מהישן לחדש
  • מהחדש לישן
  • הכי הרבה הצבעות
תגובה
  • תגובה כנושא
התחברו כדי לפרסם תגובה
נושא זה נמחק. רק משתמשים עם הרשאות מתאימות יוכלו לצפות בו.
  • ד דנבו

    @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
                                  • חוקי הפורום
                                  • פופולרי
                                  • לא נפתר
                                  • משתמשים
                                  • חיפוש גוגל בפורום
                                  • צור קשר