דילוג לתוכן
  • חוקי הפורום
  • פופולרי
  • לא נפתר
  • משתמשים
  • חיפוש גוגל בפורום
  • צור קשר
עיצובים
  • Light
  • Cerulean
  • Cosmo
  • Flatly
  • Journal
  • Litera
  • Lumen
  • Lux
  • Materia
  • Minty
  • Morph
  • Pulse
  • Sandstone
  • Simplex
  • Sketchy
  • Spacelab
  • United
  • Yeti
  • Zephyr
  • Dark
  • Cyborg
  • Darkly
  • Quartz
  • Slate
  • Solar
  • Superhero
  • Vapor

  • ברירת מחדל (ללא עיצוב (ברירת מחדל))
  • ללא עיצוב (ברירת מחדל)
כיווץ
מתמחים טופ
י

יוסף בן יוסף

@יוסף בן יוסף
אודות
פוסטים
60
נושאים
7
שיתופים
0
קבוצות
0
עוקבים
0
עוקב אחרי
0

פוסטים

פוסטים אחרונים הגבוה ביותר שנוי במחלוקת

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

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

  • בקשת מידע | תוספים לכרום
    י יוסף בן יוסף

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

    @יוסף-בן-יוסף תוריד את זה
    @.zip

    תחלץ, תתקין את זה ידנית וזהו...
    איך להתקין?
    כנס בדפדפן לכאן

    chrome://extensions/
    

    שים לב שמצב מפתחים אצלך מופעל
    תעלה את התיקיה המחולצת
    c9efa67b-3d33-419f-9a30-afdb8faf8770-image.png
    (לא יודע איך זה כתוב בעברית...)

    תרענן את המייל, ויש לך את התוסף!
    על אפם וחמתם של גוגל! 😉

    עובד מעולה!! ישר כח עצום.
    מכיון שזה עומד להיות מבוטל לכולם, אז עשיתי שירות לעוד...

    רשתות

  • בקשת מידע | תוספים לכרום
    י יוסף בן יוסף

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

    @יוסף-בן-יוסף הצלחת עם התוסף השני?
    הסתדרת?

    מעולה, עובד נפלא!! תבורך בכל הברכות.

    רשתות
  • התחברות

  • אין לך חשבון עדיין? הרשמה

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