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

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