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

[טובו אהליך]

מצורף קובץ מאקרו ליצירת טאבים מחולקים באופן שוה לפי רוחב העמוד שימושי לכותרות ספר תורני הוראות התקנה בפנים הקובץ
להחליף סיומת ל-DOCM

 

[שיקול דעת]

מצורף קובץ מאקרו ליצירת טאבים מחולקים באופן שוה לפי רוחב העמוד שימושי לכותרות ספר תורני הוראות התקנה בפנים הקובץ
להחליף סיומת ל-DOCM

איך אפשר לשנות סוג קובץ אם הקובץ בכלל לא נפתח. אני מקבל שגיאה הבאה:

 

[טובו אהליך]

איך אפשר לשנות סוג קובץ אם הקובץ בכלל לא נפתח. אני מקבל שגיאה הבאה:
צפה בקובץ המצורף 601111

צריך לשנות בשם הקובץ אם אתה לא רואה את הסיומת בתצוגה סמן הצג סיומות

 

[שיקול דעת]

צריך לשנות בשם הקובץ אם אתה לא רואה את הסיומת בתצוגה סמן הצג סיומות

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

 

[טובו אהליך]

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

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

 

[שיקול דעת]

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

המאקרו עובר מן הסמן והלאה, מחפש סוגריים עגולים ותכולתו ומקטין אותם ב-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

ניסיתי להחליף ההגדרה:

.Font.SizeBi = .Font.SizeBi - 2

ב:

.Font.SizeBi = .Font.SizeBi = 8

כך שיחלוף הכל לגודל של 8 נקודות. אבל זה לא עובד.
האם יכול מישהו לעזור לי בזה?

 

[צורת הדף]

ניסיתי להחליף ההגדרה:

.Font.SizeBi = .Font.SizeBi - 2

ב:

.Font.SizeBi = .Font.SizeBi = 8

כך שיחלוף הכל לגודל של 8 נקודות. אבל זה לא עובד.
האם יכול מישהו לעזור לי בזה?

תכתוב

.Font.SizeBi = 8

 

[שיקול דעת]

תכתוב

.Font.SizeBi = 8

אני לא ידוע למה לא הבחנתי בתגובה שלך עד עכשיו.

כעת נסיתי, אבל זה לא משפיע כלום. אפי' אינו מקפיץ את חלון ה-vba, פשוט לא מתייחס.

 

[שיקול דעת]

@צורת הדף או @Yisrael אולי יש לכם נוסחה אחר?

 

[שלום053]

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

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

ניסיתי ולא הצלחתי. אולי פיספסתי משהו.

 

[יצחק משולם]

מאקרו לעיצוב המפריד של הערות השוליים

Sub a_עיצוב_מפריד_הערת_שוליים()
'
' עיצוב_מפריד_הערת_שוליים
'
'
    ActiveWindow.View.SplitSpecial = wdPaneFootnoteSeparator
    ActiveWindow.Panes(1).Activate
    ActiveWindow.Panes(3).Activate
End Sub

יפתח חלון לעיצוב המפריד.
ניתן לעצבו כרצונכם וללחוץ על סגור (X) כדי לסיים

 

[יצחק משולם]

כנ"ל להערות סיום

Sub a_עיצוב_מפריד_הערת_סיום()
'
' עיצוב_מפריד_הערת_סיום
'
'
    ActiveWindow.View.SplitSpecial = wdPaneFootendSeparator
    ActiveWindow.Panes(1).Activate
    ActiveWindow.Panes(3).Activate
End Sub