בקשה | פקודות מקרו בוורד.
-
@yossiz ולכל העוסקים במלאכה, נראה לי דבנידון דידן כהמשך לדברי yossiz לעיל, עדיף לעשות כך:
\((בראשית)(*)\)החלף ב:
{\1\2}ואפשר דעי"ז יהיה יותר קל להשאיר את המשתנה ורק לשנות את ה'חפש את'...
אשמח לתגובות, וכן לכל מי שיש לו עוד סוגי הצעות ופיתרונות אשמח לשמוע.בתודה.
-
@הללוהו אמר
לא הסתדרתי כ"כ עם זה אם אפשר להסביר שוב.
בתודה.אולי תפרט בבקשה מה לא הסתדרת?
הרי מה יעזור להסביר שוב אותו דבר! -
@מנחם
אני לא הסתדרתי עם רישום מיקום האקסל , זהו דבר ראשון וע"ז עיכב אותי המאקרו , מקווה שרק זה הבעיה.
(ניסית את הנ"ל והסתדרת עם זה, שאתה שואל?)@הללוהו אמר בבקשה | פקודות מקרו בוורד.:
@מנחם
אני לא הסתדרתי עם רישום מיקום האקסל , זהו דבר ראשון וע"ז עיכב אותי המאקרו , מקווה שרק זה הבעיה.
(ניסית את הנ"ל והסתדרת עם זה, שאתה שואל?)אז אני ינסה לעזור לך
אבל אין לי יותר מידי לפרט כי @אוריי נתן הוראות מפורטות
בשורה 6 בקוד הנ"ל
ואני מצרף את השורה הזאת כאןConst strWorkBookName As String = "C:\Users\User\Documents\uri.xlsx"בשורה הזאת רשום שם של קובץ שזה נמצא במחשב של @אוריי
אתה צריך לשנות את זה לשם של קובץ במחשב שלךאבל אני עדיין לא מבין מה לא הסתדרת?
אולי אתה לא מצליח למצוא נתיב של קובץ
?
אולי העתק הדבק לא עובד טוב?
כמה שאתה מנסה יותר לפרט ולפרט
ככה אפשר לעזור לך הרבה יותר(ובהקשר למה שכתבת לנסות את הנ"ל, בשבילי הדברים כ"כ פשוטים שאני לא מצליח להבין מה יש לנסות את הנ"ל-כלומר "רישום מיקום האקסל")
תפרט בבקשה וישמחו לעזור לך -
@הללוהו אמר בבקשה | פקודות מקרו בוורד.:
@מנחם
אני לא הסתדרתי עם רישום מיקום האקסל , זהו דבר ראשון וע"ז עיכב אותי המאקרו , מקווה שרק זה הבעיה.
(ניסית את הנ"ל והסתדרת עם זה, שאתה שואל?)אז אני ינסה לעזור לך
אבל אין לי יותר מידי לפרט כי @אוריי נתן הוראות מפורטות
בשורה 6 בקוד הנ"ל
ואני מצרף את השורה הזאת כאןConst strWorkBookName As String = "C:\Users\User\Documents\uri.xlsx"בשורה הזאת רשום שם של קובץ שזה נמצא במחשב של @אוריי
אתה צריך לשנות את זה לשם של קובץ במחשב שלךאבל אני עדיין לא מבין מה לא הסתדרת?
אולי אתה לא מצליח למצוא נתיב של קובץ ?
אולי העתק הדבק לא עובד טוב?
כמה שאתה מנסה יותר לפרט ולפרט
ככה אפשר לעזור לך הרבה יותר(ובהקשר למה שכתבת לנסות את הנ"ל, בשבילי הדברים כ"כ פשוטים שאני לא מצליח להבין מה יש לנסות את הנ"ל-כלומר "רישום מיקום האקסל")
תפרט בבקשה וישמחו לעזור לך -
@מנחם אמר בבקשה | פקודות מקרו בוורד.:
אולי העתק הדבק לא עובד טוב?
איך אני עושה העתק הדבק בשם של הקובץ ?
למשל הקובץ מונח לי ב דיסק X בתוך תיקיה "תוכנות" ושם האקסל זה "חפש והחלף " מה אני אמור לרשום? -
@הללוהו שאלת חכם חצי תשובה
אני יפרט איך שאני עושה
אני בטוח שיש עוד דרכים
לחיצה ימנית על הקובץ>מאפיינים
יש שורה של מיקום תעתיק את כל השורה הזאת
ותדביק את זה בין המרכאות בשורה 6 הנ"ל -
@הללוהו שאלת חכם חצי תשובה
אני יפרט איך שאני עושה
אני בטוח שיש עוד דרכים
לחיצה ימנית על הקובץ>מאפיינים
יש שורה של מיקום תעתיק את כל השורה הזאת
ותדביק את זה בין המרכאות בשורה 6 הנ"ל -
-
@אוריי לא!
האם לפתוח אותה אפי' לא כתבתי את שם האקסל העתקתי כך "C:\תיקיה חדשה" (הפוך.) האם אני צריך להוסיף משהו חוץ ממה שכתוב במיקום? -
-
@הללוהו
בעמודה A באקסל תרשום בראשית שמות וכו'
אחד אחרי השני כל תא שם לחיפוש והחלפה
מה שהקוד הזה יעשה הוא יחליף את הסוגריים -
-
@אוריי הוא כבר כתב לעיל, על מה שהבאת שזה עובד!
-
@הללוהו
אני יביא את הקוד שעשיתי יש עוד מה לשפר אבל הרעיון עובד- תיצור קובץ אקסל ותכניס בעמודה A את כל הערכים לחיפוש תקרא לו שם ותשמור ולסגור את הקובץ.
- תכניס בוורד את הקוד הבא
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- תשנה בשורה 6 את המיקום של הקובץ אקסל שיצרת
ונשאר לך פשוט להפעיל את המאקרו
בהצלחה
-
@אוריי הוא משבש אותי וכותב לי שגיאה (לאחרונה, בתחילה כן עבד לי ועכשיו עם מחשב אחר..) בשורה 31 הנ"ל.
אם ידוע לך פיתרון אשמח לשמוע.
מה אני אמור לעשות שיוכל לקרוא את האקסל? 
