בקשה | מאקרו שיחפש בקובץ וורד נוסף
-
@יוסף-בן-יוסף
תעלה את הקוד שGPT כתב לך, מתוך הויזואל בייסיק - עם עיצוב קוד:
כדי שיהיה יותר קל לבדוק מה הוא כתב, ואולי אני יצליח להתקדם עם זה קצת.פוסט זה נמחק! -
פוסט זה נמחק!
פוסט זה נמחק! -
שלום רב.
פעמים רבות יש לי שני קבצי וורד שאני מעוניין להעתיק מילה שהשחרתי באחד מהם, לעבור לקובץ השני, לפתוח את חלונית החיפוש, להדביק ולחפש, ביקשתי מצ'אטgpt שיתן לי מאקרו לזה, ולאחר שעות ארוכות של התכתבות חוזרת ונשנית, הצלחתי רק להגיע למאקרו שעושה את הפעולה, אבל מבלי לפתוח את חלונית הניווט - וממילא כמעט ולא עוזר לי. מישהו יודע על מאקרו שיכול לעשות את העבודה? תודה רבה.Sub CopyAndSearch() Dim sourceDoc As Document Dim targetDoc As Document Dim selectedText As String Dim foundDoc As Boolean Dim occurrences As Long Dim searchRange As Range ' נניח שנמצאים בקובץ הראשון Set sourceDoc = ActiveDocument ' בדוק אם יש טקסט נבחר If Selection.Type <> wdNoSelection Then selectedText = Trim(Selection.Text) ' נחתוך רווחים מסביב Else MsgBox "אף מילה לא נבחרה." Exit Sub End If ' חפש קובץ שני פתוח foundDoc = False For Each targetDoc In Documents If targetDoc.Name <> sourceDoc.Name Then foundDoc = True Exit For End If Next targetDoc If Not foundDoc Then MsgBox "לא נמצא קובץ שני פתוח." Exit Sub End If ' הכן את חפיש התוכן בקובץ השני Set searchRange = targetDoc.Content occurrences = 0 ' אתחול מספר המופעים ' חפש במילה בקובץ השני With searchRange.Find .ClearFormatting .Text = selectedText .MatchCase = False .MatchWholeWord = True .MatchWildcards = False .Execute Forward:=True ' אם נמצאה המילה If .Found Then occurrences = occurrences + 1 targetDoc.Activate searchRange.Select MsgBox "המילה '" & selectedText & "' נמצאה במופע מספר " & occurrences & "." Do While .Execute(Forward:=True) occurrences = occurrences + 1 targetDoc.Activate searchRange.Select MsgBox "המילה '" & selectedText & "' נמצאה במופע מספר " & occurrences & "." Dim nextAction As VbMsgBoxResult nextAction = MsgBox("האם תרצה לעבור למופע הבא?", vbYesNo) If nextAction = vbNo Then Exit Do Loop Else MsgBox "המילה '" & selectedText & "' לא נמצאה בקובץ '" & targetDoc.Name & "'." End If End With End Subאתה יכול לפתוח את חלונית החיפוש בלי לפתוח את חלונית הניווט כלומר החלונית הזו:
עיין כאן לרשימת החלוניות שאתה יכול לפתוח על ידי מאקרו:
https://learn.microsoft.com/en-us/office/vba/api/word.wdworddialog
עיין כאן איך להתנהל איתם
https://learn.microsoft.com/en-us/office/vba/word/concepts/customizing-word/displaying-built-in-word-dialog-boxes -
אתה יכול לפתוח את חלונית החיפוש בלי לפתוח את חלונית הניווט כלומר החלונית הזו:
עיין כאן לרשימת החלוניות שאתה יכול לפתוח על ידי מאקרו:
https://learn.microsoft.com/en-us/office/vba/api/word.wdworddialog
עיין כאן איך להתנהל איתם
https://learn.microsoft.com/en-us/office/vba/word/concepts/customizing-word/displaying-built-in-word-dialog-boxes@pcinfogmach כתב בבקשה | מאקרו שיחפש בקובץ וורד נוסף:
אתה יכול לפתוח את חלונית החיפוש בלי לפתוח את חלונית הניווט כלומר החלונית הזו:
עיין כאן לרשימת החלוניות שאתה יכול לפתוח על ידי מאקרו:
https://learn.microsoft.com/en-us/office/vba/api/word.wdworddialog
עיין כאן איך להתנהל איתם
https://learn.microsoft.com/en-us/office/vba/word/concepts/customizing-word/displaying-built-in-word-dialog-boxesתודה! אבל אני צריך דווקא את חלונית הניווט שתראה לי את כל התוצאות, בלינק שהבאת לי 'טבעתי'...
-
@pcinfogmach כתב בבקשה | מאקרו שיחפש בקובץ וורד נוסף:
אתה יכול לפתוח את חלונית החיפוש בלי לפתוח את חלונית הניווט כלומר החלונית הזו:
עיין כאן לרשימת החלוניות שאתה יכול לפתוח על ידי מאקרו:
https://learn.microsoft.com/en-us/office/vba/api/word.wdworddialog
עיין כאן איך להתנהל איתם
https://learn.microsoft.com/en-us/office/vba/word/concepts/customizing-word/displaying-built-in-word-dialog-boxesתודה! אבל אני צריך דווקא את חלונית הניווט שתראה לי את כל התוצאות, בלינק שהבאת לי 'טבעתי'...
@יוסף-בן-יוסף
אין אפשרות לתפעל את חלונית הניווט דרך מאקרו רק לפתוח אותו ותו לא.
אם זה מספיק לך אז הפקודה היאCommandBars("Navigation").Visible = Trueאופציה אחרת היא לייצר מאקרו של חיפוש והחלפה שיצבע את הרקע של כל התוצאות. מדומני שיש אפשרות גם להחיל צבע שלא יופיע בהדפסה.
-
@יוסף-בן-יוסף
אין אפשרות לתפעל את חלונית הניווט דרך מאקרו רק לפתוח אותו ותו לא.
אם זה מספיק לך אז הפקודה היאCommandBars("Navigation").Visible = Trueאופציה אחרת היא לייצר מאקרו של חיפוש והחלפה שיצבע את הרקע של כל התוצאות. מדומני שיש אפשרות גם להחיל צבע שלא יופיע בהדפסה.
@pcinfogmach כתב בבקשה | מאקרו שיחפש בקובץ וורד נוסף:
@יוסף-בן-יוסף
אין אפשרות לתפעל את חלונית הניווט דרך מאקרו רק לפתוח אותו ותו לא.
אם זה מספיק לך אז הפקודה היאCommandBars("Navigation").Visible = Trueאופציה אחרת היא לייצר מאקרו של חיפוש והחלפה שיצבע את הרקע של כל התוצאות. מדומני שיש אפשרות גם להחיל צבע שלא יופיע בהדפסה.
מה זה נקרא 'רק לפתוח אותו'?
-
@pcinfogmach כתב בבקשה | מאקרו שיחפש בקובץ וורד נוסף:
@יוסף-בן-יוסף
אין אפשרות לתפעל את חלונית הניווט דרך מאקרו רק לפתוח אותו ותו לא.
אם זה מספיק לך אז הפקודה היאCommandBars("Navigation").Visible = Trueאופציה אחרת היא לייצר מאקרו של חיפוש והחלפה שיצבע את הרקע של כל התוצאות. מדומני שיש אפשרות גם להחיל צבע שלא יופיע בהדפסה.
מה זה נקרא 'רק לפתוח אותו'?
@יוסף-בן-יוסף
תריץ את הפקודה ותראה לבד מה היא עושה. -
@יוסף-בן-יוסף
תריץ את הפקודה ותראה לבד מה היא עושה.@pcinfogmach כתב בבקשה | מאקרו שיחפש בקובץ וורד נוסף:
@יוסף-בן-יוסף
תריץ את הפקודה ותראה לבד מה היא עושה.
להדביק רק את השורה הזו? - זה לא יוצר מאקרו נפרד. -
@pcinfogmach כתב בבקשה | מאקרו שיחפש בקובץ וורד נוסף:
@יוסף-בן-יוסף
תריץ את הפקודה ותראה לבד מה היא עושה.
להדביק רק את השורה הזו? - זה לא יוצר מאקרו נפרד.@יוסף-בן-יוסף
מתוך 'בריך ניכר שאינך מכיר בין ימינך לשמאלך בכל הקשור לכתיבת מאקרואים. אני מציע שתלמד קצת קודם איך מאקרו עובד ואז תנסה שוב. -
@יוסף-בן-יוסף
מתוך 'בריך ניכר שאינך מכיר בין ימינך לשמאלך בכל הקשור לכתיבת מאקרואים. אני מציע שתלמד קצת קודם איך מאקרו עובד ואז תנסה שוב.@pcinfogmach כתב בבקשה | מאקרו שיחפש בקובץ וורד נוסף:
@יוסף-בן-יוסף
מתוך 'בריך ניכר שאינך מכיר בין ימינך לשמאלך בכל הקשור לכתיבת מאקרואים. אני מציע שתלמד קצת קודם איך מאקרו עובד ואז תנסה שוב.מודה באשמה - אין לי ידע בכתיבת מאקרו, אם תוכל לתת לי את המאקרו אותו אתה מציע גמור, אשמח מאד.
-
@pcinfogmach כתב בבקשה | מאקרו שיחפש בקובץ וורד נוסף:
@יוסף-בן-יוסף
מתוך 'בריך ניכר שאינך מכיר בין ימינך לשמאלך בכל הקשור לכתיבת מאקרואים. אני מציע שתלמד קצת קודם איך מאקרו עובד ואז תנסה שוב.מודה באשמה - אין לי ידע בכתיבת מאקרו, אם תוכל לתת לי את המאקרו אותו אתה מציע גמור, אשמח מאד.
@יוסף-בן-יוסף
אמרתי לך שני הצעות איזה אתה רוצה? -
@יוסף-בן-יוסף
אמרתי לך שני הצעות איזה אתה רוצה?@pcinfogmach כתב בבקשה | מאקרו שיחפש בקובץ וורד נוסף:
@יוסף-בן-יוסף
אמרתי לך שני הצעות איזה אתה רוצה?אני רוצה את הראשונה, אבל לא לגמרי הבנתי מה היא אומרת.
-
@pcinfogmach כתב בבקשה | מאקרו שיחפש בקובץ וורד נוסף:
@יוסף-בן-יוסף
אמרתי לך שני הצעות איזה אתה רוצה?אני רוצה את הראשונה, אבל לא לגמרי הבנתי מה היא אומרת.
@יוסף-בן-יוסף
אם ככה פשוט תשתמש במקליט מאקרו ועשה את כל השלבים ידנית -
@יוסף-בן-יוסף
אם ככה פשוט תשתמש במקליט מאקרו ועשה את כל השלבים ידנית@pcinfogmach כתב בבקשה | מאקרו שיחפש בקובץ וורד נוסף:
@יוסף-בן-יוסף
אם ככה פשוט תשתמש במקליט מאקרו ועשה את כל השלבים ידניתעשיתי זאת, אך כשאני מנסה להפעיל הוא רק עובר לחלון השני ולא מחפש.
-
@pcinfogmach כתב בבקשה | מאקרו שיחפש בקובץ וורד נוסף:
@יוסף-בן-יוסף
אם ככה פשוט תשתמש במקליט מאקרו ועשה את כל השלבים ידניתעשיתי זאת, אך כשאני מנסה להפעיל הוא רק עובר לחלון השני ולא מחפש.
@יוסף-בן-יוסף
הקלטת גם את פעולת החיפפוש?
כלומר הקלטת פעולת חיפוש בחלונית הנ"ל (לא בחלונית הניווט) -
@יוסף-בן-יוסף
הקלטת גם את פעולת החיפפוש?
כלומר הקלטת פעולת חיפוש בחלונית הנ"ל (לא בחלונית הניווט)@pcinfogmach כתב בבקשה | מאקרו שיחפש בקובץ וורד נוסף:
@יוסף-בן-יוסף
הקלטת גם את פעולת החיפפוש?
כלומר הקלטת פעולת חיפוש בחלונית הנ"ל (לא בחלונית הניווט)לא, הקלטתי בחלונית הניווט - אין לי צורך בהקלטה בחלונית החיפוש שתחפש אחד אחד, אלא רק שיראו את התוצאות בחלונית הניווט.
-
@pcinfogmach כתב בבקשה | מאקרו שיחפש בקובץ וורד נוסף:
@יוסף-בן-יוסף
הקלטת גם את פעולת החיפפוש?
כלומר הקלטת פעולת חיפוש בחלונית הנ"ל (לא בחלונית הניווט)לא, הקלטתי בחלונית הניווט - אין לי צורך בהקלטה בחלונית החיפוש שתחפש אחד אחד, אלא רק שיראו את התוצאות בחלונית הניווט.
@יוסף-בן-יוסף
בסדר אז בסוף ההקלטה תוסיף את השורה הנ"ל שאמרתי לך את טקסט החיפוש תצטרך להזין ידנית כל פעם.
אם תרצה תוכל להקליט מאקרו ששם את הטקסט בלוח ההעתקה ככה פשוט תוכל להדביק אותו מיד בחלונית הנייוט שתפתח על ידי המאקרו. -
@יוסף-בן-יוסף
בסדר אז בסוף ההקלטה תוסיף את השורה הנ"ל שאמרתי לך את טקסט החיפוש תצטרך להזין ידנית כל פעם.
אם תרצה תוכל להקליט מאקרו ששם את הטקסט בלוח ההעתקה ככה פשוט תוכל להדביק אותו מיד בחלונית הנייוט שתפתח על ידי המאקרו.@pcinfogmach
אני חשבתי שפקודת SefndKeys תעזור, אבל התבדתי.
אם אתה נכנסת לעסק, אז לי וודאי שאין מה לעזור בעניין.
מאוד מעריך!!! -
@יוסף-בן-יוסף
בסדר אז בסוף ההקלטה תוסיף את השורה הנ"ל שאמרתי לך את טקסט החיפוש תצטרך להזין ידנית כל פעם.
אם תרצה תוכל להקליט מאקרו ששם את הטקסט בלוח ההעתקה ככה פשוט תוכל להדביק אותו מיד בחלונית הנייוט שתפתח על ידי המאקרו.@pcinfogmach כתב בבקשה | מאקרו שיחפש בקובץ וורד נוסף:
@יוסף-בן-יוסף
בסדר אז בסוף ההקלטה תוסיף את השורה הנ"ל שאמרתי לך את טקסט החיפוש תצטרך להזין ידנית כל פעם.
אם תרצה תוכל להקליט מאקרו ששם את הטקסט בלוח ההעתקה ככה פשוט תוכל להדביק אותו מיד בחלונית הנייוט שתפתח על ידי המאקרו.תודה! אכן כמו שאמרת זה פותח את חלונית החיפוש, אבל אכן לא מדביק ומחפש, ובעצם לא תורם הרבה, כי בפועל גם הדבקה כעת לא עוזרת - כי הוא לא נמצא אוטומטית בחלונית הניווט אף שהיא פתוחה.
אין מה לעשות כדי שידביק ויחפש? -
@pcinfogmach כתב בבקשה | מאקרו שיחפש בקובץ וורד נוסף:
@יוסף-בן-יוסף
בסדר אז בסוף ההקלטה תוסיף את השורה הנ"ל שאמרתי לך את טקסט החיפוש תצטרך להזין ידנית כל פעם.
אם תרצה תוכל להקליט מאקרו ששם את הטקסט בלוח ההעתקה ככה פשוט תוכל להדביק אותו מיד בחלונית הנייוט שתפתח על ידי המאקרו.תודה! אכן כמו שאמרת זה פותח את חלונית החיפוש, אבל אכן לא מדביק ומחפש, ובעצם לא תורם הרבה, כי בפועל גם הדבקה כעת לא עוזרת - כי הוא לא נמצא אוטומטית בחלונית הניווט אף שהיא פתוחה.
אין מה לעשות כדי שידביק ויחפש?@יוסף-בן-יוסף כתב בבקשה | מאקרו שיחפש בקובץ וורד נוסף:
אין מה לעשות כדי שידביק ויחפש?
@pcinfogmach כתב בבקשה | מאקרו שיחפש בקובץ וורד נוסף:
אין אפשרות לתפעל את חלונית הניווט דרך מאקרו רק לפתוח אותו ותו לא.
![חיפוש גוגל בפורום](javascript:{bootbox.prompt({title:'<div style="text-align: center;"><img src="/assets/uploads/files/1625950269825-mt-google.png" width="400"></div>',placeholder:'כתוב מילים לחיפוש ב Google',buttons:{confirm:{label:'חיפוש'},cancel:{label:'ביטול'}},backdrop:true,callback:function(result){if(result!=null&&result!=''){var a=document.createElement('a');a.href='https://www.google.co.il/search?q=site:mitmachim.top '+encodeURIComponent(result.trim());a.target='_blank';a.click();}}})();};){kind=link}