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

@menajemmendel כן, אבל לא ידעתי שיש פקודה לתחילת פיסקה.

אשמח אם תוכלו להעלות לי כאן קבצים לצורך בדיקת הקוד החדש של יישור עמודים וטורים. בעז"ה הקוד החדש יהיה בנוי כמו 'עיצוב פיסקה' לוחצים על כפתור אחד והוא מריץ את התיקונים הבאים: (ניתן לבחור רק חלק מהתכונות בדומה ל'עיצוב פיסקה'). 'יישור טורים מקדים' לפני יישור עמודים, במקטעים שמסתיימים באמצע העמוד (לפעמים יישור טורים גורם לדחיפה של המקטע הבא, וזה עלול להפריע לדיוק של יישור עמודים, ובמקרים כאלו צריך לעשות אותו לפני) תיקון הבאג של 'מנע הפרדת פיסקאות' לאחר מעבר מקטע. יישור עמודים. יישור טורים. לאחר התיקון כל העמודים מיושרים במדויק לסוף העמוד, כולל הטורים. הקוד מתגבר גם על עמודים עם הערות שולים, מעברי מקטע, וכן במקטעים בעלי 3 טורים ויותר. בנוסף תהיה אפשרות לבחור אם להפעיל תכונות מסוימות כמו 'בדיקת שורה אחרונה' עבור יישור טורים, ו'הגבלת מרווח בין הפיסקאות'. מבדיקה שערכתי על קובץ של כ75 עמודים: יישור טורים ללא 'בדיקת שורה אחרונה' כ-2 דק' בלבד, עם 'בדיקת שורה אחרונה' כ-6 דק'. יש עוד תיקונים לעשות כך שיכול להיות שזה ייקח קצת יותר זמן. יישור עמודים לוקח קצת יותר זמן וזה מאוד תלוי בקובץ ובמאפייניו. וכעת חידון קצר למבינים ב(שגעונות של) וורד... אם פיסקה א' מוגדר מרווח אחרי 8 נק', ופיסקה ב' מוגדר מרווח לפני 12 נק', מה יהיה המרווח הכולל בין הפיסקאות? כאשר יש 2 מקטעים בעמוד, הראשון עם 2 טורים והשני עם טור אחד, מה יקבע את המרווח בין המקטעים? כאשר יש הערות שולים בעמוד, מה קובע את המרווח בין ההערות שולים לבין הפיסקאות שלפני? האם יישור טורים עלול להיות מושפע ממצב ה'זום'? תשובות בספויילר Spoiler 1. לפעמים 8+12 זה לא 24... וורד ייבחר את המרווח הגדול מבין השניים, ולכן המרווח יעמוד על 12 נק'. 2. זה קצת מסובך... אבל זה עובד ככה: אם הטור הראשון מסתיים באמצע פיסקה, המרווח יחול על סוף הפיסקה שנמצאת בטור השני, ולא ייווצר מרווח בין המקטעים, אבל אם הטור הראשון מסתיים במעבר פיסקה, המרווח יהיה בינו לבין המקטע הבא (כלומר הפיסקה שמגודרת כטור אחד). רגע, זה לא הסוף... כל מה שדיברנו הוא אם הטור הראשון יותר ארוך מהטור השני, אבל כאשר הטור השני הוא הטור הארוך יותר, המרווח בין המקטעים ייקבע לפי המרווח של הפיסקה האחרונה בטור השני. (מקוה שהבנתם...) 3. דומה מאוד לתשובה מס' 2. אם הטור הראשון מסתיים באמצע פיסקה הוא לא קובע את המרווח, אם הוא מסתיים בסוף הפיסקה הוא יקבע את המרווח. כל זה כאמור כאשר הטור הראשון הוא הטור הארוך, כאשר הטור השני הוא הטור הארוך והוא מסתיים בסוף פיסקה, המרווח יקבע לפי הטור השני. אם הטור הארוך לא מסתיים בסוף פיסקה, הוא יכול להיות צמוד במקסימום להערות השולים. 4. אכן כן! אם מעמידים את הזום בפחות או יותר מ100%, הפקודה של בדיקת המיקום של סוף הטור לא יוצאת מדויקת והיישור עלול להיכשל, בעז"ה בקוד החדש בתחילת הקוד יעבור מצב הזום ל100% כדי לפתור את הבעיה הזו.

@מחשבות תבדוק בקונסול, תלחץ F12

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

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

@הגולם-מפראג תשלח לי מייל אחרת לא אזכור - תודה

