עזרה הדדית - וורד

@מנשה-2 אני הכי אוהב את המדפסת הזו, היא בדרך כלל מייצאת לPDF בצורה הכי טובה שראיתי.

@שמעון-פרידנן אני אכתוב לך תשובה מפורטת. @שמעון-פרידנן כתב בלהורדה | 'תוסף צורת הדף' – עימוד רב טקסט בוורד: הוספת שם מפרש ידנית, מצריכה לעצב מחדש? או שיש אפשרות לעדכן את כל המקומות שהשם יופיע כבעמוד הראשון? כאשר מוסיפים שם מפרש נוצר סגנון מסוג 'פיסקה' בשם 'שמות המפרשים' או לחילופין כשם הזרם הספציפי, ניתן לשנות את הגדרות הפיסקה והגדרות הגופן באמצעות הסגנון. אם אתה מעוניין להחליף את שם המפרש עצמו ניתן לעשות זאת על ידי חיפוש והחלפה הרגיל של וורד. הוספת שורות או תיבות בזרם עליון דוחקת אוטומטית את הזרם שמתחתיו אבל לא מקטינה אותו בהתאמה לשולים כך שהוא גולש החוצה מהקו התחתון של העמוד או השוליים, או שזה יהיה אוטומטי, או לכה"פ כפתור נוסף להקטנה אוטומטית של התיבות טקסט שבסוף העמוד בהתאם לשוליים. או רעיון אחר. זה רעיון טוב, בעז''ה אני אוסיף את האופציה שתיבות הטקסט לא ייתרחבו מעבר לשולים. שמוסיפים תיבה נוספת לזרם "לצידו" כלומר שיווצר זרם של 2 טורים זה לצד זה, התיבה הנוספת שנוצרת היא קטנה וצריך להתאים אותה ידנית לתיבה הימנית, שיהיה אופציה שזה ישכפל את הגודל. או שיהיה לכתחילה אפשרות להגדרה בזרם שיוסיף 2 תיבות זה לצד זה. בתוסף הנוכחי ניתן לבחור את 2 תיבות הטקסט ולהחיל עליהם פקודות שונות כגון הרחבה לכיוון מטה. טיפ קטן: ניתן להרחיב את השורות כלפי מטה באופן ידני ללא התוסף, ולאחר מכן לבצע הרחבה כלפי מטה ולהכניס את הספרה 0, זה יישר את תיבת הטקסט. שים לב שאין לבצע הרחבה דומה לימין או לשמאל. שבהוספת "שם מפרש" הטקסט יהיה אוטומטת ממורכז. כפי שעניתי ניתן לשנות את כל הגדרות הפיסקה והפונט באמצעות הסגנון 'שמות המפרשים' שנוצר על ידי התוסף. בנוסף, כשממרכזים את השם הוא מוצב באמצע התיבת טקטס, אבל לעומת זו בזרם שמתחתיו הטקסט לא מגיע עד הקצה בגלל המרווחים שבין הזרמים, וכך יוצא שהשם לא נמצא מקביל למרכז הטקסט אלא בזרם ימני למשל הוא נוטה שמאלה קצת מהמרכז, צריך להוסיף את המרווחים גם בשם מפרש. זה לא נכון, אולי יש לך באג ספציפי. שבהוספת שם יהיה אפשר לקבוע את המרחק מהטקס שמעליו בצורה אוטומטית. כפי שכבר עניתי לזה מיועד המרוח התחתון/העליון. (יש באג כשמוסיפים מרוח תחתון ועושים 'פיצול תיבה' התיבה העליונה לא מתקטנת בהתאם וצריך לסדר את זה ידנית - בעז''ה יתוקן) אם אפשר להוסיף אופציה שיופיע על העמוד סימון הנקודות מיקום, נצרך בעיקר לעיצוב העמוד הראשון. לא הבנתי את הטעם, לזה מיועד הסרגל הרגיל של וורד, אם הוא לא מוצג לך תעבור ללשונית תצוגה ותסמן את האופציה 'סרגל'. להוסיף את האופציה מהתוסף הקודם, של התאמת תיבות זה לזה, למשל קצרתי את הזרם הימני, שלא יצטרכו לקצר את השמאלי ידנית ולהתחיל לספור שורות אלא שיותאם אוטומטית לימני. בתוסף הזה זה קצת יותר מסובך, אבל בעז''ה אני אוסיף אופציה שבוחרים מספר תיבות טקסט והתוסף יתאים לתיבה הקצרה/הארוכה ביותר. שבאופציה של "פצל תיבה" התיבה האוטומטית שנוספת ברוחב שונה, צר יותר או רחב יותר תיהיה קצרה יותר, או אפשרות לבחור מס' שורות. המערכת שואלת אותך את נקודת המיקום החדשה מימין/שמאל בהתאמה. המערכת מדלגת על השאלה כאשר תיבת הטקסט צמודה לשוליים מתוך הנחה שבצד שצמוד לשוליים הוא יישאר כך. באופן כללי: עקב סכנת קריסת וורד בעומס תיבות טקסט, להוסיף אופציה לפיצול עמודים מוכנים למסמך אחר, לתוך תיקיה שנבחרה מראש, או משהו בדומה לזה. אחרת ככל שמתקדמים הקובץ יהפוך לכבד ומסורבל, וככה הוא רק ילך ויוקל. אתה צודק, אם כי מבדיקות שלי זה לא כל כך נורא, אבל זה כבר עניין יותר מסובך שככל הנראה לא יהיה בגירסא הבאה... האם יש תוכנית להוסיף גם פונקציות הנוגעות לכל המכלול של העימוד, כמו למשל הוספת כותרות משתנו בכותרת עליונה, שכרגע לא שייך, כי הוא לא מזהה סגנונות שבתוך תיבות טקסט, וכמו למשל אמצעים לעזור בהתאמת הטקסטים זה לזה? כנ''ל, ואגב תוסף 'שולחן העורך' גם מחכה לטיפול מקצועי כך שיש תור... להוסיף במדריך, שצריך לבטל את "בקרת שורות מיותמות". בוצע במדורי צד, המרוחים הם כמו בין שאר הטקסטים, כלומר מתחלקים, חצי על טקסט, מה שגורם שהטקסטים המרכזיים מתרחקים מהשוליים, קצת קשה למעמד שמתכנן את רוחב הטקסטים המרכזיים, לקחת את זה בחשבון מראש. אולי אפשר שבצד המרווחים יהיו רק על התיבות שבצד. ככלל עדיף ליצור תוסף מה שיותר אחיד ולא לבלבל את הקודים בתנאים מתנאים שונים, כגון אם זה ליד השולים אז... תודה על המשוב, ובהצלחה

