אופיס 365 בעיות במאקרו

[DMD]

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

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

ב) אחת מההחלפות הוא לשנות גם את הפונט וכן הגודל והצבע. הגודל והצבע המקרו כן עושה, אבל שינוי הפונט לא עובד???

בבקשה, אני מאוד 'טרי' בעשיית מקרו, מי שיכול לעזור ולהראות לי את הדרך, מאוד אודה לו. - ויותר-תודה מראש!

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

 

[Yisrael]

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

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

Selection.Range.HighlightColorIndex = wdYellow

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

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

הפתרון בשביל זה הוא לשנות את החיפוש ל-FindStop בשורה הבאה:

.Wrap = wdFindStop

ולעשות לולאה שהיציאה ממנה תתרחש כאשר לא יימצא הטקסט המחופש, כך:

Do
    Selection.Find.ClearFormatting
    With Selection.Find
        .Text = "navbits_finallink_*,"
        .Replacement.Text = "^&^p"
        .Forward = True
        .Wrap = wdFindStop
        .Format = True
        .MatchCase = False
        .MatchWholeWord = False
        .MatchKashida = False
        .MatchDiacritics = False
        .MatchAlefHamza = False
        .MatchControl = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Range.HighlightColorIndex = wdYellow
      If Selection.Find.Found = False Then Exit Do
 Loop

ב. תשים לב שלפני כל חיפוש שמשנה את הפונט מופיע הקוד הבא רק בלי שורת ה-Name:

    With Selection.Find.Replacement.Font
        .Size = 18
        .Color = 5287936
        .Name = ""
    End With

בשורת ה-Name שהוספתי תכתוב (בין המרכאות) את שם הפונט.

למה בהקלטה זה לא תפס איני יודע.

 

[DMD]

תודה רבה Yisrael!!!!!
ועל הכל ההסבר המפורט והמדהים - תודה גדולה!!!

והנה:
לגבי השם פונט, כבר עשיתי וזה עבד מצויין - תודה רבה!

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

תודה רבה עוד הפעם - ממש להפליא.

כל טוב,
והצלחה רבה - ויותר!

 

[Yisrael]

סתם, מעניין מהו הדבר המוזר שקרה...

 

[DMD]

סתם, מעניין מהו הדבר המוזר שקרה...

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

 

[DMD]

Yisrael
אני רוצה להגיד לך עוד פעם "תודה" על העזרה הנ"ל.

למעשה, כמו שאמרתי לעיל, העצה לענין שם הפונט עבד מצויין!

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

רק בבקשה תעדכן אותי אם יש איזה בעיה במה שעשיתי! - תודה


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

Sub AllTablestoText()
 '
 ' AllTablestoText Macro
 ' Macro created by Jaros?aw Michalak
 '
 For Each aTable In ActiveDocument.Tables
 
 aTable.ConvertToText wdSeparateByCommas, True
 
 Next aTable
 
 End Sub

תודה רבה רבה!

 

[Yisrael]

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

פשוט וקל!

שאלתי מהו הדבר המוזר שקרה כאשר השתמשת בקוד שנתתי לך כמו שכתבת קרה דבר מוזר...

לגבי חיבור מאקרו'ס אתה פשוט תעתיק את המאקרו הנ"ל של ביטול הטבלאות ותדביק אותו בתוך המאקרו השני לפני הכל, כך הוא קודם כל יבטל את הטבלאות ואח"כ יריץ את שאר הפקודות.

 

[DMD]

Yisrael, ממש תודה רבה. עזרת והחכמת אותי מאוד.
מחילה על שלא הגבתי בינתיים, משהו אחר לקח את הריכוז שלי!

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

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

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

תודה רבה
דוד

 

[Yisrael]

אשמח לראות את הקבצים, אשלח לך את המייל באישי.

 

[Rרחמים]

הנה מאקרו שמצאתי בעזרה

Sub דוגמא()
Dim rngTemp As Range
'בחר צבע סימון
Options.DefaultHighlightColorIndex = wdBlue
 
Set rngTemp = ActiveDocument.Range(start:=0, End:=0)
With rngTemp.Find
    .ClearFormatting
 '   .Highlight = False
    With .Replacement
        .ClearFormatting
        .Highlight = True
    End With
    .Execute Replace:=wdReplaceAll, Forward:=True, FindText:="מילה לחיפוש", _
         ReplaceWith:="", Format:=True
End With
End Sub

אתה בוחר צבע ואת המילה או האות לחיפוש וכל הטקסט המתאים מואר בצבע שבחרת!