וורד - חיפוש כלפי מעלה

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

אפשר יותר שיחתי.
כל קוד חיפוש, אחר שמגדירים בו את מה שרוצים לחפש, צריך לחתום:

    Selection.Find.Execute

לחיפוש

Selection.Find.Execute Replace:=wdReplaceAll

להחלפת הכל



כיצד צריך לחתום לפקודה "חפש ב"?

חן חן!

 

[Yisrael]

אני לא יודע איך אפשר לעשות את הפעולה הזו, אבל אפשר להשתמש באלתור הזה:

Sub multiple_selection()
Do While Selection.Find.Execute("אברהם", , , , , , , wdFindStop) = True
Selection.Range.Editors.Add wdEditorEveryone
Loop
ActiveDocument.SelectAllEditableRanges wdEditorEveryone
ActiveDocument.DeleteAllEditableRanges wdEditorEveryone

 

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

תודה רבה מאוד!

עזרתם לי מאוד מאוד!

 

[Yisrael]

בשמחה רבה!

 

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

לא הבנתי לגמרי מה אתה מנסה לעשות אבל הקוד הבא יחזיר לך במשתנה Counter את מספר המופעים של אברהם במסמך

Sub Word_Count()
i = 1
[LEFT]Do While InStr(i, ActiveDocument.Range, "אברהם") > 0
i = InStr(i, ActiveDocument.Range, "אברהם") + 5[/LEFT]
Counter = Counter + 1
Loop
End Sub

אפשר בבקשה הסבר מה הקוד הזה עושה בדיוק?
(קצת הסתבך לי המאקרו, והבנת הקוד הזה עלולה לפתור לי את הבעיה).

תודה רבה!

 

[Yisrael]

אפשר בבקשה הסבר מה הקוד הזה עושה בדיוק?
(קצת הסתבך לי המאקרו, והבנת הקוד הזה עלולה לפתור לי את הבעיה).

תודה רבה!

הפונקציה InStr מחפשת מחרוזת בתוך מחרוזת ומחזירה את המיקום של תת המחרוזת בתוך
המחרוזת הראשית (ערך מספרי), אם לא נמצא היא מחזירה 0.

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

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


מה שעשיתי הוא לולאה שמחפשת את המחרוזת הרצויה כל עוד הפונקציה עצמה מחזירה ערך גדול מ-0. בנוסף בכל פעם שיניתי את המיקום ממנו תתחיל הפונקציה לעבור על המחרוזת מהמקום שבו נמצא בפעם שעברה + 5 (שזה מספר התווים של אברהם – למרום שהיה מספיק +1 אבל במקרים מסוימים יהיה הבדל לכן העדפתי +5).

כך יוצא שהלולאה תרוץ כמספר המופעים של תת המחרוזת הרצויה. מכאן הדרך קצרה לשים משתנה שיספור את מספר הפעמים שהלולאה רצה ויקרא שמו: Counter

נ"ב: מסתבר שיותר קשה להסביר מאשר לכתוב את הקוד..

 

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

תודה רבה!

אבל במקרים מסוימים יהיה הבדל לכן העדפתי +5).

לא הבנתי מהם המקרים המסוימים הללו? כגון?

 

[Yisrael]

תודה רבה!



לא הבנתי מהם המקרים המסוימים הללו? כגון?

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

 

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

תודה רבה על ההסבר!