@חד-צורבא אנא עראף? לך לאומן שעשאו

@יאיר-דניאל תודה רבה אנסה את זה ואענה על כך בהמשך אין מילים...

מאקרו שיצרתי לבקשתו של אחד מחברי הפורום - להחלפת גופנים ע"י מאקרו. גירסה א: Sub FinalFont_InstantUpdate() Dim selectedFont As String Dim lastUsedFont As String Dim answer As VbMsgBoxResult ' 1. בחירה מפורשת של הכל אם לא סומן כלום If Selection.Start = Selection.End Then ActiveDocument.Range.Select End If ' 2. שליפת הגופן האחרון lastUsedFont = GetSetting("MyWordMacros", "Settings", "LastFont", "David") ' 3. שאלה למשתמש answer = MsgBox("האם להשתמש בגופן האחרון: " & lastUsedFont & "?" & vbCrLf & _ "לחץ 'כן' לביצוע, או 'לא' לבחירה מרשימה.", _ vbYesNoCancel + vbQuestion + vbMsgBoxRight + vbMsgBoxRtlReading, "החלפת גופן") If answer = vbYes Then selectedFont = lastUsedFont ElseIf answer = vbNo Then With Application.Dialogs(wdDialogFormatFont) If .Show = -1 Then selectedFont = Selection.Font.NameBi If selectedFont = "" Or selectedFont = "0" Then selectedFont = Selection.Font.Name End If End With If selectedFont <> "" And selectedFont <> "0" Then SaveSetting "MyWordMacros", "Settings", "LastFont", selectedFont Else Selection.Collapse Direction:=wdCollapseStart Exit Sub End If Else Selection.Collapse Direction:=wdCollapseStart Exit Sub End If ' 4. ביצוע השינוי עם עדכון מסך כפוי If selectedFont <> "" Then Application.ScreenUpdating = False ' מכבה עדכון כדי להאיץ On Error Resume Next With Selection.Font .NameBi = selectedFont .Name = selectedFont End With On Error GoTo 0 ' פקודות לרענון מיידי של המסך Application.ScreenUpdating = True ' מדליק חזרה ומאלץ רענון DoEvents ' משחרר את המערכת לעדכון גרפי Application.ScreenRefresh ' רענון סופי של Word Selection.Collapse Direction:=wdCollapseStart Application.StatusBar = "הגופן עודכן ל-" & selectedFont End If End Sub Spoiler [image: 1777377433495-e0ac8a21-6100-4afe-83f5-dcf99c283027-image.png] [image: 1777377443133-0eda229e-2e5c-444c-af5e-5a499d7e7876-image.png] גירסה ב: בחירת גופן להחלפה - מתוך רשימה Sub ReplaceSpecificFont() Dim docFonts As New Collection Dim targetFont As String Dim replacementFont As String Dim lastUsedFont As String Dim i As Long Dim fontChoice As String Dim answer As VbMsgBoxResult ' 1. סריקת המסמך לזיהוי פונטים קיימים On Error Resume Next Dim para As Paragraph For Each para In ActiveDocument.Paragraphs ' הוספת הגופן הרגיל והגופן העברי לאוסף If para.Range.Font.Name <> "" Then docFonts.Add para.Range.Font.Name, para.Range.Font.Name If para.Range.Font.NameBi <> "" Then docFonts.Add para.Range.Font.NameBi, para.Range.Font.NameBi Next para On Error GoTo 0 If docFonts.Count = 0 Then MsgBox "לא נמצאו גופנים מזוהים.", vbExclamation Exit Sub End If ' 2. בחירת הגופן להחלפה Dim fontList As String fontList = "בחר מספר גופן להחלפה:" & vbCrLf For i = 1 To docFonts.Count fontList = fontList & i & ". " & docFonts(i) & vbCrLf Next i fontChoice = InputBox(fontList, "חפש והחלף גופן") If Not IsNumeric(fontChoice) Then Exit Sub i = CInt(fontChoice) If i < 1 Or i > docFonts.Count Then Exit Sub targetFont = docFonts(i) ' 3. בחירת גופן היעד lastUsedFont = GetSetting("MyWordMacros", "Settings", "LastFont", "David") answer = MsgBox("להחליף את " & targetFont & " ב-" & lastUsedFont & "?" & vbCrLf & _ "לחץ 'כן' לאישור, או 'לא' לבחירה מרשימה.", _ vbYesNoCancel + vbQuestion + vbMsgBoxRight + vbMsgBoxRtlReading) If answer = vbYes Then replacementFont = lastUsedFont ElseIf answer = vbNo Then With Application.Dialogs(wdDialogFormatFont) If .Show = -1 Then replacementFont = Selection.Font.NameBi If replacementFont = "" Or replacementFont = "0" Then replacementFont = Selection.Font.Name End If End With Else Exit Sub End If If replacementFont = "" Or replacementFont = "0" Then Exit Sub SaveSetting "MyWordMacros", "Settings", "LastFont", replacementFont ' 4. ביצוע ההחלפה (שיטה משופרת) Application.ScreenUpdating = False ' פקודת ההחלפה צריכה לרוץ פעמיים כדי לכסות גם עברית וגם אנגלית בוודאות Call ExecuteFontReplace(targetFont, replacementFont, True) ' עבור עברית Call ExecuteFontReplace(targetFont, replacementFont, False) ' עבור אנגלית Application.ScreenUpdating = True Application.ScreenRefresh MsgBox "הפעולה הושלמה עבור הגופן: " & targetFont, vbInformation End Sub ' פונקציית עזר לביצוע ההחלפה בפועל' פונקציית עזר לביצוע ההחלפה בפועל - עם שמות פרמטרים תקינים Sub ExecuteFontReplace(fTarget As String, fReplace As String, isBi As Boolean) Dim r As Range Set r = ActiveDocument.Content r.Find.ClearFormatting r.Find.Replacement.ClearFormatting If isBi Then r.Find.Font.NameBi = fTarget r.Find.Replacement.Font.NameBi = fReplace Else r.Find.Font.Name = fTarget r.Find.Replacement.Font.Name = fReplace End If ' התיקון הקריטי: FindText במקום Text, ו-ReplaceWith במקום ReplacementText r.Find.Execute FindText:="", ReplaceWith:="", _ Forward:=True, Wrap:=wdFindContinue, Format:=True, Replace:=wdReplaceAll End Sub זה עובד כך - תמונות בספויילר Spoiler [image: 1777561210359-4cdb8855-0815-4bbc-8af7-a663a92f2931-image.png] [image: 1777561276175-3c7116dc-e525-4c44-bd9b-ba7833317db2-image.png] [image: 1777561228591-53a647f1-eccc-4800-8591-c95458306e00-image.png] גירסה ג: (כמו גירסה ב' אבל לא צריך להקליד מספר גופן - אלא בוחרים בגופן עצמו - ההמשך אותו דבר). פשוט להפעיל את הקובץ המצורף החלפת גופנים.exe או להכניס את הקובץ המצורף- לתיקיית הטמפלס של אופיס (הקובץ למעלה - עושה את זה אוטומטית) החלפת גופנים.dotm Spoiler [image: 1777563675549-c8abf13f-ba1c-4a68-8d02-38c8044bae4b-image.png]

