סימני חיתוך

[haozar]

האם יש אפשרות בוורד להוסיף סימני חיתוך

 

[פרסומון]

ישנם גופנים שיש להם את הסימון הזה (אם הבנתי נכון את כוונתך).

 

[haozar]

לא גופנים אלא בדף עצמו

 

[פרסומון]

מה זה סימני חיתוך? משהו כמו בקובץ המצורף?

 

[אלחנן אריאל]

כוונתו לפקודה אחת, שתסמן קוים לגבולות העמוד.

 

[פרסומון]

טוב, לא זכיתי להבין...

 

[אלחנן אריאל]

המדובר על הסימנים שנידונו באשכולות הבאים:
http://www.prog.co.il/showthread.php?t=79651&highlight=סימני+חיתוך
http://www.prog.co.il/showthread.php?t=88062&highlight=סימני+חיתוך
http://www.prog.co.il/showthread.php?t=70812&highlight=סימני+חיתוך
http://www.prog.co.il/showthread.php?t=68647&highlight=סימני+חיתוך
http://www.prog.co.il/showthread.php?t=68882&highlight=סימני+חיתוך

ושאלתו אם יש אפשרות להוסיף אותם בוורד.

 

[haozar]

כוונתי לדוגמא המצורפת

 

[אברהם]

אין אפשרות כזו, מלבד הוספה ידנית בכותרת עליונה/תחתונה
בתכנת Microsoft Publisher יש אפשרות לסימני חיתוך ולעבודה ב CMYK

 

[צורת הדף]

מאקרו להוסיף סימני חיתוך לשוליים בוורד. מתוך ספר Word Hacks של o'reilly.
הסימנים מופיעים רק בהדפסה למדפסת PostScript או בפידיאף.

Sub PlaceCropmarks()
Dim sngLeft As Single
Dim sngRight As Single
Dim sngTop As Single
Dim sngBottom As Single
Dim sPrintField As String
Dim rng As Range
With ActiveDocument.PageSetup
    sngLeft = .LeftMargin
    sngRight = .RightMargin
    sngTop = .TopMargin
    sngBottom = .BottomMargin
End With
' Include initial field switches and PostScript instructions
sPrintField = " \p page " & chr$(34) & " .5 setlinewidth "
' Get correct coordinates using the four functions
sPrintField = sPrintField & BottomLeft(sngLeft, sngBottom)
sPrintField = sPrintField & TopLeft(sngLeft, sngTop)
sPrintField = sPrintField & TopRight(sngRight, sngTop)
sPrintField = sPrintField & BottomRight(sngRight, sngBottom)
' Add final PostScript instruction and close the field instruction
sPrintField = sPrintField & "stroke" & chr$(34)
Set rng = Selection.Sections.First.Headers(wdHeaderFooterPrimary).Range
rng.Collapse wdCollapseStart
rng.Fields.Add Range:=rng, _
    Type:=wdFieldPrint, _
    Text:=sPrintField, _
    PreserveFormatting:=False
End Sub
Function BottomLeft(sngLeft As Single, sngBottom As Single) As String
Dim sReturn As String
sReturn = sngLeft & " " & sngBottom - 2 & " moveto "
sReturn = sReturn & sngLeft & " " & (sngBottom - 2) - 36 & " lineto "
sReturn = sReturn & sngLeft - 2 & " " & sngBottom & " moveto "
sReturn = sReturn & (sngLeft - 2) - 36 & " " & sngBottom & " lineto "
BottomLeft = sReturn
End Function
Function TopLeft(sngLeft As Single, sngTop As Single) As String
Dim sReturn As String
sReturn = sngLeft & " " & (792 - sngTop) + 2 & " moveto "
sReturn = sReturn & sngLeft & " " & (792 - (sngTop + 2)) + 36 & " lineto "
sReturn = sReturn & sngLeft - 2 & " " & 792 - sngTop & " moveto "
sReturn = sReturn & (sngLeft - 2) - 36 & " " & 792 - sngTop & " lineto "
TopLeft = sReturn
End Function
Function TopRight(sngRight As Single, sngTop As Single) As String
Dim sReturn As String
sReturn = 612 - sngRight & " " & (792 - sngTop) + 2 & " moveto "
sReturn = sReturn & 612 - sngRight & " " & (792 - (sngTop + 2)) + 36 & " lineto "
sReturn = sReturn & (612 - sngRight) + 2 & " " & 792 - sngTop & " moveto "
sReturn = sReturn & ((612 - sngRight) + 2) + 36 & " " & 792 - sngTop & " lineto "
TopRight = sReturn
End Function
Function BottomRight(sngRight As Single, sngBottom As Single) As String
Dim sReturn As String
sReturn = 612 - sngRight & " " & sngBottom - 2 & " moveto "
sReturn = sReturn & 612 - sngRight & " " & (sngBottom - 2) - 36 & " lineto "
sReturn = sReturn & (612 - sngRight) + 2 & " " & sngBottom & " moveto "
sReturn = sReturn & ((612 - sngRight) + 2) + 36 & " " & sngBottom & " lineto "
BottomRight = sReturn
End Function

 

[אלחנן אריאל]

מאקרו להוסיף סימני חיתוך לשוליים בוורד. מתוך ספר Word Hacks של o'reilly.
הסימנים מופיעים רק בהדפסה למדפסת PostScript או בפידיאף.

Sub PlaceCropmarks()
Dim sngLeft As Single
Dim sngRight As Single
Dim sngTop As Single
Dim sngBottom As Single
Dim sPrintField As String
Dim rng As Range
With ActiveDocument.PageSetup
    sngLeft = .LeftMargin
    sngRight = .RightMargin
    sngTop = .TopMargin
    sngBottom = .BottomMargin
End With
' Include initial field switches and PostScript instructions
sPrintField = " \p page " & chr$(34) & " .5 setlinewidth "
' Get correct coordinates using the four functions
sPrintField = sPrintField & BottomLeft(sngLeft, sngBottom)
sPrintField = sPrintField & TopLeft(sngLeft, sngTop)
sPrintField = sPrintField & TopRight(sngRight, sngTop)
sPrintField = sPrintField & BottomRight(sngRight, sngBottom)
' Add final PostScript instruction and close the field instruction
sPrintField = sPrintField & "stroke" & chr$(34)
Set rng = Selection.Sections.First.Headers(wdHeaderFooterPrimary).Range
rng.Collapse wdCollapseStart
rng.Fields.Add Range:=rng, _
    Type:=wdFieldPrint, _
    Text:=sPrintField, _
    PreserveFormatting:=False
End Sub
Function BottomLeft(sngLeft As Single, sngBottom As Single) As String
Dim sReturn As String
sReturn = sngLeft & " " & sngBottom - 2 & " moveto "
sReturn = sReturn & sngLeft & " " & (sngBottom - 2) - 36 & " lineto "
sReturn = sReturn & sngLeft - 2 & " " & sngBottom & " moveto "
sReturn = sReturn & (sngLeft - 2) - 36 & " " & sngBottom & " lineto "
BottomLeft = sReturn
End Function
Function TopLeft(sngLeft As Single, sngTop As Single) As String
Dim sReturn As String
sReturn = sngLeft & " " & (792 - sngTop) + 2 & " moveto "
sReturn = sReturn & sngLeft & " " & (792 - (sngTop + 2)) + 36 & " lineto "
sReturn = sReturn & sngLeft - 2 & " " & 792 - sngTop & " moveto "
sReturn = sReturn & (sngLeft - 2) - 36 & " " & 792 - sngTop & " lineto "
TopLeft = sReturn
End Function
Function TopRight(sngRight As Single, sngTop As Single) As String
Dim sReturn As String
sReturn = 612 - sngRight & " " & (792 - sngTop) + 2 & " moveto "
sReturn = sReturn & 612 - sngRight & " " & (792 - (sngTop + 2)) + 36 & " lineto "
sReturn = sReturn & (612 - sngRight) + 2 & " " & 792 - sngTop & " moveto "
sReturn = sReturn & ((612 - sngRight) + 2) + 36 & " " & 792 - sngTop & " lineto "
TopRight = sReturn
End Function
Function BottomRight(sngRight As Single, sngBottom As Single) As String
Dim sReturn As String
sReturn = 612 - sngRight & " " & sngBottom - 2 & " moveto "
sReturn = sReturn & 612 - sngRight & " " & (sngBottom - 2) - 36 & " lineto "
sReturn = sReturn & (612 - sngRight) + 2 & " " & sngBottom & " moveto "
sReturn = sReturn & ((612 - sngRight) + 2) + 36 & " " & sngBottom & " lineto "
BottomRight = sReturn
End Function

ר' קרש היקר, ראשית כל יישר כחך!

המאקרו הזה יוסיף סימני חיתוך לפי גודל שטח העמוד ללא השוליים. פירוש, שאם נחתוך לפי סימני החיתוך, יהיה בידינו מסמך ללא שוליים.

שאלתי ובקשתי, האם אפשר להוסיף סימני חיתוך לגודל העמוד בכללו, כולל השוליים. פירוש, שאם נחתוך לפי הסימנים, יהיה בידינו מסמך עם שוליים.

תודה רבה מאוד!

נ.ב. יש להריץ את המאקרו לאחר גודל השוליים הרצוי. לפי שאם נשנה את הגדרת השוליים לאחר הרצת המאקרו, סימני החיתוך יצאו לפי ההגדרה הישנה.

 

[Yisrael]

לא רואה כלום ב-PDF...

 

[אלחנן אריאל]

לא רואה כלום ב-PDF...

אני כן רואה!

 

[Yisrael]

תוכל להעלות לכאן קובץ PDF עם הסימונים שאתה רואה?

 

[אלחנן אריאל]

בבקשה!

 

[Yisrael]

מעניין למה כשאני מפעיל את המאקרו אני לא רואה את זה...

 

[Yisrael]

בבקשה!

תוכל להעלות את קובץ הוורד אחרי הפעלת המאקרו (לפני הייצוא לPDF)?

 

[אלחנן אריאל]

בבקשה!

 

[Yisrael]

עדיין לא רואה כלום אחרי הייצוא...
יכול להיות שזה בגלל שאני שומר ב-PDF ע"י הפונקציה המובנית בוורד?

 

[אלחנן אריאל]

עדיין לא רואה כלום אחרי הייצוא...
יכול להיות שזה בגלל שאני שומר ב-PDF ע"י הפונקציה המובנית בוורד?

לא יודע! אני הדפסתי במדפסת של אדובי.