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

[pcinfogmach]

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

אני עשיתי כותרות, ובחרתי את כל הכותרות והפעלתי את הפקודה - לא מדובר על פסקאות אחת ליד השניה, אלא על מספר פסקאות שמפוזרות על פני המסמך.
אם ישנה אפשרות לעשות שכל הפסקאות המסומנות יהפכו לכותרות צד, זה יהיה מאוד נוח.
או לחילופין, שתהיה אפשרות לבחור סגנון, למשל, שכל כותרת 3 תהפך לכותרת צד, ושהמאקרו יבחין לבד האם זה צריך להיות ימין או שמאל, כמו בבחירה פסקה אחת שהוא מסדר אותם ימינה או שמאלה. (הפונקציה הזו הפתיעה אותי, זה פשוט מדהים!

רעיונות מצויינים - תודה
בלי נדר בגירסה הבאה

[מאן דאמר]

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

[pcinfogmach]

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

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

בעז"ה בגירסה הבאה בלי נדר

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

[אלע]

פוסט זה נמחק!

[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