שיתוף | טיפים למאקרו בוורד

[ששמעון]

@פייתוניסט אמר בשיתוף | טיפים למאקרו בוורד:

אבל אני גם לא רע בVBS אולי אפילו יותר מפייתון

האם אתה יכול לעשות ב VBA השוואת טורים בוורד? או שצריך לזה תוכנה חיצונית?

[poker]

האם אתה יכול לעשות ב VBA השוואת טורים בוורד? או שצריך לזה תוכנה חיצונית?

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

[פייתוניסט]

@ששמעון חפש בפורום מישהו כבר עשה את זה

[ששמעון]

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

[פייתוניסט]

@ששמעון לא יודע זכור לי שראיתי דבר כזה בפורום

[poker]

חפש בפורום מישהו כבר עשה את זה

בטוח? לא נראה לי בכלל.

[ש. בר.]

@ששמעון מה זה תיקיית טאמפלט?

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

[ששמעון]

@ש-בר אולי בהמשך בל"נ.
יש לפנינו בין הזמנים עמוס...

[israel li]

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

[ששמעון]

@israel-li לא מכיר אפשרות כזאת.

[israel li]

@ששמעון
יישר כח,
הסתדרתי
זה המאקרו:
Sub Macro5()
'
' Macro5 Macro
'
'
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.text = Selection.Range
.Replacement.text = ""
.Forward = True
.Wrap = wdFindAsk
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchKashida = False
.MatchDiacritics = False
.MatchAlefHamza = False
.MatchControl = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
Selection.Find.Replacement.Font.Color = -721354753
With Selection.Find
.Replacement.text = ""
.Forward = True
.Wrap = wdFindAsk
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchKashida = False
.MatchDiacritics = False
.MatchAlefHamza = False
.MatchControl = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub