להורדה | תוסף עיצוב תורני לוורד

[pcinfogmach]

@אלע כתב בלהורדה | תוסף עיצוב תורני לוורד:

אין אפשרות של ישור טורים בסוף העמוד?

לא הבנתי כוונתך בדיוק נא לפרט יותר. אולי תעלה גם תמונה כדי שאבין יותר טוב.

[אלע]

פוסט זה נמחק!

[אלע]

@pcinfogmach אפשרות שאם בצד אחד יש פיסקה אחת ארוכה [ובצד השני כמה פסקאות] שגם יאזן את הטורים.

[אלע]

@pcinfogmach עוד רעיון לשיפור.
לדוגמא אני במילה ראשונה עושה דופ מסוים וכו', שזה ישמר לי תמיד ולא כל פעם להגדיר מחדש.
וכן שאם אני לוחץ על 'מילה ראשונה' שאיהיה לי אפשרות לעשות שברירת מחדל יהיה 'ללא סגנון' ולא שצריך ללחוץ על החץ ואז.
מקוה שהייתי מספיק מובן.
תודה ענקית!!!

[אלע]

@pcinfogmach איך מוחקים את התוכנה מהאפשרות של כתורת עליונה? לא מצליח.

[pcinfogmach]

@אלע
אם אתה לא מצליח למחוק את התוכנה אפשר למחוק אותה באופן ידני מתוך תיקייה זו

%AppData%\Microsoft\Word\STARTUP

[mfmf]

פוסט זה נמחק!

[pcinfogmach]

פוסט זה נמחק!

[pcinfogmach]

גרסה 6.2 יצא לאור

נוספו:
ההצעה של @מאן-דאמר
ראה תמונה בספוילר באיזו פקודה יש להשתמש

Spoiler

וההצעה של @דאנציג

[pcinfogmach]

תוסף עיצוב תורני לוורד

גרסה 6.3 יצא לאור!
להורדה לחץ כאן

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

[מענדי מ 0]

@pcinfogmach
אני רואה שקובץ ההתקנה הוא exe
האם תיאורטית (עם מינימום מאמץ של התאמה) זה יכול לעבוד גם למחשבי מק?

[pcinfogmach]

@מענדי-מ-0 כתב בלהורדה | תוסף עיצוב תורני לוורד:

האם תיאורטית (עם מינימום מאמץ של התאמה) זה יכול לעבוד גם למחשבי מק?

ייתכן שיעבוד ייתכן שלא.
הקובץ אינו אלא קובץ חילוץ עצמי תוכל לחלץ אותו ידנית ולנסות להעתיק את הקובץ אל נתיב הstartup של וורד
אבל נראה לי שיש פקודות vba שלא עובדות במק טעון בדיקה (אין לי מק).

עריכה:
פורסם קוד פתוח תוכל לחלץ משם את הקובץ

[האדם החושב]

בסוגריים כשאני מדגיש מילה לפעמים המילה מוקפת בסוגריים ,לפעמים גם המילה הסמוכה ולפעמים גם יותר ,לא ברור לפי מה זה נקבע
אגב ,ניתן לעשות את הקוד שדה גם במספור הערות שוליים וכך לפתור את הבעיה של "באג תשצ"ג" גם בהערות שוליים בלי להזדקק למאקרו של @ASDF1345
כמו"כ האם ניתן לעשות פקודת מאקרו שמפעילה את המספור עמודים? [ניסיתי דרך הקלטה ,וזה מה שיצא לי:

Sub מספור_עברי()
'
' Macro1 Macro
'
'
    If ActiveWindow.View.SplitSpecial <> wdPaneNone Then
        ActiveWindow.Panes(2).Close
    End If
    If ActiveWindow.ActivePane.View.Type = wdNormalView Or ActiveWindow. _
        ActivePane.View.Type = wdOutlineView Then
        ActiveWindow.ActivePane.View.Type = wdPrintView
    End If
    ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageFooter
    Application.Templates( _
        "C:\Users\משתמש\AppData\Roaming\Microsoft\Word\STARTUP\וורד תורני.dotm"). _
        BuildingBlockEntries("מספור עברי").Insert Where:=Selection.Range, _
        RichText:=True
End Sub

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

[סוד כמוס]

@pcinfogmach יש לי איזה גופן שהגדרתי והוא עושה לי אותו ברירית מחדל בכל המחשב היאך מסירים גופנים מהמחשב או פתרון אחר

[pcinfogmach]

@סוד-כמוס כתב בלהורדה | תוסף עיצוב תורני לוורד:

