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

[אוריי]

@הללוהו
הגעתי לאיזו שהיא תוצאה
אבל מבדיקה שלי משום מה הוא לא מגיע ל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 באקסל תרשום בראשית שמות וכו'
אחד אחרי השני כל תא שם לחיפוש והחלפה
מה שהקוד הזה יעשה הוא יחליף את הסוגריים

[הללוהו]

@אוריי יש אפשרות שתהיה לי רשימה של "חפש" ב- A ושל "החלף ב" ב-B, ובלחיצת מקרו הוא יחליף את כולם, כל תיבה לערך שכנגדו. כעין זה הנ"ל?
(פתחתי לזה נושא חדש למען שמירת הצביון כאן.)

[אוריי]

@הללוהו קודם כל אתה הצלחת להשתמש במה שהבאתי?

[מלאכת מחשבת]

@אוריי הוא כבר כתב לעיל, על מה שהבאת שזה עובד!