התניית מאקרו לסגנון מסויים או קטע נבחר בלבד

[2u2]

השתמשתי במאקרו המצוין להפיכת סוגריים להערת שוליים בקישור הבא: http://www.prog.co.il/showthread.php?p=2499123
אבל הוא תוכנן לפעול ברצף ממקום הסמן והלאה אודה אם תוכלו לכתוב מה הקוד הנדרש להחיל אותו רק על סגנון מסויים או טקסט נבחר בלבד.

 

[Yisrael]

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

Sub ParenthesisToFootnote1()
Application.ScreenUpdating = False
Set MyRange = Selection.Range
again:
MyRange.Select
Selection.Find.ClearFormatting
Selection.Find.Style = "רגיל"
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(40) Then
        Selection.Extend Character:=Chr(41)
        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

 

[2u2]

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

 

[2u2]

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