המרת סוגריים להערת שוליים

[בר בי רב]

בדיוק אותו דבר רק במקום

If Selection.Find.Execute(findText:="\(*\)", MatchWildcards:=True,

תכתוב

If Selection.Find.Execute(findText:="\{*\}", MatchWildcards:=True,

ובמקום

        If Mid(Selection.Text, i, 1) = Chr(40) Then
        Selection.Extend Character:=Chr(41)

תכתוב

        If Mid(Selection.Text, i, 1) = Chr(123) Then
        Selection.Extend Character:=Chr(125)

תודה על העזרה
זאת התגובה
במה טעיתי?

 

[בר בי רב]

עכשיו זו התגובה

 

[moishy]

תלחץ על צירוף המקשים ctrl+pause/break
אח"כ תפעיל את הקוד
לאחר שהקוד נתקל בשגיאה יש לעצור את הקוד, רק אח"כ ניתן להפעילו שוב.

 

[בר בי רב]

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

Sub ParenthesisToFootnote()
Application.ScreenUpdating = False
again:
Selection.Find.ClearFormatting
If Selection.Find.Execute(findText:="\{*\}", MatchWildcards:=True, Wrap:=wdFindStop) = True Then
    strt = 2: lent = Len(Selection.Text)
re:
     For i = strt To lent
        If Mid(Selection.Text, i, 1) = Chr(123) Then
        Selection.Extend Character:=Chr(125)
        strt = i + 1: lent = Len(Selection.Text)
        GoTo re
        End If
     Next
If Selection.Range.HighlightColorIndex = wdYellow Then
mRange = Right(Selection.Text, (Len(Selection.Text) - 1))
Selection.Delete
    ActiveDocument.Footnotes.Add Range:=Selection.Range, Reference:="", Text:=Left(mRange, (Len(mRange) - 1)) & "."
    If Selection.Previous.Text = " " Then Selection.Delete Unit:=wdCharacter, Count:=-1
End If
Selection.Move
GoTo again
End If
Application.ScreenUpdating = True
End Sub

 

[בר בי רב]

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

 

[Yisrael]

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

If Selection.Range.HighlightColorIndex = wdYellow Then

ואת ה-

END IF

שבא אחריה

 

[בר בי רב]

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

Sub סוגריים_להערות()
Application.ScreenUpdating = False
again:
Selection.Find.ClearFormatting
If Selection.Find.Execute(findText:="\{*\}", MatchWildcards:=True, Wrap:=wdFindStop) = True Then
    strt = 2: lent = Len(Selection.Text)
re:
     For i = strt To lent
        If Mid(Selection.Text, i, 1) = Chr(123) Then
        Selection.Extend Character:=Chr(125)
        strt = i + 1: lent = Len(Selection.Text)
        GoTo re
        End If
     Next
mRange = Right(Selection.Text, (Len(Selection.Text) - 1))
Selection.Delete
    ActiveDocument.Footnotes.Add Range:=Selection.Range, Reference:="", Text:=Left(mRange, (Len(mRange) - 1)) & "."
    If Selection.Previous.Text = " " Then Selection.Delete Unit:=wdCharacter, Count:=-1
GoTo again
End If
Application.ScreenUpdating = True
End Sub

 

[Yisrael]

בשמחה!

 

[משיח מגיע]

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