@יונימדיה כי נשאר כנראה מעבר מקטע מסויים, זה נראה מעניין, תלחץ על הכפתור [image: 1777506195615-7e843bfe-63af-41fb-a47d-1197d2631d42-image.png] שנמצא בכרטיסיית בית, ותבדוק האם קיים שם מעבר מקטע. תנסה לחפש: ^% תוכל לבדוק לבד מה יעבוד בחיפוש והחלפה: [image: 1777506314421-f6ca32f6-1446-4201-bc84-84ae268e3a5c-image.png] מה יעבוד.

שימו לב יצאה גירסה חדשה של התוסף ניתן למצוא אותה כאן

@ישעיהו-כץ כתב בבירור | איך מטפלים במפריד הערות שולים?: (ע"י תצוגת טיוטה > הצג הערות > מפריד הערות שוליים). ו/או עיצוב תורני [image: 1777401600910-f9450ae9-894a-478c-8338-59150206e3cd-image.png] באופן כללי מפריד ההערות מאוד קשוח, וקשה להתעסק איתו, אפילו להכניס תמונות הוא לא תמיד נותן.

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

@3143905 יש לך כאן חינם בצורה מאוד איכותית וטובה. https://mitmachim.top/post/626904

@דאנציג תודה!!!

@שלוםפ כתב בבירור | אופיס 365 מחפש סקריפט ספציפי: @שלמפוק עובד אופליין. תודה רבה

@אברהם-0 בעייה נפוצה מאד בוורד במיוחד אם אתה משתמש בא' ב' של וורד בעצמו. אני חמש שנים מעמד בוורד אין פתרון לזה.

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

תוציא כתוסף לשמירת סדרים במקום לסמן בדף שנעלם פשוט לכתוב כניסה יציאה וכו'

@לשכת-הרב כתב בבקשת מידע | האם אפשר לעשות בוורד שחלק משורה יהיה "שדה" לכותרת בראש העמוד?: דהיינו? לחץ מקש ימני על השדה: [image: 1776381476608-6c86fb4a-9e1e-416a-bfba-59681988938e-image.png] (שכחתי את קיצור המקשים של זה), וכך אתה רואה מה כתוב בשדה (לאן הוא מפנה), לדוגמא: [image: 1776381536552-ad1d74ce-1dfa-4151-b7e8-dbdeef05b0d6-image.png] לסגנון 'כותרת 2'.

@יאיר-דניאל כתב בבקשת מידע | חוקיות הפונטים: עריכה: יש אתר שלם של פונטים - אבל בכתב יד, אם רלוונטי למישהו - שהוקם לזכר הנרצחים בשמחת תורה, שמנציח את הכתב שלהם בפונטים. לא זוכר את שמו כרגע. זה לשימוש חינמי. יש שם פונטים ממש יפים! https://www.ot-hayim.co.il/

@חד-בדרא-השני לא. Spoiler תודה על הבהירות הנפלאה