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

[יוסף אלחנן]

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

[דאנציג]

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

[יוסף אלחנן]

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

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

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

[menajemmendel]

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

אבל זה עוזר לוורד, אני רוצה משהו ישר לתוך ה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

[menajemmendel]

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

[מניין]

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

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

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

[דאנציג]

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

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

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

קרדיט

[לשכת הרב]

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

[menajemmendel]

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

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

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

[לשכת הרב]

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

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

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