וורד האשכול המרכזי לשאלות וטיפים בוורד

[בר בי רב]

זה נמצא פה:
https://www.prog.co.il/threads/ייצוא-מתג-לוורד-והערות-שוליים-יהיו-כהערות-שולים.4674/#post-813055

תודה לכל העוזרים
בקשר לדף ההוא אין לי הרשאות לזה.
בקשר למקרו שהופך הערות תג להערות שוליים - תודה.

 

[בר בי רב]

מה? אתה לא מבין מה כתוב?

לתועלת כל מי שלא הבין, הנה האשכול בשפת המדינה.

#1
שלום.

שאלה:

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

תודה רבה


#2
יש שני דרכים.

א. על ידי שימוש בתוכנת מאקרו חיצונית (ארוך, מסובך, ומעצבן).
ב. 'קרש' יכתוב סקריפט קצר, בכמה דקות (קצר, פשוט, ועובד נפלא).

קרש, מחכים לך.

#3
אקרא בבוקר. תודה רבה מאד על ההתייחסות.

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

Sub FootnotesToMain()
Dim i As Integer, myRange As Range
For i = 1 To ActiveDocument.Footnotes.Count
Set myRange = ActiveDocument.Footnotes(1).Range
If InStr(myRange, Chr(13)) > 0 Then _
myRange.Find.Execute FindText:=Chr(13), replacewith:=Chr(9), _
Wrap:=wdFindStop, Replace:=wdReplaceAll
myRange.Copy
With ActiveDocument.Footnotes(1).Reference
.Paste: .InsertBefore "(": .InsertAfter ")": .Font.SizeBi = 8
End With
Next i
End Sub

​

ואני מקווה שאין בזה בבחי' כל המוסיף גורע.

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

#6
לייזער!
איך האב ליב דיין הערליכע היברו...
ישר כח אויף אלעס!

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


