בקשה | מאקרו שיחפש בקובץ וורד נוסף

[יוסף בן יוסף]

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

[יוסף בן יוסף]

פוסט זה נמחק!

[דאנציג]

@יוסף-בן-יוסף
בתוסף 'עיצוב תורני' של הרב @pcinfogmach יש חיפוש והחלפה בקבצים מרובים, אולי זה יכול לעזור לך.
קישורים נוספים בעניין
https://mitmachim.top/topic/53362/שיתוף-אינצקלופדיה-שיתופית-עבור-קודים-של-מאקרו-איך-עושים-את/50

https://mitmachim.top/topic/52433/מדריך-אוסף-קודים-לחיפוש-והחלפה-בוורד/9

https://mitmachim.top/topic/51883/שיתוף-מתעדכן-אוסף-מאקרו-לוורד-אינדקס-מאקרו-שימושי-הוראות-חשובות/178

https://mitmachim.top/topic/51795/שיתוף-שרשור-חיפוש-והחלפה-בוורד-אילתורים-מקצועיים-בוורד/82

ואם תרצה בתוכנה חיצונית על ידי אינדקס, יש לך את זה:
https://mitmachim.top/topic/73759/להורדה-איתורית-תוכנה-מהירה-לחיפוש-בתוכן-הקבצים-בעברית-מלאה/32

הרבה הצלחה

[יוסף בן יוסף]

@דאנציג כתב בבקשה | מאקרו שיחפש בקובץ וורד נוסף:

@יוסף-בן-יוסף
בתוסף 'עיצוב תורני' של הרב @pcinfogmach יש חיפוש והחלפה בקבצים מרובים, אולי זה יכול לעזור לך.
קישורים נוספים בעניין
https://mitmachim.top/topic/53362/שיתוף-אינצקלופדיה-שיתופית-עבור-קודים-של-מאקרו-איך-עושים-את/50

https://mitmachim.top/topic/52433/מדריך-אוסף-קודים-לחיפוש-והחלפה-בוורד/9

https://mitmachim.top/topic/51883/שיתוף-מתעדכן-אוסף-מאקרו-לוורד-אינדקס-מאקרו-שימושי-הוראות-חשובות/178

https://mitmachim.top/topic/51795/שיתוף-שרשור-חיפוש-והחלפה-בוורד-אילתורים-מקצועיים-בוורד/82

ואם תרצה בתוכנה חיצונית על ידי אינדקס, יש לך את זה:
https://mitmachim.top/topic/73759/להורדה-איתורית-תוכנה-מהירה-לחיפוש-בתוכן-הקבצים-בעברית-מלאה/32

הרבה הצלחה

תודה! אבל אין בכל אלו את מה שביקשתי - אני מחפש שיעתיק את מה שמושחר, יעבור לחלון השני, יפתח חלונית ניווט, ידביק את התוכן, ויחפש.

[דאנציג]

@יוסף-בן-יוסף
תעלה את הקוד שGPT כתב לך, מתוך הויזואל בייסיק - עם עיצוב קוד:

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

[יוסף בן יוסף]

@דאנציג כתב בבקשה | מאקרו שיחפש בקובץ וורד נוסף:

@יוסף-בן-יוסף
תעלה את הקוד שGPT כתב לך, מתוך הויזואל בייסיק - עם עיצוב קוד:

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

מה פירוש עם עיצוב קוד? עכ"פ אולי תצור איתי קשר במייל ואעביר לך את כל ההתכתבות איתו: ymy81196@gmail.com

[צדיק וטוב לו 0]

פוסט זה נמחק!

[יוסף בן יוסף]

פוסט זה נמחק!

[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

תודה! אבל אני צריך דווקא את חלונית הניווט שתראה לי את כל התוצאות, בלינק שהבאת לי 'טבעתי'...

[pcinfogmach]

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

CommandBars("Navigation").Visible = True

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

[יוסף בן יוסף]

@pcinfogmach כתב בבקשה | מאקרו שיחפש בקובץ וורד נוסף:

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

CommandBars("Navigation").Visible = True

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

מה זה נקרא 'רק לפתוח אותו'?

[pcinfogmach]

@יוסף-בן-יוסף
תריץ את הפקודה ותראה לבד מה היא עושה.

[יוסף בן יוסף]

@pcinfogmach כתב בבקשה | מאקרו שיחפש בקובץ וורד נוסף:

@יוסף-בן-יוסף
תריץ את הפקודה ותראה לבד מה היא עושה.
להדביק רק את השורה הזו? - זה לא יוצר מאקרו נפרד.

[pcinfogmach]

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

[יוסף בן יוסף]

@pcinfogmach כתב בבקשה | מאקרו שיחפש בקובץ וורד נוסף:

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

מודה באשמה - אין לי ידע בכתיבת מאקרו, אם תוכל לתת לי את המאקרו אותו אתה מציע גמור, אשמח מאד.

[pcinfogmach]

@יוסף-בן-יוסף
אמרתי לך שני הצעות איזה אתה רוצה?

[יוסף בן יוסף]

@pcinfogmach כתב בבקשה | מאקרו שיחפש בקובץ וורד נוסף:

@יוסף-בן-יוסף
אמרתי לך שני הצעות איזה אתה רוצה?

אני רוצה את הראשונה, אבל לא לגמרי הבנתי מה היא אומרת.

[pcinfogmach]

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

[יוסף בן יוסף]

@pcinfogmach כתב בבקשה | מאקרו שיחפש בקובץ וורד נוסף:

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

עשיתי זאת, אך כשאני מנסה להפעיל הוא רק עובר לחלון השני ולא מחפש.