נכתב ע"י אלחנן אריאל;735314:מה זה המרת סוגריים להערות שוליים?
נכתב ע"י אלחנן אריאל;735352:מסתבר כי כוונתך לאשכול הזה:
http://www.prog.co.il/showthread.php?t=19255&highlight=הערות+שוליים+סוגריים
נכתב ע"י Yisrael;735448:האם אתה צריך את זה דווקא בוורד או שההודעה של 'גרפיקנער' הספיקה לך?
With Selection
a: .Find.Execute FindText:="\(*\)", MatchWildcards:=True
If .Find.Found = True Then
If .Range.HighlightColorIndex = wdYellow Then
.Cut
.End = .start - 1
.Bookmarks.Add "a", Selection
.Footnotes.Add Selection.Range
.PasteAndFormat (wdFormatPlainText)
.GoTo What:=wdGoToBookmark, Name:="a"
ActiveDocument.Bookmarks("a").Delete
GoTo a
Else
GoTo a
End If
End If
End With
אנסה,תודה רבהנכתב ע"י Yisrael;735466:תנסה את זה:
קוד:With Selection a: .Find.Execute FindText:="\(*\)", MatchWildcards:=True If .Find.Found = True Then If .Range.HighlightColorIndex = wdYellow Then .Cut .End = .start - 1 .Bookmarks.Add "a", Selection .Footnotes.Add Selection.Range .PasteAndFormat (wdFormatPlainText) .GoTo What:=wdGoToBookmark, Name:="a" ActiveDocument.Bookmarks("a").Delete GoTo a Else GoTo a End If End If End With
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(40) Then
Selection.Extend Character:=Chr(41)
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
נכתב ע"י eliezer;736113:אינני בקיא בעניין.
אז נסיתי לפתוח פקודת מאקרו קיימת ולהדביק במקומה את הקוד.
הקוד של קרש הכל נתקע ונסגר התוכנה,
הקוד האחרון של ישראל, פשוט לא עבד שנסתי להפעיל צצו כל מני הודעות שגיאה..
תודה רבה!
ניסתי שוב-
עבד מצויין.
תודה עצומה!!!
נכתב ע"י Yisrael;736185:אז עכשיו הכל בסדר?
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)
אל תחמיצו!!!
מנוי פרימיום באתר פרוג, יקפיץ את המוניטין שלך לקהל גדול שאסור לך להחמיץ!
ועכשיו בהזדמנות, מבצע פסח 10% הנחה ברכישת מנוי שנתי!
לוח לימודים
מסלולי לימוד שאפשר לההצטרף
אליהם ממש עכשיו:
2.04
כ"ג אדר ב'
השקה חגיגית
חדש בפרוג
קורס חדשנות AI ובינה מלאכותית
14 שיעורים מפוצצים תוכן על כלי הAI השונים ליצירת תמונות וויז'ואל, עריכת וידאו ומושן, כתיבה ורעיונות, אפיון ועיצוב אתרים ועוד המון!
ההרשמה נפתחה!
20.03
י' אדר ב'
פתיחת מסלול
עיצוב ואדריכלות פנים
מלגות גבוהות!
26.03
טז' אדר ב'
פתיחת מסלול
מאסטר בשיווק דיגיטלי
מלגות גבוהות!
8.05
ל' ניסן
פתיחת מסלול
אוטומציות עסקיות, בוטים והטמעת מערכות מידע
מלגות גבוהות!
9.05
א' אייר
ירושלמי?
יש לנו מלגה מטורפת עבורך! קורס במימון כמעט מלא!!
אוטומציות עסקיות, בוטים והטמעת מערכות מידע
ההרשמה בעיצומה
28.05
כ' אייר
פתיחת מסלול מורחב:
פיתוח ובניית אתרים
מלגות גבוהות!
תהילים פרק קכא
א שִׁיר לַמַּעֲלוֹת אֶשָּׂא עֵינַי אֶל הֶהָרִים מֵאַיִן יָבֹא עֶזְרִי:ב עֶזְרִי מֵעִם יְהוָה עֹשֵׂה שָׁמַיִם וָאָרֶץ:ג אַל יִתֵּן לַמּוֹט רַגְלֶךָ אַל יָנוּם שֹׁמְרֶךָ:ד הִנֵּה לֹא יָנוּם וְלֹא יִישָׁן שׁוֹמֵר יִשְׂרָאֵל:ה יְהוָה שֹׁמְרֶךָ יְהוָה צִלְּךָ עַל יַד יְמִינֶךָ:ו יוֹמָם הַשֶּׁמֶשׁ לֹא יַכֶּכָּה וְיָרֵחַ בַּלָּיְלָה:ז יְהוָה יִשְׁמָרְךָ מִכָּל רָע יִשְׁמֹר אֶת נַפְשֶׁךָ:ח יְהוָה יִשְׁמָר צֵאתְךָ וּבוֹאֶךָ מֵעַתָּה וְעַד עוֹלָם: