הנושאים החמים
- הוסף לסימניות
- #1
הקלטתי מאקרו לפעולה מסוימת, אולם כשאני מפעיל המאקרו, בלי ששיניתי כלום, זה לא עובד כמו כאשר הקלטתי.
מצו"ב נוסחת המאקרו, והבאג מראה על השורה האחרונה:
מצו"ב נוסחת המאקרו, והבאג מראה על השורה האחרונה:
קוד:
Sub החלפת_וגו_4()
'
' החלפת_וגו_4 Macro
'
'
Selection.Find.ClearFormatting
With Selection.Find
.Text = ") וגו'"
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchKashida = False
.MatchDiacritics = False
.MatchAlefHamza = False
.MatchControl = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute
Selection.MoveRight Unit:=wdCharacter, Count:=1
Selection.MoveLeft Unit:=wdWord, Count:=1, Extend:=wdExtend
Selection.Cut
Selection.TypeBackspace
Selection.Find.ClearFormatting
With Selection.Find
.Text = "("
.Replacement.Text = ""
.Forward = False
.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.Execute
Selection.MoveLeft Unit:=wdCharacter, Count:=1
Selection.PasteAndFormat (wdFormatOriginalFormatting)
End Sub
