האם יש אפשרות לעשות שכשאתה מדגיש מילים בוורד הם יוקפו בסוגריים ע"י מאקרו?

[ששמעון]

איך עושים זאת ואיך עושים שיהיה אפשרות למרובעות ועגולות.
אם יש למישהו מאקרו מוכן אשמח שיודיע וישלח לי.
תודה.

[רחמים]

@ששמעון יש לי תוסף שנקרא 'קבוצת עיצוב' שיש בו הרבה כלים ובין השאר מה שאתה מבקש, ראה כאן

[נגן]

@ששמעון תעשה מאקרו כזה:
בוחר המילה (clrl+shift+חץ שמאלי)
מדגיש אותה
גוזר
כותב ()
צועד תו אחד אחורה
מדביק

ומאקרו שני עם [] במקום ()

[dmp]

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

Selection.Text = "(" & Selection.Text & ")"

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

@ששמעון אמר בהאם יש אפשרות לעשות שכשאתה מדגיש מילים בוורד הם יוקפו בסוגריים ע"י מאקרו?:

ואיך עושים שיהיה אפשרות למרובעות ועגולות.

וכן תעשה למרובעות וכן תעשה למרכאות כמו ההוראות של @dmp ,
(וכמובן להוסיף לפני"ז "Sub שם_המאקרו()" ולבסוף "End Sub")
ואיך אני עושה במשפט מסוים שכשאני מדגיש , באמצעות מאקרו שיוחלף מסוגר { לסוגר כזה ( . בלי להכיל כן לכל המשפט רק בקטע שאני הדגשתי עכשיו, וכן לכל סוגי החלפות במצב שהמילה שתוחלף חלק ממנה תישאר במצב פתוח שאוכל בכל פעם לבחור מילים אחרות, ורק מצב ההחלף ב תישאר כבתחילה..? @dmp

[dmp]

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

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

@dmp זה עובד גם לשנות את עצם המילה שבתיבת "חיפוש" שאותה אני רוצה שאוכל להחליף כל פעם ע"י בחירה עם העכבר, ?

[dmp]

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

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

@dmp עוד פעם , שאלתי אם יש דרך כשיש לי מילה קבועה שאליה ארצה להחליף כל פעם מילים אחרים , דהיינו שבמאקרו תיבת ההחלף ב תישאר כבהקלטה אבל מילת ההחלפה = החיפוש תשתנה כל פעם לפי מה שבחרתי עם העכבר?

[dmp]

@מלאכת-מחשבת אמר בהאם יש אפשרות לעשות שכשאתה מדגיש מילים בוורד הם יוקפו בסוגריים ע"י מאקרו?:

@ששמעון אמר בהאם יש אפשרות לעשות שכשאתה מדגיש מילים בוורד הם יוקפו בסוגריים ע"י מאקרו?:

ואיך עושים שיהיה אפשרות למרובעות ועגולות.

וכן תעשה למרובעות וכן תעשה למרכאות כמו ההוראות של @dmp ,
(וכמובן להוסיף לפני"ז "Sub שם_המאקרו()" ולבסוף "End Sub")

לגבי מרכאות יש להשתמש בקוד הבא:

Selection.Text = Chr(34) & Selection.Text & Chr(34)

וזאת משום שאי אפשר לשים מרכאות בתוך מרכאות

[dmp]

@מלאכת-מחשבת אמר בהאם יש אפשרות לעשות שכשאתה מדגיש מילים בוורד הם יוקפו בסוגריים ע"י מאקרו?:

@dmp עוד פעם , שאלתי אם יש דרך כשיש לי מילה קבועה שאליה ארצה להחליף כל פעם מילים אחרים , דהיינו שבמאקרו תיבת ההחלף ב תישאר כבהקלטה אבל מילת ההחלפה = החיפוש תשתנה כל פעם לפי מה שבחרתי עם העכבר?

אולי על ידי דוגמא אוכל להבין יותר טוב את כוונתך.

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

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

[מגדלים]

@ששמעון הסתדר לך?

[מגדלים]

@dmp אם שמת לב במידה שהמילים שבחרתי הם סוף שורה ויש ריווח אחרי המילה ואני בוחר גם אותה הסוגר שסוגר יורד שורה, יש לך פתרון לזה?
ואם תוכל להביא לנו דוגמא לפקודה כשרוצים לעלות שורה קודם ולהוסיף מילה , לרדת שורה לאחרי המשפט שבחרתי והוסיף מילה.
ועוד כנ"ל רק גם להוסיף מילה בשורה למעלה ולמטה וגם להוסיף מילה לפני המשפט באותו שורה (וגם אם אפשרות לאחריה).
ועוד כנ"ל להוספת מילה אבל אם אופציה שכשאני בוחר מילה מהמשפט אוטומטי הוא יבחר בכל הקטע הנוכחי אפי' שלא בחרתי בכל הקטע שהוא יקלוט לבד את כל הקטע ויעלה שורה כנ"ל וכן ירד שורה כנ"ל.
אם אפשר כאו"א מהנ"לבקוד נפרד , תודה רבה זה מאוד נחוץ לי.

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

פוסט זה נמחק!