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

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

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

 

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

התקדמתי יפה..
אשמח לדעת איזו פקודה עליי לכתוב, כדי למצוא כמה פעמים מופיעה מילה במסמך?

תודה רבה למסייעים!

 

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

אפרש יותר את דבריי

Dim i As Integer
Dim NCount As Integer
NCount = ActiveDocument.Content.Paragraphs.Count

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

 

[עיגול רבוע]

אם לא תמצא פתרון טוב יותר, אולי תחיל על כל הקטעים המכילים את "אברהם" עיצוב מסוים, או סגנון מסוים, וכך אולי תוכל לספור את הקטעים בעלי העיצוב או הסגנון המסוים?

 

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

אם לא תמצא פתרון טוב יותר, אולי תחיל על כל הקטעים המכילים את "אברהם" עיצוב מסוים, או סגנון מסוים, וכך אולי תוכל לספור את הקטעים בעלי העיצוב או הסגנון המסוים?

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

 

[עיגול רבוע]

אין לי מושג. רק הצעתי כדי שתבדוק ואולי יועיל לך הרעיון.

 

[Yisrael]

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

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

 

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

מצוין ממש! עזרת לי מאוד!

 

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

שאלה נוספת:

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

כיצד אני כותב זאת בקוד?

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

תודה רבה!

 

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

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

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

 

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

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

 

[לאה אהרונוב]

לדוגמה: בוורד וכמדומני בכל האופיס לחיצה על CTRL וגלגול בעכבר משנה מרחק מהתצוגה,

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

 

[יענקי R]

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

באינדזיין וחבריו לבית אדובי - זה עובד עם Alt ולא עם CTRL