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