קוד עבור גרשיים (") קוד זה בודק אם יש טקסט מסומן. אם יש – הוא עוטף אותו. אם אין – הוא מזין זוג גרשיים ומחזיר את הסמן צעד אחד אחורה. VBA Sub HandleQuotes() Dim sel As Selection Set sel = Application.Selection ' אם יש טקסט מסומן - עטיפת הטקסט בגרשיים If sel.Type = wdSelectionNormal Then Dim txt As String txt = sel.Text sel.Text = """" & txt & """" ' השארת הטקסט מסומן כולל הגרשיים (אופציונלי) sel.MoveRight Unit:=wdCharacter, Count:=1 Else ' אם אין טקסט מסומן - יצירת זוג והזזת הסמן ביניהם sel.TypeText Text:="""" & """" sel.MoveLeft Unit:=wdCharacter, Count:=1 End If End Sub 2. קוד עבור סוגריים עגולים ( ) ) הערה: המאקרו מופעל בעת לחיצה על הסוגר הפותח (במקלדת עברית תקנית מדובר במקש Shift + 0 המייצר את הסוגר הפותח החזותי (). VBA Sub HandleParentheses() Dim sel As Selection Set sel = Application.Selection ' אם יש טקסט מסומן - עטיפת הטקסט בסוגריים If sel.Type = wdSelectionNormal Then Dim txt As String txt = sel.Text sel.Text = "(" & txt & ")" sel.MoveRight Unit:=wdCharacter, Count:=1 Else ' אם אין טקסט מסומן - יצירת זוג והזזת הסמן ביניהם sel.TypeText Text:="()" sel.MoveLeft Unit:=wdCharacter, Count:=1 End If End Sub כיצד להגדיר זאת ב-Word כדי שיעבוד אוטומטית בלחיצה? לאחר העתקת הקוד לעורך ה-VBA (Alt + F11), יש לשייך את הרצת המאקרו למקשים הנכונים: היכנס לקובץ (File) > אפשרויות (Options) > התאמה אישית של רצועת הכלים (Customize Ribbon). בתחתית החלון, ליד Keyboard shortcuts, לחץ על התאם אישית... (Customize...). בגלילה השמאלית (Categories), רד עד הסוף ובחר ב-Macros. בגלילה הימנית, בחר ב-HandleQuotes. לחץ על תיבת "Press new shortcut key", והקש על מקש הגרשיים במקלדת שלך. לחץ על Assign. חזור על הפעולה עבור HandleParentheses ושייך אותו למקש הסוגר הפותח שלך במקלדת.

@צדיק-0 רציתי את הממשק שלו וגם שיעמם לי ולקלוד

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

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

@אברהם-0 תחפש: [ְ-ׇ] ותסמן "השתמש בתווים כלליים"

@שלמה11 אופציה נוספת להצגת קווי מתאר, שלא באמצעות הקווים של התיבות, אפשר בסימון האופציה הבאה: "הצג גבולות טקסט". [image: 1781647277300-%D7%9D.png] כמו"כ ע"י הגדרת גבולות לטקסט, בעיצוב.

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

@מניין כתב בהסבר | תיקון כותרת אוטומטית ריקה: בהקלטת מאקרו זה לא עובד, ומעניין מה הסיבה, ואיך להתגבר על זה בדרך כלל בעיצוב הקלטת מאקרו לא עובד. תנסה את המאקרו הזה (GPT): Sub ApplyNormalStyleToSectionBreaks() Dim rng As Range Set rng = ActiveDocument.Range With rng.Find .ClearFormatting .Text = "^b" .Forward = True .Wrap = wdFindStop .Format = False End With Do While rng.Find.Execute ' החלת הסגנון "רגיל" על מעבר המקטע עצמו rng.Style = ActiveDocument.Styles("רגיל") ' מעבר לחיפוש הבא כדי למנוע לולאה אינסופית rng.Start = rng.End rng.End = ActiveDocument.Content.End Loop MsgBox "הסגנון 'רגיל' הוחל על כל מעברי המקטע." End Sub

@bar123bar זה עוזר רק לגופן מוסתר, לא למה "שנמחק לגמרי", לא?

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

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

@הנגבי התקנה ע"י לחיצה על הקובץ שמחלץ את המאקרו לתקייה המיועדת מחיקת המאקרו ע"י כניסה לתקייה (לחיצת ווינדוס + R והדבקת %AppData%/Microsoft/Word/STARTUP) ומחיקת הקובץ שנוצר