ואלו הן ההוספות:
א. בעת העתקת ההערה -- התו הראשון שבהערה מועתקת יחד עם ההערה, מלבד אם הוא סימון הפניית ההערה שאז אינה מועתקת.
ב. אינו מעתיק את אלו הרווחים המיותרים שישנם (באם ישנם..) בתחילת ההערה או בסופה (הנקרא בלע"ז: leading/trailing spaces).
ג. בעת ההדבקה בתוך הטעקסט -- מקודם לא נלקח בחשבון את פונקציית ה"העתק והדבק החכמים" המובנית בווארד (ראה: כלים>אפשרויות>עריכה), אשר גורמת בעת הדבקת טעקסט כלשהו - שיתווספו רווחים לפני ואחרי הטעקסט; וזה גרם כאן לאי-אסתטיקה, מאחר והסוגר הפותח שבתחילת ההערה (שנשתלה בתוך הטעקסט ע"י המאקרא - לאחר ההדבקה) נכנסה לפני הרווח שבתחילת ההערה. -- כאן סודר זה ע"י ניטרול הפונקצי' הנ"ל תוך כדי הרצת המאקרא.
ד. עיצוב הסוגריים שמסביב להערה -- הושם דגש שיהיו זהים בעיצובם (=ישנם כמה סיבות שיכולים לגרום שלא יהיו באותו העיצוב).
ה. כללי -- הוספת שורת מצב (מופיע בתחתית המסך) בעת הרצת המאקרא, בכדי לדעת היכן מחזיק (תועלתי במיוחד לטעקסטים ארוכים..).

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

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


קוד:

Sub FootnotesToMain()
Dim Adjust As Boolean, myRange As Range
Dim i As Integer, X As Integer

Application.ScreenUpdating = False
Adjust = Options.PasteAdjustWordSpacing: Options.PasteAdjustWordSpacing = False
X = ActiveDocument.Footnotes.Count
For i = 1 To X
StatusBar = i & ":" & X
Set myRange = ActiveDocument.Footnotes(1).Range
With myRange
If InStr(myRange, Chr(13)) > 0 Then _
.Find.Execute FindText:=Chr(13), ReplaceWith:=Chr(9), _
Wrap:=wdFindStop, Replace:=wdReplaceAll
.MoveStart Count:=-1: If .Characters(1) = Chr(2) Then .MoveStart Count:=1
.MoveStart Count:=Len(myRange) - Len(LTrim(myRange))
.MoveEnd Count:=Len(RTrim(myRange)) - Len(myRange)
.Copy
End With
With ActiveDocument.Footnotes(1).Reference
.Paste: .InsertBefore " (": .InsertAfter ")"
Set DupFont1 = .Characters(2).Font.Duplicate
Set DupFont2 = .Characters.Last.Font.Duplicate
.Characters.Last.Font = DupFont1: .Characters.First.Font = DupFont2
.MoveStart Count:=1: .Font.SizeBi = 8
End With
Next i
Application.ScreenUpdating = True: Options.PasteAdjustWordSpacing = Adjust
End Sub​

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

#8
מדהים כמה שזה פשוט.
ניסיתי על קטע מהטקסט לצורך הדגמה. פשוט נהדר.
באמת תודה רבה.

גמר חתימה טובה

#9
ר' לייזער
כל הכבוד
אתה אוסף זכויות ליום הדין בכמויות...
כה לחי
גמח"ט

#10
רבותי, לר' לייזר יש קרדיט עצום אצל משתמשי תג. הוא יצר תוסף תוכנה ל'וורד' ששולף את כל סגנונות הטקסט שבמסמך, ומאפשר לשים קוד לפניהם וקוד לאחריהם, בלי להסתבך עם עשרות 'חפש החלף'.(ראה כאן:http://prog.co.il/showpost.php?p=119528&postcount=41)

הבן אדם הוא 'נותן' במלא מובן המילה!!!

#11
בטח יסלחני על כך, אך לא ידוע לי איך מתמודדים עם מחמאות שכאלו אשר אינני מרגיש כלל ראוי להם...

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

לצערי זו התגובה (על אף שנבחר טקסט)

 

[בר בי רב]

זה הסתדר
השגיאה היתה מחמת שההערה היתה ריקה.
תודה רבה מאוד

 

[בר בי רב]

מצאתי שמור אצלי:

====
הוראות:

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

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

להפעיל המאקרו יש להריץ פקודת ConnectFootnotes.

בברירת מחדל – ייחוס הקישורים בפנים ובהערות שהמאקרו מחבר ביניהם הם 0, היינו ללא ייחוס. באם רוצים לשנות את ייחוס הקישורים – ניתן לשנות כן במאקרו, בשורה: Notes 0, 0. המספר הראשון הוא לקישורים שבפנים, והמספר השני הוא לקישורים שבהערות.

באם אין קישורים בטקסט, אך ישנם סימנים אחרים שרוצים לקשר את הטקסטים על פיהם – ניתן כמובן להחליף (לפני הרצת המאקרו) את אותם הסימנים לסימני קישורי הערה כפי שנראים בייצוא מתג (כגון: "<*1>"); או, לחילופין, לסימנים שבהם המאקרו משתמש: "+|+" (לפנים) ו"+|#" (להערות) [אגב: באם ישנם מכבר סימנים אלו בתוך הטקסט, מסיבה כלשהי, ואין רוצים שהמאקרו יפעל על פיהם, יש להסיר סימן ' שבתחילת השורה התשיעית של הפונקצי' Notes, בכדי שיחליף את הסימנים הנ"ל לסימן אחר, ובכך לא יפריע למהלכו של המאקרו].

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

והנה המאקרו (שנכתבה בשותפות עם כמה מידידיי, ותודתי להם):

קוד:

Sub ConnectFootnotes()
   Notes 0, 0
End Sub
Function Notes(Optional iFN1 As Integer, Optional iFN2 As Integer, Optional bIn As Boolean) As Integer
   Dim i As Integer, sFN(1) As String, J(1) As Long, myRange() As Range, sMsg As String, iViewType As Integer, bSmartCut As Boolean
   If Not bIn Then Application.ScreenUpdating = False: iViewType = ActiveDocument.ActiveWindow.View.Type
   If Application.Version >= 12 Then ActiveDocument.ActiveWindow.View.Type = wdPrintView Else ActiveDocument.ActiveWindow.View.Type = wdNormalView
   ActiveDocument.StoryRanges(1).Select: Selection.End = 0: If Not bIn Then Call initial
   If Val(iFN1) = 0 Then sFN(0) = "\*" Else sFN(0) = "$" & CStr(iFN1) & " "
   If Val(iFN2) = 0 Then sFN(1) = "\*" Else sFN(1) = "$" & CStr(iFN2) & " "
   With Selection.Find
       If .Execute(findText:="+++", Wrap:=wdFindContinue) Then Selection.Collapse wdCollapseEnd Else sMsg = "הכנס ""+++"" לפני טעקסט ההערות!": GoTo X3
       'If .Execute(FindText:="+(|[+#])", ReplaceWith:="#\1", Replace:=wdReplaceAll, MatchWildcards:=True, Wrap:=wdFindContinue) Then i = 1
       If .Execute(findText:="\<" & sFN(1) & "[0-9 ]{1,}\>", ReplaceWith:="+|#", Replace:=wdReplaceAll, MatchWildcards:=True, Wrap:=wdFindStop) Then i = i + 1
       If .Execute(findText:="\<" & sFN(0) & "[0-9 ]{1,}\>", ReplaceWith:="+|+", Replace:=wdReplaceAll, MatchWildcards:=True, Wrap:=wdFindContinue) Then i = i + 1
       J(0) = UBound(split(ActiveDocument.Range.Text, "+|+")): J(1) = UBound(split(ActiveDocument.Range.Text, "+|#"))
       If J(0) <> J(1) Then sMsg = "אין תאימות לקישורים! (" & J(0) & "<>" & J(1) & ")": ActiveDocument.Undo i: GoTo X3
       If J(0) = 0 Then GoTo X3
       ReDim myRange(J(0)): i = 1: Selection.End = 0: .Text = "+|#": .Wrap = wdFindContinue
       While .Execute
           StatusBar = "Setting footnote range " & i & ":" & UBound(myRange)
           With Selection
               J(1) = (.MoveStartUntil(Chr(13), wdBackward)) + 1: If .Range.HighlightColorIndex = 9999999 Or .Range.HighlightColorIndex = 0 Then If J(1) < 0 Then .MoveStart 1, J(1) * -1
               If Not i = 1 Then myRange(i - 1).SetRange start:=myRange(i - 1).start, End:=.start
               Set myRange(i) = ActiveDocument.Range(start:=.start, End:=.End)
               If i = UBound(myRange) Then myRange(i).SetRange start:=myRange(i).start, End:=ActiveDocument.Range.End: GoTo X1
               i = i + 1: .Collapse wdCollapseEnd
           End With
       Wend
X1:     Selection.End = 0: .Execute "+|+": bSmartCut = Options.SmartCutPaste: Options.SmartCutPaste = False
       With Selection: .Delete: .Footnotes.Add Range:=Selection.Range, Reference:=""
           ActiveDocument.StoryRanges(1).Footnotes(1).Reference.Select: .Range.HighlightColorIndex = wdNoHighlight: .Copy: .Collapse wdCollapseEnd
       End With
       .Execute ReplaceWith:="^c", Replace:=wdReplaceAll, Wrap:=wdFindContinue
       For i = 1 To UBound(myRange)
           StatusBar = "Inserting footnotes " & i & ":" & UBound(myRange): While Right(myRange(i), 1) = Chr(13): myRange(i).MoveEnd wdCharacter, -1: Wend
           ActiveDocument.StoryRanges(2).Footnotes(i).Range.Select: Selection.ParagraphFormat = myRange(i).Paragraphs.First.Range.ParagraphFormat
           myRange(i).Copy: Selection.PasteAndFormat wdPasteDefault: If i = UBound(myRange) Then Exit For
       Next i
       Options.SmartCutPaste = bSmartCut: ActiveDocument.StoryRanges(2).Find.Execute "+|#", ReplaceWith:="", Replace:=wdReplaceAll, Wrap:=wdFindContinue
       ActiveDocument.StoryRanges(1).Select: Selection.End = 0: .Execute "+++", Wrap:=wdFindContinue: With Selection: .MoveEnd wdStory: .Delete: .End = 0: End With
       .Text = "": .MatchWildcards = False
   End With
   If Not bIn Then ActiveDocument.ActiveWindow.View.Type = iViewType: Application.ScreenUpdating = True
   Notes = 2: Exit Function
X3: With Selection.Find: .Text = "": .Replacement.Text = "": .MatchWildcards = False: End With: Notes = 1
   If Not bIn And sMsg <> "" Then MsgBox sMsg, vbMsgBoxRtlReading + vbMsgBoxRight: ActiveDocument.ActiveWindow.View.Type = iViewType: Application.ScreenUpdating = True
End Function
Private Sub initial()
   With Selection.Find: .ClearFormatting: .Replacement.ClearFormatting: .Replacement.Text = ""
       If Not .Execute(findText:="?", Forward:=True, MatchWildcards:=True, MatchCase:=False, Wrap:=wdFindContinue) Then Application.Browser.Next
       .Text = "": .MatchWildcards = False: Selection.MoveLeft
   End With
End Sub

מה עושים אם המקרו לא מגיב.

 

[גרפיקנער]

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

 

[בר בי רב]

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

 

[בר בי רב]

הצליח
פשוט חשבתי שמספיק 0 להחשיב
עכשיו ראיתי שצריך שהקישור יהיה +|+ ו +|#
והתו 0 לא מעלה ולא מוריד

 

[בר בי רב]

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

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

היכן צורף המקרו?

 

[בר בי רב]

תלמידים,

מעניין מהיכן קיבלת את הקובץ ההוא, אני כתבתי אותו, ומסתבר שמאז עדכנתי בו הרבה דברים

אפשר לקבל את הקובץ? עדיף המעודכן. אפשר?

 

[אלחנן אריאל]

שלום רב!

אני מעוניין לעשות במסמך חיפוש "חפש ב" (מסמך ראשי), כלומר שבפקודת החיפוש - התוכנה בוחרת את כל מה שנמצא בחיפוש. כאשר החיפוש הוא "כלפי מעלה".

בפועל כשאני מחפש, החיפוש מתעקש לחפש "כלפי מטה".

היש איזה פתרון לעניין?

תודה רבה!

 

[חגי פאהן]

בעזהי"ת

במסמך ראשי הוא בכלל נותן אפשרות לא לחפש בכל המסמך? אצלי הוא מוצא את הכל, לא משנה איפה הסמן.

אתה יכול במקום זה לסמן את כל הטקסט שמהסמן ומעלה (Ctrl+Shift+Home) ולבחור במקום מסמך ראשי "הקטע הנוכחי".

 

[אלחנן אריאל]

לא אכפת לי שיחפש בכל המסמך. אדרבה, אני מעוניין שיחפש בכל המסמך. אבל שיעשה את החיפוש מלמטה למעלה.
ואם תאמר, מאי נפקא לך מינה? החיפוש שאני מבקש הוא לחפש 888*אברהם (בתווים כללייים, כלומר כל מה שבין זה לזה), וממילא לא הרי תוצאת חיפוש מלמעלה למטה, כזו שמלמטה למעלה.

 

[חגי פאהן]

החיפוש שאני מבקש הוא לחפש 888*אברהם (בתווים כללייים, כלומר כל מה שבין זה לזה), וממילא לא הרי תוצאת חיפוש מלמעלה למטה, כזו שמלמטה למעלה.

אני לא בטוח שהבנתי, אם תהפוך את החיפוש - אברהם*888 - זה לא יתן את מה שרצית?

 

[Avshalom05]

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

בהצלחה!

 

[אלחנן אריאל]

אבאר את שיחתי. מצורף קובץ.
אני מעוניין לשלוף בפעולה אחת את כל המאמרים שנכתבו ע"י אברהם.
לשם כך אני צריך לחפש כל מה שבטווח בין 888 - אברהם.

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

מקווה שעכשיו הסברתי טוב יותר.

 

[עיגול רבוע]

ניסיתי לבצע על הקובץ שלך חיפוש מלמטה למעלה והצליח.
אולי הדבר תלוי בגירסת הוורד?
אצלי 2013.

 

[אלחנן אריאל]

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

 

[עיגול רבוע]

צור קובץ מקרו שע"י חיפוש מלמטה למעלה יחליף את כל 888 ששייך לאברהם, ל-999. ואח"כ תבחר את מה שבין 999 ל-אברהם.

 

[אלחנן אריאל]

זה רעיון טוב! תודה רבה!

כתבתי מאקרו זה:​

for i = 1 to ?????
Selection.Find.ClearFormatting
    With Selection.Find
        .Text = "888*אברהם"
        .Forward = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "888"
        .Replacement.Text = "999"
        .Forward = True
       .Wrap = wdFindContinue
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute
    With Selection
        If .Find.Forward = True Then
            .Collapse Direction:=wdCollapseStart
        Else
            .Collapse Direction:=wdCollapseEnd
        End If
        .Find.Execute Replace:=wdReplaceOne
        If .Find.Forward = True Then
            .Collapse Direction:=wdCollapseEnd
        Else
            .Collapse Direction:=wdCollapseStart
        End If

    End With
  next
End Sub

אני זקוק לעזרה בהשלמת מה שצריך לכתוב במקום סימני השאלה, (כדי שהמאקרו ירוץ עד תחילת המסמך)?

 

[עיגול רבוע]

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