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

[סוד כמוס]

@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

[חוות דעת]

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

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

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

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

[pcinfogmach]

אני רוצה להבהיר משהו:

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

[pcinfogmach]

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

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

תודה על הקוד כבר ייושם ויופיע אי"ה בגרסה הבאה

[חוות דעת]

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

אני רוצה להבהיר משהו:

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

עכשיו דיברת ברור...!!!

[חוות דעת]

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

אני רוצה להבהיר משהו:

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

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

[pcinfogmach]

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

וזה פלוס גדול, לדעתי.

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

[בוקר טוב]

@pcinfogmach תוכל אולי לפרט יותר איך מוחקים ידנית את הגירסא הקודמת של התוסף (בשם הישן)?
תודה רבה.

[pcinfogmach]

@בוקר-טוב

1. לחץ על: מקש חלונות + R

2. הזן כתובת זו:

%AppData%\Microsoft\Word\STARTUP

3. מחק את הקובץ של התוסף בתיקייה שנפתחה

[חוות דעת]

פוסט זה נמחק!

[חוות דעת]

@pcinfogmach מה ההבדל בין 'אחיד' ל'מדוייק' (חיפשתי את הפוסט המקור של זה, ולא מצאתי)

[ASDF1345]

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

[u88]

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

[pcinfogmach]

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

אני התקנתי את שתיהם והכל עובד מצויין

אכן הכל עלול לעבוד מצויין - אבל אינני לוקח על זה אחריות כלל.

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