בקשה | פקודות מקרו בוורד.

[אוריי]

@yossiz
אני מנסה לעשות הקלטת מאקרו ואז להכניס כלולאה אבל משום מה הקוד שהבאת לא מוצא שום ערך בחיפוש
למה זה כך?

[הללוהו]

@אוריי לא בחרת "השתמש בתוים כללים"!
בעצם זה מה שאני רוצה לדעת איך מכניסים לולאה ואיפה?

[הללוהו]

@www @אוריי אני צריך שאוכל להכניס הרבה סוגי מילים שבכל סוגריים שמופיע בהם אחד מהם הוא יתחלף מכזה ( ) לכזה { ] בתודה ,ודה בטח יעזור לי כי אני לא צריך לשנות בכל טקסט את החיפוש כי אותם המילים שאני רוצה שכשיהיו בסוגריים ישתנה הסוגריים, אני רוצה בכל בכל הטקסטים אותם המילים בחיפוש ...(הכולל ה-כ"ד ספרים ועוד אבל את זה אני כבר אכניס במאקרו קודם אם יש אפשרות כזו...)
ולא רק על מילת בראשית ..
תודה רבה לכל העוזרים והמתייגעים!!!
זה מאוד דחוף לי.

@www אמר בבקשה | פקודות מקרו בוורד.:

במקרה כזה קל לשים פעמיים את המשתנה שכרגע בטיפול.

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

[אוריי]

@הללוהו
הגעתי לאיזו שהיא תוצאה
אבל מבדיקה שלי משום מה הוא לא מגיע ל100% דיוק
אני לא יודע למה זה קורה
יש לך אולי איזה קובץ דוגמא שאני יעשה עליו בדיקה?
אם לא תרצה להעלות את זה ציבורי תוכל לשלוח לי במייל שבחתימה

[אוריי]

@הללוהו
אני יביא את הקוד שעשיתי יש עוד מה לשפר אבל הרעיון עובד

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

Sub HighlightMatchesAndSummarize()
        Dim strArray As String
    'GET DATA FROM EXCEL
    Dim xlApp As Object
    Dim xlBook As Object
    Const strWorkBookName As String = "C:\Users\User\Documents\uri.xlsx"
    On Error Resume Next
    Set xlApp = GetObject(, "Excel.Application")
    If Err Then
        Set xlApp = CreateObject("Excel.Application")
    End If
    On Error GoTo 0
    Set xlBook = xlApp.Workbooks.Open(FileName:=strWorkBookName)
    'xlApp.Visible = True
    xlApp.Visible = False
    'transpose excel cells in our arrays
    Dim w
    w = 1
    Do While xlApp.ActiveSheet.range("a" & w) <> ""
    strArray = xlApp.ActiveSheet.range("A" & w).Value
    Search (strArray)
    w = w + 1
    Loop

    Set xlBook = Nothing
    xlApp.Quit
    Set xlApp = Nothing
    
End Sub

Public Function Search(text As String)

    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .text = "\((*)" & text & "(*)\)"
        .Replacement.text = "{\1" & text & "\2}"
        .Forward = True
        .Wrap = wdFindContinue
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll

End Function

3. תשנה בשורה 6 את המיקום של הקובץ אקסל שיצרת
   ונשאר לך פשוט להפעיל את המאקרו
   בהצלחה

[הללוהו]

@yossiz ולכל העוסקים במלאכה, נראה לי דבנידון דידן כהמשך לדברי yossiz לעיל, עדיף לעשות כך:

\((בראשית)(*)\)

החלף ב:

{‎\1\2‎}

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

בתודה.

[מנחם]

@הללוהו אמר

לא הסתדרתי כ"כ עם זה אם אפשר להסביר שוב.
בתודה.

אולי תפרט בבקשה מה לא הסתדרת?
הרי מה יעזור להסביר שוב אותו דבר!

[הללוהו]

@מנחם
אני לא הסתדרתי עם רישום מיקום האקסל , זהו דבר ראשון וע"ז עיכב אותי המאקרו , מקווה שרק זה הבעיה.
(ניסית את הנ"ל והסתדרת עם זה, שאתה שואל?)

[מנחם]

@הללוהו אמר בבקשה | פקודות מקרו בוורד.:

@מנחם
אני לא הסתדרתי עם רישום מיקום האקסל , זהו דבר ראשון וע"ז עיכב אותי המאקרו , מקווה שרק זה הבעיה.
(ניסית את הנ"ל והסתדרת עם זה, שאתה שואל?)

אז אני ינסה לעזור לך
אבל אין לי יותר מידי לפרט כי @אוריי נתן הוראות מפורטות
בשורה 6 בקוד הנ"ל
ואני מצרף את השורה הזאת כאן

    Const strWorkBookName As String = "C:\Users\User\Documents\uri.xlsx"

בשורה הזאת רשום שם של קובץ שזה נמצא במחשב של @אוריי
אתה צריך לשנות את זה לשם של קובץ במחשב שלך

אבל אני עדיין לא מבין מה לא הסתדרת?
אולי אתה לא מצליח למצוא נתיב של קובץ ?
אולי העתק הדבק לא עובד טוב?
כמה שאתה מנסה יותר לפרט ולפרט
ככה אפשר לעזור לך הרבה יותר

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

[הללוהו]

@מנחם אמר בבקשה | פקודות מקרו בוורד.:

אולי העתק הדבק לא עובד טוב?

איך אני עושה העתק הדבק בשם של הקובץ ?
למשל הקובץ מונח לי ב דיסק X בתוך תיקיה "תוכנות" ושם האקסל זה "חפש והחלף " מה אני אמור לרשום?

[מנחם]

@הללוהו שאלת חכם חצי תשובה
אני יפרט איך שאני עושה
אני בטוח שיש עוד דרכים
לחיצה ימנית על הקובץ>מאפיינים
יש שורה של מיקום תעתיק את כל השורה הזאת
ותדביק את זה בין המרכאות בשורה 6 הנ"ל

[WWW]

@מנחם אמר בבקשה | פקודות מקרו בוורד.:

אני בטוח שיש עוד דרכים

שיפט + לחיצה ימנית > העתק נתיב ללוח.

[הללוהו]

@מנחם ואיפה לכתוב שם הקובץ?
הוא כותב לי שגיאה זו: מה אני אמור לעשות שיוכל לקרוא את האקסל? @אוריי

[אוריי]

@הללוהו
האקסל שלך פתוח?

[הללוהו]

@אוריי לא!
האם לפתוח אותה אפי' לא כתבתי את שם האקסל העתקתי כך "C:\‏‏תיקיה חדשה" (הפוך.) האם אני צריך להוסיף משהו חוץ ממה שכתוב במיקום?

[אוריי]

@הללוהו לא! זה צריך להיות סגור
איפה הכנסת את הקוד?
אתה יכול להביא צילום מסך?

[הללוהו]

@אוריי

[אוריי]

@הללוהו לא הכנסת את שם הקובץ נכון
יש להכניס נתיב נכון כולל סיומת של הקובץ

[הללוהו]

@אוריי
הידד!!!
הצלחתי!!!!!!
באמצעות המקרו הנ"ל של אוריי.
תודה לכל העוזרים והמסייעים והמסתעף, ( @אוריי @מנחם @WWW @yossiz ).

[אוריי]

@הללוהו
בעמודה A באקסל תרשום בראשית שמות וכו'
אחד אחרי השני כל תא שם לחיפוש והחלפה
מה שהקוד הזה יעשה הוא יחליף את הסוגריים