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

@שלויימה למה לא תיתן להורדה - אופליין?

@אני2 אני לא יודע אם אפשר לעשות כן באופן "רשמי". אבל אפשר לעקוף חלק גדול של הבעיה על ידי שמחילים רקע לבן על כל הטקסט שבהערות. שים את הסמן באחת ההערות ולחץ על Ctrl+A כדי לבחור את כל הטקסט בכל ההערות. בלשונית 'עיצוב', לחץ על 'גבולות עמוד'. לחץ על לשונית 'הצללה'. ב'מילוי' בחר צבע לבן. בפינה השמאלית התחתונה, תחת 'החל על', בחר 'טקסט'. לחץ על 'אישור'. בכך החלת רקע לבן על כל הטקסט בהערות. עכשיו כשאתה מדפיס, רוב הבועה יהיה מלא בלבן. אמנם זה לא נראה כ"כ יפה (ראה דוגמא), אבל זה יחסוך הרבה דיו... דוגמא הערות עם רקע לבן.pdf

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

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

@pcinfogmach אני לא שואל למה מה שהבאתי לא מספיק אבל מביא לתועלת החסומים FieldTextConverter.zip Spoiler בשיטה שונה מהתוסף Sub FieldCodeToString() Dim oRng as Range Dim Fieldstring as String Dim NewString as String Dim CurrChar as String Dim CurrSetting as Boolean Dim fcDisplay as Object Dim MyData as DataObject Dim X as Long NewString = "" Set fcDisplay = ActiveWindow.View Application.ScreenUpdating = False CurrSetting = fcDisplay.ShowFieldCodes If CurrSetting <> True Then fcDisplay.ShowFieldCodes = True Set oRng = Selection.Range Fieldstring = oRng.Text For X = 1 To Len(Fieldstring) CurrChar = Mid(Fieldstring, X, 1) Select Case CurrChar Case Chr(19) CurrChar = "{" Case Chr(21) CurrChar = "}" Case Else End Select NewString = NewString + CurrChar Next X oRng.Text = NewString Set MyData = New DataObject MyData.SetText NewString MyData.PutInClipboard fcDisplay.ShowFieldCodes = CurrSetting End Sub ותהליך הפוך Sub FieldStringToCode() ' מבוסס על מאקרו שסופק על ידי פול אדשטיין ' ממיר קודי שדה "טקסטואליים" לקודי שדה אמיתיים ' כדי לבצע את ההמרה, פשוט הדבק את קודי השדה "טקסטואליים" ' במסמך שלך, בחר אותם והפעל את המאקרו. Dim RngFld As Range Dim RngTmp As Range Dim oFld As Field Dim StrTmp As String Dim sUpdate As String Dim bFldCodes As Boolean Const Msg1 = "בחר את הטקסט להמרה ונסה שוב." Const Msg2 = "אין מחרוזות שדה בטווח שנבחר." Const Msg3 = "זוגות של סוגריים מרוטים שדות לא תואמים בטווח שנבחר." Const Title1 = "שגיאה!" Const Title2 = "לעדכן שדות?" Application.ScreenUpdating = False bFldCodes = ActiveDocument.ActiveWindow.View.ShowFieldCodes If Selection.Type <> wdSelectionNormal Then MsgBox Msg1, vbExclamation + vbOKOnly, Title1 Exit Sub End If If InStr(1, Selection.Text, "{") = 0 Or InStr(1, Selection.Text, "}") = 0 Then MsgBox Msg2, vbCritical + vbOKOnly, Title1 End If If Len(Replace(Selection.Text, "{", vbNullString)) <> Len(Replace(Selection.Text, "}", vbNullString)) Then MsgBox Msg3, vbCritical + vbOKOnly, Title1 Exit Sub End If ActiveDocument.ActiveWindow.View.ShowFieldCodes = True Set RngFld = Selection.Range With RngFld .End = .End + 1 Do While InStr(1, .Text, "{") > 0 הגדר RngTmp = ActiveDocument.Range(Start:=.Start + InStr(.Text, "{") - 1, End:=.Start + InStr(.Text, "}")) עם RngTmp בצע את הפעולה בעוד ש-Len(Replace(.Text, "{", vbNullString)) <> Len(Replace(.Text, "}", vbNullString)) .End = .End + 1 If .Characters.Last.Text <> "}" Then .MoveEndUntil cset:="}", Count:=Len(ActiveDocument.Range(.End, RngFld.End)) לולאה .Characters.First = vbNullString .Characters.Last = vbNullString StrTmp = .Text הגדר oFld = ActiveDocument.Fields.Add(Range:=RngTmp, Type:=wdFieldEmpty, Text:="", PreserveFormatting:=False) oFld.Code.Text = StrTmp End With Loop ActiveDocument.ActiveWindow.View.ShowFieldCodes = bFldCodes.End = .End - 1 אם bFldCodes = False אז .Fields.ToggleShowCodes .בחר End With Application.ScreenUpdating = True sUpdate = MsgBox("האם ברצונך לעדכן את השדות?" & vbCr + vbCr & _ שים לב שאם השדות שהומרו כוללים שדות ASK או FILLIN, " & _ "עדכון יכפה את בקשת הקלט לשדות אלה", vbYesNo, Title2) If sUpdate = vbYes Then RngFld.Fields.Update Set RngTmp = Nothing Set RngFld = Nothing Set oFld = Nothing End Sub

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

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

@ילד-לומד הפתרון הוא או להתקשר למוקד התמיכה של משרד החינוך במספר *6552, או להתחבר מחדש דרך האתר שלהם. [image: 1769893385836-d37f96fa-11a7-4e06-a2a6-df91f89dd9f4-image.png] מה שקרה הוא שלכל משתמשי אופיס דרך משרד החינוך עודכן שם המשתמש, אבל העדכון לא הסתנכרן אוטומטית — ולכן נוצרת התקלה אצל כולם. צריך פשוט להתקשר, להזדהות, ולקבל מהם את שם המשתמש המעודכן. אחרי זה הכול חוזר לעבוד כרגיל. מקווה שעזרתי!

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

@אום-אני-חומה תריץ את זה זה יעשה את מה שדאנציג תיאר באופן אוטומטי תיקון_וורד_לעברית.exe

עדיין לא עובד לי, מה גם שהוא עושה ריבוע שחור מתחת למילה הראשונה[image: 1769514817126-42ed87a9-686e-47fc-84f4-82d293c394ea-image.png]

@haimil סגנון של הפניה להערות שולים או בהחלפה חפש את ^F החלף ב: סגנון, או גודל מסויים

@יוסי-מחשבים תודה, מעולה אבל ניסיתי להתקין וזה מה שאמר לי [image: 1769364880114-d6dbe559-25dd-42fb-b032-985e9cac786c-%D7%A6%D7%99%D7%9C%D7%95%D7%9D-%D7%9E%D7%A1%D7%9A-2026-01-25-201246.png]

@106 תנסה את זה Sub MarkdownMaster_Smart_Final() Dim para As Paragraph Dim r As Range Dim IsSingleStarBold As Boolean IsSingleStarBold = True If MsgBox("להתחיל בעיבוד? (הוגדר: כוכבית אחת = " & IIf(IsSingleStarBold, "מודגש", "נטוי") & ")", vbOKCancel) = vbCancel Then Exit Sub Application.ScreenUpdating = False CleanBrowserArtifacts For Each para In ActiveDocument.Paragraphs Set r = para.Range If Len(r.Text) > 2 Then HandleHeadingsAndQuotes r FormatByPattern r, "\*\*\?([!\*]@)\*\*\?", True, False FormatByPattern r, "([! \*\^13])\*([!\*]@)\*", IsSingleStarBold, Not IsSingleStarBold FormatByPattern r, "\~\~([!\~]@)\~\~", False, False, True FormatByPattern r, "\`([!\`]@)\`" End If Next para Application.ScreenUpdating = True MsgBox "הסתיים בהצלחה!", vbInformation End Sub Sub FormatByPattern(rng As Range, pattern As String, Optional bBold As Boolean = False, Optional bItalic As Boolean = False, Optional bStrike As Boolean = False) Dim findRng As Range Set findRng = rng.Duplicate With findRng.Find .ClearFormatting .Text = pattern .MatchWildcards = True Do While .Execute If Not findRng.InRange(rng.Paragraphs(1).Range) Then Exit Do If bBold Then findRng.Font.Bold = True If bItalic Then findRng.Font.Italic = True If bStrike Then findRng.Font.StrikeThrough = True If pattern Like "*\`*" Then findRng.Font.Name = "Courier New" findRng.Font.ColorIndex = wdRed End If RemoveSymbolsFromRange findRng, pattern findRng.Collapse wdCollapseEnd Loop End With End Sub Sub RemoveSymbolsFromRange(r As Range, pattern As String) Dim txt As String, firstChar As String, lastChar As String txt = r.Text If Left(pattern, 2) = "\*" Or Left(pattern, 2) = "\~" Or Left(pattern, 2) = "\_" Then If Left(r.Text, 2) = "**" Or Left(r.Text, 2) = "~~" Then r.Text = Mid(txt, 3, Len(txt) - 4) Else r.Text = Mid(txt, 2, Len(txt) - 2) End If Else Dim content As String content = Mid(txt, 3, Len(txt) - 3) r.Text = Left(txt, 1) & content End If End Sub Sub CleanBrowserArtifacts() Dim v As Variant For Each v In Array(8203, 8204, 8205) With ActiveDocument.Content.Find .Text = ChrW(v): .Replacement.Text = "": .Execute Replace:=wdReplaceAll End With Next v End Sub Sub HandleHeadingsAndQuotes(r As Range) Dim t As String: t = Trim(r.Text) If Left(t, 1) = "#" Then If Left(t, 3) = "###" Then r.Style = wdStyleHeading3: r.Start = r.Start + 4 If Left(t, 2) = "##" Then r.Style = wdStyleHeading2: r.Start = r.Start + 3 If Left(t, 1) = "#" Then r.Style = wdStyleHeading1: r.Start = r.Start + 2 ElseIf Left(t, 1) = ">" Then r.Style = wdStyleQuote: r.Start = r.Start + 2 End If End Sub לא בטוח שזה טוב תבדוק ותעדכן

@2ALALPRTW עיין פה וגם פה תוכל לראות על זה

@es0583292679 אדרבה תפתח לא אמור להיות מדאי מסובך קולא רשימה של חיפושים והחלפות.

@975 תודה אלוףףףףףףףףףף

@ישראל-ימפ [image: 1768856200931-da364822-9465-4de1-a690-71922e89b34a-image.png] [image: 1768856284636-34914b83-f957-49a2-ae11-f6b4770475be-image.png] לגבי הבעיה הצדדית שכתבת תנסה להוריד את כל הסימונים כמו בתמונות.