איך אפשר לשנות סוג קובץ אם הקובץ בכלל לא נפתח. אני מקבל שגיאה הבאה:מצורף קובץ מאקרו ליצירת טאבים מחולקים באופן שוה לפי רוחב העמוד שימושי לכותרות ספר תורני הוראות התקנה בפנים הקובץ
להחליף סיומת ל-DOCM
צריך לשנות בשם הקובץ אם אתה לא רואה את הסיומת בתצוגה סמן הצג סיומותאיך אפשר לשנות סוג קובץ אם הקובץ בכלל לא נפתח. אני מקבל שגיאה הבאה:
צפה בקובץ המצורף 601111
אכן הצלחתי. ייש"כ.צריך לשנות בשם הקובץ אם אתה לא רואה את הסיומת בתצוגה סמן הצג סיומות
מוסיף עצירת טאב מחולק באופן שוה על פני רוחב העמודאכן הצלחתי. ייש"כ.
אבל האם אפשר להסביר קצת יותר מה המאקרו עושה?
ניסיתי להחליף ההגדרה:שימושי למעמדים בוורד ולהכנת קובץ לתג.
המאקרו עובר מן הסמן והלאה, מחפש סוגריים עגולים ותכולתו ומקטין אותם ב-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
תכתובניסיתי להחליף ההגדרה:
ב:קוד:.Font.SizeBi = .Font.SizeBi - 2
כך שיחלוף הכל לגודל של 8 נקודות. אבל זה לא עובד.קוד:.Font.SizeBi = .Font.SizeBi = 8
האם יכול מישהו לעזור לי בזה?
.Font.SizeBi = 8
אני לא ידוע למה לא הבחנתי בתגובה שלך עד עכשיו.תכתוב
קוד:.Font.SizeBi = 8
ניסיתי ולא הצלחתי. אולי פיספסתי משהו.אינני מבין. והתחלתי לפני כמה שנים בדיוק עם שאלה זו. יש לי עוד הרבה מה ללמוד. אך אכתוב על הצעדים הראשונים.
בוורד בלשונית 'תצוגה' יש בצד שמאל כפתור שנקרא 'פקודות מאקרו'. [או בכרטיסיה 'מפתחים' למי שהגדיר בוורד שיופיע לו לשונית זו. שם יש אפשרות להקליט מאקרו. אתה לוחץ על הכפתור, והוא כעת מקליט את הפעולות שאתה עושה. צריך לתת לפני כן שם להקלטה. רק שאי אפשר לעשות רוח כאשר השם הוא בן שני מילים או יותר. צריך להשתמש ב_ כדי לתת רווח בין מילה למילה.
יש גם אפשרות להקצות קיצור במקלדת שבכל פעם שלוחצים על הקיצור הזה כאשר הוורד פתוח הוא יפעיל את המאקרו.
אפשר להקליט חיפוש והחלפה כל שהוא. או הקלדה כל שהיא. לצורך הענין אמחיש. אם למשל אתה רוצה שבלחיצת כפתור יתווסף סוגרים והסמן יכנס לבין הסוגרים אתה עושה הקלטה ובעת ההקלטה אתה מקליד סוגרים ומעביר עם לחצני החיצים את הסמן לבין הסוגריים ומסיים את ההקלטה.
בכל פעם שמפעילים את ההקלטה הוא עושה את הפעולה המוקלטת.
כעת כדי להשתמש במאקרו של ר' צורת הדף עליך לעשות כך. להקליט מאקרו ולא לעשות שום פעולה אלא לסיים מיד לאחר תחילת ההקלטה. לאחר מכן רק להציג את פקודות המאקרו [אפשר גם עם אלט F8. שפותח את רשימת המאקרויים] ולבחור ב'ערוך'. כעת צריך להעתיק את המאקרו של ר' צורת הדף ולהדביק במקום המאקרו [מתחת לשורה עם שם המאקרו שיש בצד ימין סוגרים כאלו (). רק שים לב שהשורה האחרונה שמראה על סיום המאקרו תיהיה כפולה ויש למחוק אחד מהם. וכן למחוק משם את כל מה שבתוך סוגריים מרובעות. [4 סוגריים כאלו בתוך כל המאקרו]. ואז בכל פעם שתפעיל את המאקרו הוא יפעל בעז"ה ובסייעתא דשמיא.
מקוה שהכל ברור
Sub a_עיצוב_מפריד_הערת_שוליים()
'
' עיצוב_מפריד_הערת_שוליים
'
'
ActiveWindow.View.SplitSpecial = wdPaneFootnoteSeparator
ActiveWindow.Panes(1).Activate
ActiveWindow.Panes(3).Activate
End Sub
Sub a_עיצוב_מפריד_הערת_סיום()
'
' עיצוב_מפריד_הערת_סיום
'
'
ActiveWindow.View.SplitSpecial = wdPaneFootendSeparator
ActiveWindow.Panes(1).Activate
ActiveWindow.Panes(3).Activate
End Sub
לוח לימודים
מסלולי לימוד שאפשר לההצטרף
אליהם ממש עכשיו:
26.09
כ"ג אלול
עברנו לזום!
הרצאת פתיחה חגיגית בזום לקורס מאסטר בשיווק דיגיטלי
הרצאה מרתקת עם מנדי נאבול, מנכ"ל "פיפול דיגיטל" ואיש פרסום ויח"צ.
היום!!!
26.09
כ"ג אלול
פתיחת מסלול
מאסטר בשיווק דיגיטלי
מלגות גבוהות!
19.11
י"ח חשוון
פתיחת מסלול
חדשנות AI ובינה מלאכותית
קורס מקוצר
25.11
כ"ד
פתיחת מסלול
פרסום קופי+
מלגות גבוהות!
27.11
כ"ו חשוון
פתיחת מסלול
פיתוח בוטים ואוטומציות עסקיות
מלגות גבוהות!
27.11
כ"ו חשוון
פתיחת מסלול
עיצוב גרפי ודיגיטל - בסילבוס חדש ומטורף!
מלגות גבוהות!
תהילים פרק קג
א לְדָוִד בָּרְכִי נַפְשִׁי אֶת יי וְכָל קְרָבַי אֶת שֵׁם קָדְשׁוֹ:ב בָּרְכִי נַפְשִׁי אֶת יי וְאַל תִּשְׁכְּחִי כָּל גְּמוּלָיו:ג הַסֹּלֵחַ לְכָל עֲוֹנֵכִי הָרֹפֵא לְכָל תַּחֲלֻאָיְכִי:ד הַגּוֹאֵל מִשַּׁחַת חַיָּיְכִי הַמְעַטְּרֵכִי חֶסֶד וְרַחֲמִים:ה הַמַּשְׂבִּיַע בַּטּוֹב עֶדְיֵךְ תִּתְחַדֵּשׁ כַּנֶּשֶׁר נְעוּרָיְכִי:ו עֹשֵׂה צְדָקוֹת יי וּמִשְׁפָּטִים לְכָל עֲשׁוּקִים:ז יוֹדִיעַ דְּרָכָיו לְמֹשֶׁה לִבְנֵי יִשְׂרָאֵל עֲלִילוֹתָיו:ח רַחוּם וְחַנּוּן יי אֶרֶךְ אַפַּיִם וְרַב חָסֶד:ט לֹא לָנֶצַח יָרִיב וְלֹא לְעוֹלָם יִטּוֹר:י לֹא כַחֲטָאֵינוּ עָשָׂה לָנוּ וְלֹא כַעֲוֹנֹתֵינוּ גָּמַל עָלֵינוּ:יא כִּי כִגְבֹהַּ שָׁמַיִם עַל הָאָרֶץ גָּבַר חַסְדּוֹ עַל יְרֵאָיו:יב כִּרְחֹק מִזְרָח מִמַּעֲרָב הִרְחִיק מִמֶּנּוּ אֶת פְּשָׁעֵינוּ:יג כְּרַחֵם אָב עַל בָּנִים רִחַם יי עַל יְרֵאָיו:יד כִּי הוּא יָדַע יִצְרֵנוּ זָכוּר כִּי עָפָר אֲנָחְנוּ:טו אֱנוֹשׁ כֶּחָצִיר יָמָיו כְּצִיץ הַשָּׂדֶה כֵּן יָצִיץ:טז כִּי רוּחַ עָבְרָה בּוֹ וְאֵינֶנּוּ וְלֹא יַכִּירֶנּוּ עוֹד מְקוֹמוֹ:יז וְחֶסֶד יי מֵעוֹלָם וְעַד עוֹלָם עַל יְרֵאָיו וְצִדְקָתוֹ לִבְנֵי בָנִים:יח לְשֹׁמְרֵי בְרִיתוֹ וּלְזֹכְרֵי פִקֻּדָיו לַעֲשׂוֹתָם:יט יי בַּשָּׁמַיִם הֵכִין כִּסְאוֹ וּמַלְכוּתוֹ בַּכֹּל מָשָׁלָה:כ בָּרְכוּ יי מַלְאָכָיו גִּבֹּרֵי כֹחַ עֹשֵׂי דְבָרוֹ לִשְׁמֹעַ בְּקוֹל דְּבָרוֹ:כא בָּרְכוּ יי כָּל צְבָאָיו מְשָׁרְתָיו עֹשֵׂי רְצוֹנוֹ:כב בָּרְכוּ יי כָּל מַעֲשָׂיו בְּכָל מְקֹמוֹת מֶמְשַׁלְתּוֹ בָּרְכִי נַפְשִׁי אֶת יי: