להורדה | "שולחן העורך" - תוסף עימוד חדש לוורד!!!

[לשכת הרב]

@יאיר-הבהיר כתב בלהורדה | "שולחן העורך" - תוסף עימוד חדש לוורד!!!:

@לשכת-הרב מעמיד את הסמן ביניהם, ואז בוחר מעבר מקטע רציף:

[רק שאז תצטרך לקשר את הכותרות העליונות שבמקטע החדש למקטע הקודם: ]

תודה רבה.
אין אפשרות יותר פשוטה, פשוט להגדיר את כל העמוד כטור אחד, ורק את הטקסט שאני רוצה שיהיה 2 טורים, אני מסמן אותו ועושה אותו 2 טורים?
וככה זה גם לא יפריע לכותרות

[יאיר הבהיר]

@לשכת-הרב אתה יכול לעשות את זה עם סימון, אבל זה פשוט יצור אוטומטית מעבר מקטע באמצע העמוד, כך שזה לא יעזור לכותרות.

[pcinfogmach]

@יאיר-הבהיר
רציתי להציע בנעימות:
אולי תעברו לשרשור אחר כבר נהיה ממש לא קשור לתוסף
תודה

[ע"ה דכו"ע]

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

Sub GibuyLifneyPeula(Peula As String)
    Dim filePath As String
    Dim fileName As String
    Dim fileName1, fileName2 As String
    Dim timestamp As String
    Dim newFileName As String
    Dim userResponse As VbMsgBoxResult
    Dim originalDoc As Document
    
    filePath = ActiveDocument.Path

    If filePath = "" Then
    userResponse = MsgBox("שים לב! הקובץ עדיין לא נשמר" & vbLf _
    & "מומלץ לשמור את הקובץ על מנת שלא לאבד את העבודה במקרה של קריסת התוכנה" & vbLf _
    & "לאחר שמירת הקובץ תתאפשר גם שמירת גיבוי לביטול השינויים במסמך." & vbLf _
    & "לשמירה וגיבוי לחץ כן להמשך ללא שמירה לחץ לא", vbYesNo + vbQuestion, "שמירה")
        If userResponse = vbYes Then
            ActiveDocument.Save
        Else
            Exit Sub
        End If
    ElseIf ActiveDocument.Saved = False Then
    userResponse = MsgBox("שים לב! ישנם שינויים שלא נשמרו" & vbLf _
    & "מומלץ לשמור את הקובץ על מנת שלא לאבד את העבודה במקרה של קריסת התוכנה" & vbLf _
    & "לאחר שמירת הקובץ תתאפשר גם שמירת גיבוי לביטול השינויים במסמך." & vbLf _
    & "לשמירה וגיבוי לחץ כן להמשך ללא שמירה לחץ לא", vbYesNo + vbQuestion, "שמירה")
        If userResponse = vbYes Then
            ActiveDocument.Save
        Else
            Exit Sub
        End If
    End If

    timestamp = Format(Now, "yyyy-mm-dd hh.mm.ss")

    fileName = ActiveDocument.Name
    fileName1 = Left(fileName, InStrRev(fileName, ".") - 1)
    fileName2 = Mid(fileName, InStrRev(fileName, "."))
    newFileName = fileName1 & "_" & "גיבוי לפני " & Peula & timestamp & fileName2
    Dim fso As Object
    Set fso = CreateObject("Scripting.FileSystemObject")
    fso.CopyFile ActiveDocument.FullName, filePath & "\" & newFileName
    Set fso = Nothing
End Sub

ולפני כל פונקציה שיכולה לגרום לתקלות לקרוא לשגרה הזו כך:

    GibuyLifneyPeula "יישור טורים"

[לשכת הרב]

@שלמה11 כמה תיקונים חשובים שיש לעשות בעיטורים לכותרות [פרגונים כבר כתבתי! ממש תוסף עוזר ומועיל!!! רק שצריך כמה תיקונים נחוצים לזה]

בעיטור לפני ואחרי, צריך שיהיה אופציה ל'ממורכז', בעבר כתבת לי ש 0 זה ממורכז. אבל ניסתי וזה ממש לא ממורכז. מצורף צילומסך. [שיחקתי עם זה עד שעשיתי 2 וזה היה ממורכז]. וזה קשה כל פעם לשחק עם זה, לכן כדאי לעשות אופציה ממורכז - שבזה רובם משתמשים.

יישר כח.

[u88]

@לשכת-הרב כשרוצים להוריד אז תשתמש אח"כ במקרו של מסיר פסקאות כפולות?

[לשכת הרב]

פוסט זה נמחק!

[לשכת הרב]

@לשכת-הרב כתב בלהורדה | "שולחן העורך" - תוסף עימוד חדש לוורד!!!:

ב. כשרוצים להסיר את העיטורים, זה לא מסיר את הכל אלא משאיר מרווח ריק בכותרות, ואז מה שקורה שכשרוצים לעשות שוב את העיטור, זה עושה את העיטור עם רווחים מהכותרת.. כדאי לתקן את זה לתועלת הכלל.

יישר כח.

כעת גילתי שזה לא באג, פשוט כשמסירים את העיטור, צריך ב'תוחם' ג"כ לעשות את אותו רווח שהגדירו בהתחלה. ואז זה מסיר את העיטור.
וזה עובד מצוין!!!

[לשכת הרב]

@שלמה11 אם תוכל, נשאר כאמור רק לתקן את הדבר הנחוץ הזה:
א. בעיטור לפני ואחרי, צריך שיהיה אופציה ל'ממורכז', בעבר כתבת לי ש 0 זה ממורכז. אבל ניסתי וזה ממש לא ממורכז. מצורף צילומסך. [שיחקתי עם זה עד שעשיתי 2 וזה היה ממורכז]. וזה קשה כל פעם לשחק עם זה, לכן כדאי לעשות אופציה ממורכז - שבזה רובם משתמשים.

[לשכת הרב]

אולי תוכלו להוסיף לתוסף את זה:
סימני חיתוך בוורד
או שתעשו משהו משופר שיעבוד גם בפידיאף
וכמובן גם אופציה להסיר את סימני החיתוך (בוורד) במידה ולא רוצים שזה יופיע.