@pcinfogmach יש לי איזה גופן שהגדרתי והוא עושה לי אותו ברירית מחדל בכל המחשב היאך מסירים גופנים מהמחשב או פתרון אחר

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

[pcinfogmach]

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

האם ניתן לעשות פקודת מאקרו שמפעילה את המספור עמודים?

Sub מספור_עמודים_עברי()

Dim FSO2 As Object
Dim attTempPath2 As String
Dim docPath2 As String
'Dim answr As Integer
    
    Set FSO2 = CreateObject("Scripting.FileSystemObject")
    attTempPath2 = ActiveDocument.AttachedTemplate.Path & "\" & ActiveDocument.AttachedTemplate.Name
    docPath2 = Application.StartupPath & "\" & "תוסף עיצוב תורני.dotm"
    
    ' Check if the file exists
    If FSO2.FileExists(docPath2) Then
        ' The file exists
        Application.Templates(docPath2).BuildingBlockEntries("מספור עברי").Insert Where:=Selection.Range, _
        RichText:=True
        
    Else
        ' The file does not exist
        Application.Templates(attTempPath2).BuildingBlockEntries("מספור עברי").Insert Where:=Selection.Range, _
        RichText:=True
    End If
        
End Sub

Sub מספור_עמודים_תלמוד_בבלי_עמוד_א()

Dim FSO2 As Object
Dim attTempPath2 As String
Dim docPath2 As String
'Dim answr As Integer
    
    Set FSO2 = CreateObject("Scripting.FileSystemObject")
    attTempPath2 = ActiveDocument.AttachedTemplate.Path & "\" & ActiveDocument.AttachedTemplate.Name
    docPath2 = Application.StartupPath & "\" & "תוסף עיצוב תורני.dotm"
    
    ' Check if the file exists
    If FSO2.FileExists(docPath2) Then
        ' The file exists
        Application.Templates(docPath2).BuildingBlockEntries("סגנון תלמוד בבלי וירושלמי עמוד א").Insert Where:=Selection.Range, _
        RichText:=True
        
    Else
        ' The file does not exist
        Application.Templates(attTempPath2).BuildingBlockEntries("סגנון תלמוד בבלי וירושלמי עמוד א").Insert Where:=Selection.Range, _
        RichText:=True
    End If
End Sub
    
Sub מספור_עמודים_תלמוד_בבלי_עמוד_ב()
    
Dim FSO2 As Object
Dim attTempPath2 As String
Dim docPath2 As String
'Dim answr As Integer
    
    Set FSO2 = CreateObject("Scripting.FileSystemObject")
    attTempPath2 = ActiveDocument.AttachedTemplate.Path & "\" & ActiveDocument.AttachedTemplate.Name
    docPath2 = Application.StartupPath & "\" & "תוסף עיצוב תורני.dotm"
    
    ' Check if the file exists
    If FSO2.FileExists(docPath2) Then
        ' The file exists
        Application.Templates(docPath2).BuildingBlockEntries("סגנון תלמוד בבלי וירושלמי עמוד ב").Insert Where:=Selection.Range, _
        RichText:=True
        
    Else
        ' The file does not exist
        Application.Templates(attTempPath2).BuildingBlockEntries("סגנון תלמוד בבלי וירושלמי עמוד ב").Insert Where:=Selection.Range, _
        RichText:=True
    End If

End Sub

[pcinfogmach]

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

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

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

שורה תחתונה העיקרון של הפקודה הוא שהוא מרחיב את הסימון עד הרווח הבא (אולי כדאי להגדיר שאם הוא כבר עומד על רווח שלא ירחיב - אי"ה בגירסה הבאה)

[חוות דעת]

@pcinfogmach כתב בלהורדה | תוסף עיצוב תורני לוורד:

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

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

(אולי כדאי להגדיר שאם הוא כבר עומד על רווח שלא ירחיב - אי"ה בגירסה הבאה)

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

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

[pcinfogmach]

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

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

[חוות דעת]

@חוות-דעת כתב בלהורדה | תוסף עיצוב תורני לוורד:

@pcinfogmach כתב בלהורדה | תוסף עיצוב תורני לוורד:

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

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

(אולי כדאי להגדיר שאם הוא כבר עומד על רווח שלא ירחיב - אי"ה בגירסה הבאה)

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

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

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

Sub InsertBracketsToSelection()

Dim myText As String
    Selection.MoveEndWhile Cset:=" ", Count:=wdBackward
    myText = Selection.Text
    Selection.Text = "(" & myText & ")"
    
End Sub