מאקרו להקטין סוגריים בתוך סוגריים

צורת הדף

משתמש מקצוען
עיצוב גרפי
עימוד ספרים
עריכה תורנית
שימושי למעמדים בוורד ולהכנת קובץ לתג.

המאקרו עובר מן הסמן והלאה, מחפש סוגריים עגולים ותכולתו ומקטין אותם ב-2 נקודות.

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

  • אם רוצים גם לצבוע טקסט המוסגר כחול, יש להסיר ה'גרש' מתחילת שורה הכחול דלהלן.
המאקרו מיועד בעיקר לכל סוגי סוגריים בתוך סוגריים, המאקרו יקטין מתחילת סוגר ראשון עד סוף סוגר האחרון.

קוד:
Sub round_brackets()
Application.ScreenUpdating = False
again:
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
With Selection
[COLOR=DarkRed]'.InsertBefore "@00": .InsertAfter "@01"[/COLOR]
.Font.SizeBi = .Font.SizeBi - 2
[COLOR=Blue]'.Font.Color = wdColorBlue[/COLOR]
.Collapse (wdCollapseEnd)
End With
GoTo again
End If
Application.ScreenUpdating = True
End Sub
 

צורת הדף

משתמש מקצוען
עיצוב גרפי
עימוד ספרים
עריכה תורנית
כנ"ל לסוגריים מרובעים:
קוד:
Sub square_brackets()
Application.ScreenUpdating = False
again:
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(91) Then
        Selection.Extend Character:=Chr(93)
        strt = i + 1: lent = Len(Selection.Text)
        GoTo re
        End If
     Next
With Selection
[COLOR=DarkRed]'.InsertBefore "@02": .InsertAfter "@03"[/COLOR]
.Font.SizeBi = .Font.SizeBi - 2
[COLOR=Blue]'.Font.Color = wdColorBlue[/COLOR]
.Collapse (wdCollapseEnd)
End With
GoTo again
End If
Application.ScreenUpdating = True
End Sub
 

צורת הדף

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

כמובן יש לערוך/להוסיף/להוריד סגנונות למטה עם קודים מתאימים.

אם רוצים שהמאקרו יזהיר כשסגנון לא נמצא ברשימה, יש להסיר ה'גרש' להלן לפני MsgBox

קוד:
Sub round_brackets_by_style()
Application.ScreenUpdating = False
again:
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
GetStyle befor, eftr
With Selection
.InsertBefore (befor): .InsertAfter (eftr): .Collapse (wdCollapseEnd)
End With
GoTo again
End If
Application.ScreenUpdating = True
End Sub
Function GetStyle(befor, eftr)
Select Case Selection.Range.Style
    Case "Heading 1": befor = "@H1": eftr = "@h1"
    Case "סגנון נוסף": befor = "@XX": eftr = "@xx"
    Case "סגנון נוסף": befor = "@XX": eftr = "@xx"
    Case "לא להכניס קוד בסגנון זה": befor = "": eftr = ""
'    Case "דלג על סגנון זה": befor = "@XX": eftr = "@xx"
    Case Else: befor = "": eftr = ""
'    MsgBox "No code for " & Chr(34) & Selection.Range.Style & Chr(34) & "."
    Selection.Collapse (wdCollapseStart): End
End Select
End Function
 

עמירם יוסף

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

hamefoar

מהמשתמשים המובילים!
מנוי פרימיום
בוגר/תלמיד פרוג
עיצוב גרפי
עימוד ספרים
שימושי ביותר!
האם ניתן לשדרג אותו שיהיה אפשרות לשתול קוד לפני ואחרי הסוגרים החיצוניים, וגם לתת קוד שונה לפני ואחרי הסוגריים הפנימיים?
 

מ.א.ק

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

צורת הדף

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


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

מאיר מימון

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

שיקול דעת

משתמש סופר מקצוען
מנוי פרימיום
בוגר/תלמיד פרוג
עיצוב גרפי
עריכה תורנית
עימוד ספרים
שימושי למעמדים בוורד ולהכנת קובץ לתג.

המאקרו עובר מן הסמן והלאה, מחפש סוגריים עגולים ותכולתו ומקטין אותם ב-2 נקודות.

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

  • אם רוצים גם לצבוע טקסט המוסגר כחול, יש להסיר ה'גרש' מתחילת שורה הכחול דלהלן.
המאקרו מיועד בעיקר לכל סוגי סוגריים בתוך סוגריים, המאקרו יקטין מתחילת סוגר ראשון עד סוף סוגר האחרון.

קוד:
Sub round_brackets()
Application.ScreenUpdating = False
again:
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
With Selection
[COLOR=DarkRed]'.InsertBefore "@00": .InsertAfter "@01"[/COLOR]
.Font.SizeBi = .Font.SizeBi - 2
[COLOR=Blue]'.Font.Color = wdColorBlue[/COLOR]
.Collapse (wdCollapseEnd)
End With
GoTo again
End If
Application.ScreenUpdating = True
End Sub
העתקתי את הקוד, ואני מקבל קוד שגיאה כדלהלן:
הודעת שגיאה - הקטנת דובל סוגריים.png
 

שיקול דעת

משתמש סופר מקצוען
מנוי פרימיום
בוגר/תלמיד פרוג
עיצוב גרפי
עריכה תורנית
עימוד ספרים
כל הכבוד!
עס האט זיך געלוינט צו ווארטן!!
 

גלעד82

משתמש מקצוען
מנוי פרימיום
בוגר/תלמיד פרוג
עיצוב גרפי
עימוד ספרים
אצלי שורה אחרת עושה בעיות

upload_2019-3-13_20-16-0.png


תודה מראש
 

צורת הדף

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

רבנים

משתמש מקצוען
מנוי פרימיום
עיצוב גרפי
פרסום וקופי
עימוד ספרים
שימושי למעמדים בוורד ולהכנת קובץ לתג.

המאקרו עובר מן הסמן והלאה, מחפש סוגריים עגולים ותכולתו ומקטין אותם ב-2 נקודות.

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

  • אם רוצים גם לצבוע טקסט המוסגר כחול, יש להסיר ה'גרש' מתחילת שורה הכחול דלהלן.
המאקרו מיועד בעיקר לכל סוגי סוגריים בתוך סוגריים, המאקרו יקטין מתחילת סוגר ראשון עד סוף סוגר האחרון.

קוד:
Sub round_brackets()
Application.ScreenUpdating = False
again:
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
With Selection
[COLOR=DarkRed]'.InsertBefore "@00": .InsertAfter "@01"[/COLOR]
.Font.SizeBi = .Font.SizeBi - 2
[COLOR=Blue]'.Font.Color = wdColorBlue[/COLOR]
.Collapse (wdCollapseEnd)
End With
GoTo again
End If
Application.ScreenUpdating = True
End Sub
למה זה תוקע לי את המחשב ולקח כל כך הרבה זמן עד שזה פועל?
המחשב שלי ברמה מאד גבוהה!!!!
@צורת הדף יש פתרון יותר מהיר?
 

רבנים

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

Rרחמים

משתמש סופר מקצוען
עיצוב גרפי
איור וציור מקצועי
מוזיקה ונגינה
עריכה תורנית
D I G I T A L
עימוד ספרים
יש לי תוסף לוורד שנקרא 'קבוצת עיצוב' שעושה כמה דברים ובינהם עיצוב סוגריים, כולל סוגריים בתוך סוגריים.
ראה בקטלוג שבאתר שלי

הלחצן הכל () מחפש את כל הסוגריים העגולים ומעצב אותם לפי העיצוב הנבחר
והלחצן הכל [] מעצב את הסוגריים המרובעים
והלחצן הכל " " מעצב את כל המילים שבתוך מרכאות

upload_2020-1-20_21-58-24.png


אגב יש בתוסף זה לחצנים 'צמצם מילים' ו'פזר מילים' שהסברתי עליהם בסרטון הזה.
 

נקדן זריז

משתמש מקצוען
מנוי פרימיום
בוגר/תלמיד פרוג
עיצוב גרפי
עימוד ספרים
עריכה תורנית
שימושי למעמדים בוורד ולהכנת קובץ לתג.

