שיתוף | טיפים למאקרו בוורד
-
האם אתה יכול לעשות ב VBA השוואת טורים בוורד? או שצריך לזה תוכנה חיצונית?
קיים תוסף לוורד, שהוא לא תוכנה חיצונית שהוא מיישר טורים ע"י חלוקה של נקודות בין הפסקאות ובין השורות, אני מכיר מישהו (החפץ בעילום שמו) שמנסה ליצור פקודה דומה, מחכים לתוצאות.....
-
@ששמעון
יישר כח,
הסתדרתי
זה המאקרו:
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