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

@975 אתה מתכוון להגדרת צבע התגובות ללבן? גם זה לא עוזר, כשאתה מדפיס הרקע של הבלון עדיין אפור.

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

@יאיר-דניאל מצאתי נחת זה פשוט עבד מעולה והוראות מדיוקות תודה רבה

@חייםc אם הכל באמת תקין אז אולי תבדוק אם יש לך את גופני המערכת הרגילים או לא קרה לי בעבר שנמחק לי אחד מהם והכל התהפך ואחרי שהחזרתי אותו והפעלה מחדש של המחשב הכל בא על מקומו בשלום

@אפי-זינגר רק עם מעבר מקטע וזה ממש לא מומלץ בפרט במסמכים ארוכים

@975 מדהים! נראה שחשבת על כל הפונקציות האפשריות.

@pcinfogmach תודה רבה!!! עבד מצויין!!

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

@menajemmendel כתב בהמלצה | המלצה על ממיר PDF: אני המרתי קובץ בן 8 עמודים, והוא המיר לי רק 2 הראשונים ושאם רוצים יותר מזה צריך לירשם מעניין האמת שעד עכשיו ניסיתי רק עמוד אחד או שניים, מסתבר שיש כנראה עוד הגבלות אם לא משלמים שאותם לא ראיתי....

@דוד-משה-1 תוכל לשלוח אותו בפרטי?

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

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

Ctrl+Shift+F9 אם בכל המסמך אז עם המאקרו של @975

@אום-אני-חומה תריץ את זה זה יעשה את מה שדאנציג תיאר באופן אוטומטי תיקון_וורד_לעברית.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 לא בטוח שזה טוב תבדוק ותעדכן