המאקרו עובר מן הסמן והלאה, מחפש סוגריים עגולים ותכולתו ומקטין אותם ב-2 נקודות.

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

  • אם רוצים גם לצבוע טקסט המוסגר כחול, יש להסיר ה'גרש' מתחילת שורה הכחול דלהלן.
המאקרו מיועד בעיקר לכל סוגי סוגריים בתוך סוגריים, המאקרו יקטין מתחילת סוגר ראשון עד סוף סוגר האחרון.

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

נקדן זריז

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

בוורד בלשונית 'תצוגה' יש בצד שמאל כפתור שנקרא 'פקודות מאקרו'. [או בכרטיסיה 'מפתחים' למי שהגדיר בוורד שיופיע לו לשונית זו. שם יש אפשרות להקליט מאקרו. אתה לוחץ על הכפתור, והוא כעת מקליט את הפעולות שאתה עושה. צריך לתת לפני כן שם להקלטה. רק שאי אפשר לעשות רוח כאשר השם הוא בן שני מילים או יותר. צריך להשתמש ב_ כדי לתת רווח בין מילה למילה.
יש גם אפשרות להקצות קיצור במקלדת שבכל פעם שלוחצים על הקיצור הזה כאשר הוורד פתוח הוא יפעיל את המאקרו.
אפשר להקליט חיפוש והחלפה כל שהוא. או הקלדה כל שהיא. לצורך הענין אמחיש. אם למשל אתה רוצה שבלחיצת כפתור יתווסף סוגרים והסמן יכנס לבין הסוגרים אתה עושה הקלטה ובעת ההקלטה אתה מקליד סוגרים ומעביר עם לחצני החיצים את הסמן לבין הסוגריים ומסיים את ההקלטה.
בכל פעם שמפעילים את ההקלטה הוא עושה את הפעולה המוקלטת.
כעת כדי להשתמש במאקרו של ר' צורת הדף עליך לעשות כך. להקליט מאקרו ולא לעשות שום פעולה אלא לסיים מיד לאחר תחילת ההקלטה. לאחר מכן רק להציג את פקודות המאקרו [אפשר גם עם אלט F8. שפותח את רשימת המאקרויים] ולבחור ב'ערוך'. כעת צריך להעתיק את המאקרו של ר' צורת הדף ולהדביק במקום המאקרו [מתחת לשורה עם שם המאקרו שיש בצד ימין סוגרים כאלו (). רק שים לב שהשורה האחרונה שמראה על סיום המאקרו תיהיה כפולה ויש למחוק אחד מהם. וכן למחוק משם את כל מה שבתוך סוגריים מרובעות. [4 סוגריים כאלו בתוך כל המאקרו]. ואז בכל פעם שתפעיל את המאקרו הוא יפעל בעז"ה ובסייעתא דשמיא.
מקוה שהכל ברור
 

אולי מעניין אותך גם...

הפרק היומי

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


תהילים פרק קיט ב'

ט בַּמֶּה יְזַכֶּה נַּעַר אֶת אָרְחוֹ לִשְׁמֹר כִּדְבָרֶךָ:י בְּכָל לִבִּי דְרַשְׁתִּיךָ אַל תַּשְׁגֵּנִי מִמִּצְוֹתֶיךָ:יא בְּלִבִּי צָפַנְתִּי אִמְרָתֶךָ לְמַעַן לֹא אֶחֱטָא לָךְ:יב בָּרוּךְ אַתָּה יְהוָה לַמְּדֵנִי חֻקֶּיךָ:יג בִּשְׂפָתַי סִפַּרְתִּי כֹּל מִשְׁפְּטֵי פִיךָ:יד בְּדֶרֶךְ עֵדְוֹתֶיךָ שַׂשְׂתִּי כְּעַל כָּל הוֹן:טו בְּפִקֻּדֶיךָ אָשִׂיחָה וְאַבִּיטָה אֹרְחֹתֶיךָ:טז בְּחֻקֹּתֶיךָ אֶשְׁתַּעֲשָׁע לֹא אֶשְׁכַּח דְּבָרֶךָ:
נקרא  0  פעמים

לוח מודעות

למעלה