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

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

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

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

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

לשכת הרב

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

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

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

ידיד

@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")