להורדה | תוסף וורד תורני
-
הכנתי תבנית שכוללת הרבה מהמאקרואים שהתפרסמו כאן בפורום ,עיקרם לקוחים מהפוסט הזה והתבנית נעשתה על פי המדריך הזה
כאן המקום להודות ל @pcinfogmach שהביא את הרעיון ,כתב את המדריך וכן כתב הרבה מהמאקרואים ,וחלק נכבד מהתוסף מבוסס על התוסף שלוהורדה
"ונהר יוצא מעדן להשקות את הגן ומשם יפרד והיה לארבעה תוספים...שם האחד וורד תורני ...ושם השני עיצוב תורני..."
מכיון שהתוספים בגדול די דומים החלטנו אני ו @pcinfogmach לאחד כוחות ,ומעתה יהיו שני גירסאות ,אחת מורחבת שיתכן ותכלול באגים עקב סתירות בין הקודים וכן תכלול פקודות נוספות שלא בהכרח קשורות לעימוד ,והגיר' השניה תהיה יותר ממוקדת ,כך שלא יהיה צורך להתקין את שניהם וכך גם יחסכו הרבה באגים שנבעו עקב כך
בעז"ה בימים הקרובים יפתח פוסט חדש ומסודר בענייןלע"ע זה כולל את המאקרואים הבאים:
- תיקון שגיאות של @א.מ. מתחומים
- תיקון שגיאות מנצפ"ך של @מקלדת
- תבנית-מחיקת-פסקאות-ריקות-ורווח-לפני-פסקא של @מניין
- רצף הערות של @נוכחות
- החלפת כמה מילים בו זמנית של @מגדלים
- עיצוב הערות שוליים של @מניין
- מעצב טורים של @מניין
- יישור טורים של @רפרם-ב-ר-פפא
- חיפוש סוגריים לא סגורים של @menajemmendel
- Cross referece-8-25-2021 של @NykUser
- מעבר עמוד לפני כותרת של @menajemmendel
- קוד VBA להמיר בוורד ממספרים לאותיות של @מגדלים
- שינוי מרווח בין טורים רק בהערות שוליים של @מניין
- מספור אוטומטי של @מניין
- חיפוש והחלפה פרטניים של @pcinfogmach
- הערות שולים - מספור בעברית עד 1200 של @ASDF1345
- מאקרו לוורד להצגת כל קיצורי המקשים המותאמים אישית של @מעלה ומוריד מתחומים
- מאקרו מעבר מהערה למסמך ולהיפך, וכן מאקרו ליצירת אינדקס בקלות של @ASDF1345
וכמובן עיצוב פיסקא גירסא 7 של @pcinfogmach
הוראות התקנה:
פתחו את הקובץ ,אשרו פקודות מאקרו ,תתווסף לכם לשונית של "וורד תורני" ,כנסו אליה ולחצו על הכפתור "התקן או הסר"
,במקרה שהקובץ נחסם
כנסו למאפייני הקובץ ובטלו חסימה
אם יש משהו שהחסרתי אשמח אם תיידעו אותי
@דאנציג הכין מדריך ,מוזמנים להוסיף
- קישור לגוגל דוקס [פתוח במצב הצעה]
- מדריך וורד תורני.docx
תוכניות לעתיד:
- חשבתי שיהיה מאוד שימושי להכין תבנית כעין זו עם מאקרו לשינוי גופנים ,כמו שהוזכר כאן בעבר ,בעיקרון אין לי בעיה לעשות את זה ,אבל אני צריך:
א' מישהו שיוכל לכתוב חלוקה מתאימה ,כלומר ,נניח שאני עושה קבוצות "תורני" , "כותרות" וכו' -מה הגופנים שמתאים להכניס שם
ב' אני צריך את הגופנים המתאימים עם רישיון לשימוש חופשי (לא רוצה לסבך אף אחד...) @מעמדים
בוצע , https://mitmachim.top/post/643442- מאקרו מעניין נוסף שברצוני לעשות הוא מאקרו שמחפש את תוכן לוח ההעתקה באוצר החכמה ובבר אילן ,ע"י הקוד שהובא בפוסט הקודם של @pcinfogmach ,השאלה היא אם אפשרי להכניס במאקרו פקודות שיפעלו בתוך התוכנה האחרת [לדוג' רציתי לעשות חיפוש ברשימת הספרים ובתוכן הספרים ,הדרך לשנות את מיקום ההקלדה באוצר החכמה בין חיפוש בתוכן הספרים לרשימת הספרים הוא ע"י f8 או משהו בסגנון ,וכן אותו רעיון להיפך ,על ידי מקש אחר ,כמו כן צריך לעשות קונטרול a ומיקה כדי למחוק טקסט מחיפוש קודם באם קיים] @VBA
- עוד רעיון הוא לעשות חלון של חיפוש והחלפה עם הכפתורים הבאים: חפש את, ושם יש אופציה לתו כלשהו וכו', כמו שהביאו כאן בפורום (החלון ייראה כמו התפריט של הגופנים, ראיתי שיש אופציה כזאת), חלון שני: בכל המסמך. עמוד זה. הערות שוליים וכו'. חלון שלישי - החלף בוכו' @VBA
- להוסיף כפתור תפריט שיכלול בתוכו את כל פקודות הוורד שאינם בתפריט הכלים ,אם יש למישהו רעיון לאיזה קטגוריות לחלק אשמח אם יכתוב כאן
גירסאות קודמות:
- האדם החושב גירסא 1.rar
- גירסא 2 האדם החושב.rar
- גירסא 3 האדם החושב.rar
- גירסא 4 האדם החושב.rar
- האדם החושב גירסא 5.rar
- גירסא 5.1.rar
- האדם החושב גירסא 6.rar
- האדם החושב גירסא 7.zip
- גירסא 8.zip
- גירסא 8.1.zip
- גירסא 9.zip
- גירסא 9.1.zip
- גירסא 9.2.zip
- גירסא 10.zip וורד תורני גירסא 10.exe
- גירסא 11.zip
גירסא 11 וורד תורני.exe - גירסא 12.zip [קוד פתוח]
גירסא 12.exe [חילוץ עצמי ,קוד סגור] - גירסא 12.1.exe
קוד פתוח גירסא 12.1.zip - גירסא 13.1.exe
הבהרה חשובה: אני לא כותב את המאקרואים, כך שאין עניין לבקש ממני מאקרואים שלא קיימים, מה שכן, ניתן ומומלץ לשים כאן קישורים או להעלות מאקרואים קיימים
להערות והארות ניתן לכתוב כאן פוסט/לפנות אלי בצ'אט/לכתוב מייל ל wardtorney@gmail.com
@האדם-החושב כתב בלהורדה | עיצוב ספרי קודש - גירסא משלי:
רציתי גם לשאול אם יש דרך התוכנה אפשרות להוסיף את החיצים הקטנים שבצד כל קבוצה למטה (לצורך קרדיטים, הסברים וכו')
תשאל את @מאקרו אולי הוא יסכים לנדב את מה שהוא כבר עשה, וגם הסבר כיצד לעשות זאת.
-
ב"מעצב טורים" משום מה אני מקבל שוב ושוב שגיאה ,
פשוט לא הכנסת את המאקרו הנכון והסופי, להלן המאקרו הנכון, ויש בזה שני לחצנים, 1. לפיסקא אחת, 2. לכל המסמך.
Sub מעצב_טורים_פיסקא_אחת() ' ' מעצב_טורים_פיסקא_אחת Macro ' ' Selection.Find.ClearFormatting With Selection.Find.ParagraphFormat .Alignment = wdAlignParagraphCenter End With With Selection.Find .Text = "^p" .Replacement.Text = "" .Forward = True .Wrap = wdFindStop .Format = True .MatchCase = False .MatchWholeWord = False .MatchControl = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Selection.MoveUp Unit:=wdParagraph, Count:=1 Selection.InsertBreak Type:=wdSectionBreakContinuous Selection.MoveDown Unit:=wdParagraph, Count:=1, Extend:=wdExtend If ActiveWindow.View.SplitSpecial <> wdPaneNone Then ActiveWindow.Panes(2).Close End If If ActiveWindow.ActivePane.View.Type <> wdPrintView Then ActiveWindow.ActivePane.View.Type = wdPrintView End If ActiveDocument.Range(Start:=Selection.End, End:=Selection.End).InsertBreak _ Type:=wdSectionBreakContinuous With Selection.PageSetup.TextColumns .SetCount NumColumns:=1 .EvenlySpaced = True .LineBetween = False End With Selection.MoveRight Unit:=wdCharacter, Count:=2 Application.Run MacroName:="תיקון_מעבר_מקטע_כפול" End Sub Sub מעצב_טורים_כל_המסמך() Dim Alerts Selection.HomeKey Unit:=wdStory Alerts = Application.DisplayAlerts Application.DisplayAlerts = wdAlertsNone Application.ScreenUpdating = False Do Selection.Find.ClearFormatting With Selection.Find.ParagraphFormat .Alignment = wdAlignParagraphCenter End With With Selection.Find .Text = "^p" .Replacement.Text = "" .Forward = True .Wrap = wdFindStop .Format = True .MatchCase = False .MatchWholeWord = False .MatchControl = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Dim a a = Selection.Find.Execute If a = True Then Selection.Paragraphs(1).Range.Select ActiveDocument.Range(Start:=Selection.Start, End:=Selection.Start). _ InsertBreak Type:=wdSectionBreakContinuous Selection.Start = Selection.Start + 1 ActiveDocument.Range(Start:=Selection.End, End:=Selection.End).InsertBreak _ Type:=wdSectionBreakContinuous With Selection.PageSetup.TextColumns .SetCount NumColumns:=1 .EvenlySpaced = True .LineBetween = False End With Selection.MoveRight Unit:=wdCharacter, Count:=1 End If Loop While a = True Application.DisplayAlerts = Alerts Application.ScreenUpdating = True Application.Run MacroName:="תיקון_מעבר_מקטע_כפול" Application.Run MacroName:="תיקון_כותרות_כפולות" Application.Run MacroName:="תיקון_מחיקת_מקטע_בהתחלה" End Sub Sub תיקון_כותרות_כפולות() ' ' טור_תיקון_כותרות_כפולות Macro ' ' Selection.Find.ClearFormatting With Selection.Find.ParagraphFormat .SpaceBeforeAuto = False .SpaceAfterAuto = False .Alignment = wdAlignParagraphCenter End With Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = "^p^b^b" .Replacement.Text = "^p" .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = False .MatchWholeWord = False .MatchKashida = False .MatchDiacritics = False .MatchAlefHamza = False .MatchControl = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll Selection.Find.ClearFormatting With Selection.Find.ParagraphFormat .SpaceBeforeAuto = False .SpaceAfterAuto = False .Alignment = wdAlignParagraphCenter End With Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = "^p^b" .Replacement.Text = "^p" .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = False .MatchWholeWord = False .MatchKashida = False .MatchDiacritics = False .MatchAlefHamza = False .MatchControl = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll End Sub Private Sub תיקון_מחיקת_מקטע_בהתחלה() ' ' טור_מחיקת_מעבר_מקטע_בהתחלה Macro ' ' Selection.HomeKey Unit:=wdStory Selection.TypeText Text:=";~;" Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = ";~;^b" .Replacement.Text = "" .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchKashida = False .MatchDiacritics = False .MatchAlefHamza = False .MatchControl = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = ";~;" .Replacement.Text = "" .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchKashida = False .MatchDiacritics = False .MatchAlefHamza = False .MatchControl = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll End Sub Private Sub תיקון_מעבר_מקטע_כפול() ' ' תיקון_מעבר_מקטע_כפול Macro ' ' Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = "^b^b" .Replacement.Text = "^&;/1" .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchKashida = False .MatchDiacritics = False .MatchAlefHamza = False .MatchControl = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll With Selection.Find .Text = "^b;/1" .Replacement.Text = "" .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchKashida = False .MatchDiacritics = False .MatchAlefHamza = False .MatchControl = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll End Subפוסט זה נמחק! -
ב"מעצב טורים" משום מה אני מקבל שוב ושוב שגיאה ,
פשוט לא הכנסת את המאקרו הנכון והסופי, להלן המאקרו הנכון, ויש בזה שני לחצנים, 1. לפיסקא אחת, 2. לכל המסמך.
Sub מעצב_טורים_פיסקא_אחת() ' ' מעצב_טורים_פיסקא_אחת Macro ' ' Selection.Find.ClearFormatting With Selection.Find.ParagraphFormat .Alignment = wdAlignParagraphCenter End With With Selection.Find .Text = "^p" .Replacement.Text = "" .Forward = True .Wrap = wdFindStop .Format = True .MatchCase = False .MatchWholeWord = False .MatchControl = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Selection.MoveUp Unit:=wdParagraph, Count:=1 Selection.InsertBreak Type:=wdSectionBreakContinuous Selection.MoveDown Unit:=wdParagraph, Count:=1, Extend:=wdExtend If ActiveWindow.View.SplitSpecial <> wdPaneNone Then ActiveWindow.Panes(2).Close End If If ActiveWindow.ActivePane.View.Type <> wdPrintView Then ActiveWindow.ActivePane.View.Type = wdPrintView End If ActiveDocument.Range(Start:=Selection.End, End:=Selection.End).InsertBreak _ Type:=wdSectionBreakContinuous With Selection.PageSetup.TextColumns .SetCount NumColumns:=1 .EvenlySpaced = True .LineBetween = False End With Selection.MoveRight Unit:=wdCharacter, Count:=2 Application.Run MacroName:="תיקון_מעבר_מקטע_כפול" End Sub Sub מעצב_טורים_כל_המסמך() Dim Alerts Selection.HomeKey Unit:=wdStory Alerts = Application.DisplayAlerts Application.DisplayAlerts = wdAlertsNone Application.ScreenUpdating = False Do Selection.Find.ClearFormatting With Selection.Find.ParagraphFormat .Alignment = wdAlignParagraphCenter End With With Selection.Find .Text = "^p" .Replacement.Text = "" .Forward = True .Wrap = wdFindStop .Format = True .MatchCase = False .MatchWholeWord = False .MatchControl = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Dim a a = Selection.Find.Execute If a = True Then Selection.Paragraphs(1).Range.Select ActiveDocument.Range(Start:=Selection.Start, End:=Selection.Start). _ InsertBreak Type:=wdSectionBreakContinuous Selection.Start = Selection.Start + 1 ActiveDocument.Range(Start:=Selection.End, End:=Selection.End).InsertBreak _ Type:=wdSectionBreakContinuous With Selection.PageSetup.TextColumns .SetCount NumColumns:=1 .EvenlySpaced = True .LineBetween = False End With Selection.MoveRight Unit:=wdCharacter, Count:=1 End If Loop While a = True Application.DisplayAlerts = Alerts Application.ScreenUpdating = True Application.Run MacroName:="תיקון_מעבר_מקטע_כפול" Application.Run MacroName:="תיקון_כותרות_כפולות" Application.Run MacroName:="תיקון_מחיקת_מקטע_בהתחלה" End Sub Sub תיקון_כותרות_כפולות() ' ' טור_תיקון_כותרות_כפולות Macro ' ' Selection.Find.ClearFormatting With Selection.Find.ParagraphFormat .SpaceBeforeAuto = False .SpaceAfterAuto = False .Alignment = wdAlignParagraphCenter End With Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = "^p^b^b" .Replacement.Text = "^p" .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = False .MatchWholeWord = False .MatchKashida = False .MatchDiacritics = False .MatchAlefHamza = False .MatchControl = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll Selection.Find.ClearFormatting With Selection.Find.ParagraphFormat .SpaceBeforeAuto = False .SpaceAfterAuto = False .Alignment = wdAlignParagraphCenter End With Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = "^p^b" .Replacement.Text = "^p" .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = False .MatchWholeWord = False .MatchKashida = False .MatchDiacritics = False .MatchAlefHamza = False .MatchControl = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll End Sub Private Sub תיקון_מחיקת_מקטע_בהתחלה() ' ' טור_מחיקת_מעבר_מקטע_בהתחלה Macro ' ' Selection.HomeKey Unit:=wdStory Selection.TypeText Text:=";~;" Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = ";~;^b" .Replacement.Text = "" .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchKashida = False .MatchDiacritics = False .MatchAlefHamza = False .MatchControl = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = ";~;" .Replacement.Text = "" .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchKashida = False .MatchDiacritics = False .MatchAlefHamza = False .MatchControl = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll End Sub Private Sub תיקון_מעבר_מקטע_כפול() ' ' תיקון_מעבר_מקטע_כפול Macro ' ' Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = "^b^b" .Replacement.Text = "^&;/1" .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchKashida = False .MatchDiacritics = False .MatchAlefHamza = False .MatchControl = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll With Selection.Find .Text = "^b;/1" .Replacement.Text = "" .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchKashida = False .MatchDiacritics = False .MatchAlefHamza = False .MatchControl = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll End Subפוסט זה נמחק! -
ב"מעצב טורים" משום מה אני מקבל שוב ושוב שגיאה ,
פשוט לא הכנסת את המאקרו הנכון והסופי, להלן המאקרו הנכון, ויש בזה שני לחצנים, 1. לפיסקא אחת, 2. לכל המסמך.
Sub מעצב_טורים_פיסקא_אחת() ' ' מעצב_טורים_פיסקא_אחת Macro ' ' Selection.Find.ClearFormatting With Selection.Find.ParagraphFormat .Alignment = wdAlignParagraphCenter End With With Selection.Find .Text = "^p" .Replacement.Text = "" .Forward = True .Wrap = wdFindStop .Format = True .MatchCase = False .MatchWholeWord = False .MatchControl = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Selection.MoveUp Unit:=wdParagraph, Count:=1 Selection.InsertBreak Type:=wdSectionBreakContinuous Selection.MoveDown Unit:=wdParagraph, Count:=1, Extend:=wdExtend If ActiveWindow.View.SplitSpecial <> wdPaneNone Then ActiveWindow.Panes(2).Close End If If ActiveWindow.ActivePane.View.Type <> wdPrintView Then ActiveWindow.ActivePane.View.Type = wdPrintView End If ActiveDocument.Range(Start:=Selection.End, End:=Selection.End).InsertBreak _ Type:=wdSectionBreakContinuous With Selection.PageSetup.TextColumns .SetCount NumColumns:=1 .EvenlySpaced = True .LineBetween = False End With Selection.MoveRight Unit:=wdCharacter, Count:=2 Application.Run MacroName:="תיקון_מעבר_מקטע_כפול" End Sub Sub מעצב_טורים_כל_המסמך() Dim Alerts Selection.HomeKey Unit:=wdStory Alerts = Application.DisplayAlerts Application.DisplayAlerts = wdAlertsNone Application.ScreenUpdating = False Do Selection.Find.ClearFormatting With Selection.Find.ParagraphFormat .Alignment = wdAlignParagraphCenter End With With Selection.Find .Text = "^p" .Replacement.Text = "" .Forward = True .Wrap = wdFindStop .Format = True .MatchCase = False .MatchWholeWord = False .MatchControl = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Dim a a = Selection.Find.Execute If a = True Then Selection.Paragraphs(1).Range.Select ActiveDocument.Range(Start:=Selection.Start, End:=Selection.Start). _ InsertBreak Type:=wdSectionBreakContinuous Selection.Start = Selection.Start + 1 ActiveDocument.Range(Start:=Selection.End, End:=Selection.End).InsertBreak _ Type:=wdSectionBreakContinuous With Selection.PageSetup.TextColumns .SetCount NumColumns:=1 .EvenlySpaced = True .LineBetween = False End With Selection.MoveRight Unit:=wdCharacter, Count:=1 End If Loop While a = True Application.DisplayAlerts = Alerts Application.ScreenUpdating = True Application.Run MacroName:="תיקון_מעבר_מקטע_כפול" Application.Run MacroName:="תיקון_כותרות_כפולות" Application.Run MacroName:="תיקון_מחיקת_מקטע_בהתחלה" End Sub Sub תיקון_כותרות_כפולות() ' ' טור_תיקון_כותרות_כפולות Macro ' ' Selection.Find.ClearFormatting With Selection.Find.ParagraphFormat .SpaceBeforeAuto = False .SpaceAfterAuto = False .Alignment = wdAlignParagraphCenter End With Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = "^p^b^b" .Replacement.Text = "^p" .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = False .MatchWholeWord = False .MatchKashida = False .MatchDiacritics = False .MatchAlefHamza = False .MatchControl = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll Selection.Find.ClearFormatting With Selection.Find.ParagraphFormat .SpaceBeforeAuto = False .SpaceAfterAuto = False .Alignment = wdAlignParagraphCenter End With Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = "^p^b" .Replacement.Text = "^p" .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = False .MatchWholeWord = False .MatchKashida = False .MatchDiacritics = False .MatchAlefHamza = False .MatchControl = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll End Sub Private Sub תיקון_מחיקת_מקטע_בהתחלה() ' ' טור_מחיקת_מעבר_מקטע_בהתחלה Macro ' ' Selection.HomeKey Unit:=wdStory Selection.TypeText Text:=";~;" Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = ";~;^b" .Replacement.Text = "" .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchKashida = False .MatchDiacritics = False .MatchAlefHamza = False .MatchControl = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = ";~;" .Replacement.Text = "" .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchKashida = False .MatchDiacritics = False .MatchAlefHamza = False .MatchControl = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll End Sub Private Sub תיקון_מעבר_מקטע_כפול() ' ' תיקון_מעבר_מקטע_כפול Macro ' ' Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = "^b^b" .Replacement.Text = "^&;/1" .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchKashida = False .MatchDiacritics = False .MatchAlefHamza = False .MatchControl = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll With Selection.Find .Text = "^b;/1" .Replacement.Text = "" .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchKashida = False .MatchDiacritics = False .MatchAlefHamza = False .MatchControl = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll End Subפוסט זה נמחק! -
@האדם-החושב כתב בלהורדה | עיצוב ספרי קודש - גירסא משלי:
רציתי גם לשאול אם יש דרך התוכנה אפשרות להוסיף את החיצים הקטנים שבצד כל קבוצה למטה (לצורך קרדיטים, הסברים וכו')
תשאל את @מאקרו אולי הוא יסכים לנדב את מה שהוא כבר עשה, וגם הסבר כיצד לעשות זאת.
@דאנציג כתב בלהורדה | עיצוב ספרי קודש - גירסא משלי:
@האדם-החושב כתב בלהורדה | עיצוב ספרי קודש - גירסא משלי:
רציתי גם לשאול אם יש דרך התוכנה אפשרות להוסיף את החיצים הקטנים שבצד כל קבוצה למטה (לצורך קרדיטים, הסברים וכו')
תשאל את @מאקרו אולי הוא יסכים לנדב את מה שהוא כבר עשה, וגם הסבר כיצד לעשות זאת.
זה נקרא לאונצ'ר - Launcher
-
הכנתי גירסא חדשה שכוללת גם את Cross referece-8-25-2021 של @NykUser [כאמור ,לא הצלחתי להבין איך בדיוק להוסיף את המאקרו לתבנית ,אבל הכפתורים והקישור של הכפתורים לפקודות קיים ,הקישור הוא למאקרואים הבאים:
הפנייה מקושרת - cr2
עדכון הפניות - Update_
הקטנת סוגריים - הקטן_סוגריים_משתנה
מעבר בין קטעים - gotonum
ייצוא לתג - export_Cross
וכן הוספתי כמה סמלים מהספרייה של וורד
@NykUser אשמח אם תוכל להוסיף את המאקרו לתבנית
@מניין אשמח אם תוכל לבדוק מה הבעייה עם מעצב טורים
@רפרם-ב-ר-פפא אשמח אם תוכל להוסיף לתבנית את יישור טורים [כאמור ,הכפתורים והקישור שלהם לפקודות קיימים כבר]
@pcinfogmach הסרתי מהקוד את הסמלים שלא קיימים
גירסא 2 האדם החושב.rar
למותר לציין שאפשרי ורצוי לערוך ,להוסיף וכו' -
@דאנציג כתב בלהורדה | עיצוב ספרי קודש - גירסא משלי:
@האדם-החושב כתב בלהורדה | עיצוב ספרי קודש - גירסא משלי:
רציתי גם לשאול אם יש דרך התוכנה אפשרות להוסיף את החיצים הקטנים שבצד כל קבוצה למטה (לצורך קרדיטים, הסברים וכו')
תשאל את @מאקרו אולי הוא יסכים לנדב את מה שהוא כבר עשה, וגם הסבר כיצד לעשות זאת.
זה נקרא לאונצ'ר - Launcher
-
הכנתי גירסא חדשה שכוללת גם את Cross referece-8-25-2021 של @NykUser [כאמור ,לא הצלחתי להבין איך בדיוק להוסיף את המאקרו לתבנית ,אבל הכפתורים והקישור של הכפתורים לפקודות קיים ,הקישור הוא למאקרואים הבאים:
הפנייה מקושרת - cr2
עדכון הפניות - Update_
הקטנת סוגריים - הקטן_סוגריים_משתנה
מעבר בין קטעים - gotonum
ייצוא לתג - export_Cross
וכן הוספתי כמה סמלים מהספרייה של וורד
@NykUser אשמח אם תוכל להוסיף את המאקרו לתבנית
@מניין אשמח אם תוכל לבדוק מה הבעייה עם מעצב טורים
@רפרם-ב-ר-פפא אשמח אם תוכל להוסיף לתבנית את יישור טורים [כאמור ,הכפתורים והקישור שלהם לפקודות קיימים כבר]
@pcinfogmach הסרתי מהקוד את הסמלים שלא קיימים
גירסא 2 האדם החושב.rar
למותר לציין שאפשרי ורצוי לערוך ,להוסיף וכו' -
מ מניין התייחס לנושא זה ב
-
@האדם-החושב כתב ב[להורדה | עיצוב ספרי קודש - גירסא משלי]
@מניין אשמח אם תוכל לבדוק מה הבעייה עם מעצב טורים
השבתי לך כבר כאן לפני ששאלת.
-
@האדם-החושב
מאוד נהניתי ממה שעשית - נראה שיש לך כישרון לזה
הרעיון שלך לכלול את כל הפקודות בתפריט שיורד מהכפתור המקורי - הוא רעיון נפלא וצודק!@האדם-החושב כתב בלהורדה | עיצוב ספרי קודש - גירסא משלי:
ביישור טורים של כל מאקרו מחולק למודול אחר ,ניסיתי להעתיק את כולם לתבנית שהכנתי ,אבל כלום לא עוזר (ניסיתי גם להעתיק את המאקרו "עורך טורים" פעם אחת וגם כנגד כל מאקרו ומאקרו)
"כלום לא עוזר" - לא ברור מספיק מה הבעיה המאקרו? הלחצן?
@האדם-החושב כתב בלהורדה | עיצוב ספרי קודש - גירסא משלי:
ב"מעצב טורים" משום מה אני מקבל שוב ושוב שגיאה ,למרות שכשהעתקתי את המאקרו המקורי לתבנית הנורמאל זה עובד מצויין
האם אתה מקבל את השגיאה בכל תבנית שאתה יוצר או רק בתבנית של התוסף?
@האדם-החושב כתב בלהורדה | עיצוב ספרי קודש - גירסא משלי:
הסתבכתי קצת עם העיצוב של התפריטים ,אני רוצה שזה יראה כמה שיותר אסתטי ,ניסיתי לעשות ירידת שורה בתיאור על ידי הוספה של /n ,אבל זה לא עזר ,אשמח אם תוכלו ליידע אותי על עוד אופציות (לשינוי הנראות של הטקסט ולשינוי הגדלים של הסמלים ,אולי יש אקסטרה סמול ,מדיום וכו')
לעניין גדלים - לפי מה שראתי אין יתר מגדול וקטן
@האדם-החושב כתב בלהורדה | עיצוב ספרי קודש - גירסא משלי:
רציתי גם לשאול אם יש דרך התוכנה אפשרות להוסיף את החיצים הקטנים שבצד כל קבוצה למטה (לצורך קרדיטים, הסברים וכו')
לא ברור למה כוונתך אולי תעלה תמונה של מה אתה מתכווין
@האדם-החושב כתב בלהורדה | עיצוב ספרי קודש - גירסא משלי:
לא היה לי זמן ליצור סמלים ,אשמח אם מישהו יעלה לכאן סמלים מתאימים
לבינתיים לכאורה אפשר להשתמש בסמלים המובנים של מיקרוסופט כמו שכתבתי בפוסט של המדריך - אם לא אז לכל הפחות תבטל את השורה בקוד של הלחצן שמבקשת תמונה, כי לבינתיים זה גורם הרבה שגיאות מיותרות.
@האדם-החושב כתב בלהורדה | עיצוב ספרי קודש - גירסא משלי:
רציתי גם לשאול אם יש דרך התוכנה אפשרות להוסיף את החיצים הקטנים שבצד כל קבוצה למטה (לצורך קרדיטים, הסברים וכו')
נוסף כעת הקוד כאן במדריך
-
עדכון: גיר' 3, תוקן הבאג בעיצוב טורים וכן נוסף המאקרו חיפוש סוגריים לא סגורים של @menajemmendel
גירסא 3 האדם החושב.rar -
עדכון: גיר' 3, תוקן הבאג בעיצוב טורים וכן נוסף המאקרו חיפוש סוגריים לא סגורים של @menajemmendel
גירסא 3 האדם החושב.rar@האדם-החושב כתב בלהורדה | עיצוב ספרי קודש - גירסא משלי:
עדכון: גיר' 3, תוקן הבאג בעיצוב טורים וכן נוסף המאקרו חיפוש סוגריים לא סגורים של @menajemmendel
גירסא 3 האדם החושב.rarמעצב טורים עדיין לא תוקן.
-
@האדם-החושב כתב בלהורדה | עיצוב ספרי קודש - גירסא משלי:
עדכון: גיר' 3, תוקן הבאג בעיצוב טורים וכן נוסף המאקרו חיפוש סוגריים לא סגורים של @menajemmendel
גירסא 3 האדם החושב.rarמעצב טורים עדיין לא תוקן.
@מניין אולי טעיתי בקובץ, תנסה את זה
גירסא 4 האדם החושב.rar -
@מניין אולי טעיתי בקובץ, תנסה את זה
גירסא 4 האדם החושב.rar@האדם-החושב כתב בלהורדה | עיצוב ספרי קודש - גירסא משלי:
@מניין אולי טעיתי בקובץ, תנסה את זה
גירסא 4 האדם החושב.rarמעצב טורים עובד מצויין
-
גיר' 5 - Cross referece-8-25-2021 עובד
האדם החושב גירסא 5.rar
נ. ב. אני צריך קצת עזרה עם התבנית, אני צריך פקודת מאקרו שפותחת את הדפדפן בכתובת שאני מגדיר מראש, ואני צריך תיבת דו שיח שאחד מהשניים, או שניתן לשים בה קישור, או שיהיו בה שני כפתורים שעל אחד כתוב פתח אתר, והכפתור יפתח את האתר, ובשני יהיה כתוב סגור
עד עכשיו זה מה שהצלחתי לעשות:Sub דיאלוג_עיצוב_פיסקא() ' ' דיאלוג_עיצוב_פיסקא Macro ' ' MsgBox "פוסט המקור https://mitmachim.top/post/626904" & vbNewLine & "בכפתורים הראשיים המאקרו הוא על כל המסמך", 0 + 64 + 524288 + 1048576, "המאקרו נכתב על ידי @pcinfogmach ממתמחים טופ" End Sub(אין קישורים בכלל)
Sub פתח_אתר() Dim IE As Object Set IE = CreateObject("InternetExplorer.Application") IE.Visible = True IE.Navigate "https://mitmachim.top/" End Sub(פותח באינטרנט אקספלורר)
@מתכנת-חובב @מגדלים -
גיר' 5 - Cross referece-8-25-2021 עובד
האדם החושב גירסא 5.rar
נ. ב. אני צריך קצת עזרה עם התבנית, אני צריך פקודת מאקרו שפותחת את הדפדפן בכתובת שאני מגדיר מראש, ואני צריך תיבת דו שיח שאחד מהשניים, או שניתן לשים בה קישור, או שיהיו בה שני כפתורים שעל אחד כתוב פתח אתר, והכפתור יפתח את האתר, ובשני יהיה כתוב סגור
עד עכשיו זה מה שהצלחתי לעשות:Sub דיאלוג_עיצוב_פיסקא() ' ' דיאלוג_עיצוב_פיסקא Macro ' ' MsgBox "פוסט המקור https://mitmachim.top/post/626904" & vbNewLine & "בכפתורים הראשיים המאקרו הוא על כל המסמך", 0 + 64 + 524288 + 1048576, "המאקרו נכתב על ידי @pcinfogmach ממתמחים טופ" End Sub(אין קישורים בכלל)
Sub פתח_אתר() Dim IE As Object Set IE = CreateObject("InternetExplorer.Application") IE.Visible = True IE.Navigate "https://mitmachim.top/" End Sub(פותח באינטרנט אקספלורר)
@מתכנת-חובב @מגדלים@האדם-החושב כתב בלהורדה | עיצוב ספרי קודש - גירסא משלי:
אני צריך פקודת מאקרו שפותחת את הדפדפן בכתובת שאני מגדיר מראש
Sub OpenLink() Dim Link As String Link = "https://mitmachim.top/post/626904" 'Replace with your desired link ActiveDocument.FollowHyperlink Address:=Link End Subאגב דברים כאלו צ'אט גיפיטי יכול לעשות לך בקלות
-
הכנתי תבנית שכוללת הרבה מהמאקרואים שהתפרסמו כאן בפורום ,עיקרם לקוחים מהפוסט הזה והתבנית נעשתה על פי המדריך הזה
כאן המקום להודות ל @pcinfogmach שהביא את הרעיון ,כתב את המדריך וכן כתב הרבה מהמאקרואים ,וחלק נכבד מהתוסף מבוסס על התוסף שלוהורדה
"ונהר יוצא מעדן להשקות את הגן ומשם יפרד והיה לארבעה תוספים...שם האחד וורד תורני ...ושם השני עיצוב תורני..."
מכיון שהתוספים בגדול די דומים החלטנו אני ו @pcinfogmach לאחד כוחות ,ומעתה יהיו שני גירסאות ,אחת מורחבת שיתכן ותכלול באגים עקב סתירות בין הקודים וכן תכלול פקודות נוספות שלא בהכרח קשורות לעימוד ,והגיר' השניה תהיה יותר ממוקדת ,כך שלא יהיה צורך להתקין את שניהם וכך גם יחסכו הרבה באגים שנבעו עקב כך
בעז"ה בימים הקרובים יפתח פוסט חדש ומסודר בענייןלע"ע זה כולל את המאקרואים הבאים:
- תיקון שגיאות של @א.מ. מתחומים
- תיקון שגיאות מנצפ"ך של @מקלדת
- תבנית-מחיקת-פסקאות-ריקות-ורווח-לפני-פסקא של @מניין
- רצף הערות של @נוכחות
- החלפת כמה מילים בו זמנית של @מגדלים
- עיצוב הערות שוליים של @מניין
- מעצב טורים של @מניין
- יישור טורים של @רפרם-ב-ר-פפא
- חיפוש סוגריים לא סגורים של @menajemmendel
- Cross referece-8-25-2021 של @NykUser
- מעבר עמוד לפני כותרת של @menajemmendel
- קוד VBA להמיר בוורד ממספרים לאותיות של @מגדלים
- שינוי מרווח בין טורים רק בהערות שוליים של @מניין
- מספור אוטומטי של @מניין
- חיפוש והחלפה פרטניים של @pcinfogmach
- הערות שולים - מספור בעברית עד 1200 של @ASDF1345
- מאקרו לוורד להצגת כל קיצורי המקשים המותאמים אישית של @מעלה ומוריד מתחומים
- מאקרו מעבר מהערה למסמך ולהיפך, וכן מאקרו ליצירת אינדקס בקלות של @ASDF1345
וכמובן עיצוב פיסקא גירסא 7 של @pcinfogmach
הוראות התקנה:
פתחו את הקובץ ,אשרו פקודות מאקרו ,תתווסף לכם לשונית של "וורד תורני" ,כנסו אליה ולחצו על הכפתור "התקן או הסר"
,במקרה שהקובץ נחסם
כנסו למאפייני הקובץ ובטלו חסימה
אם יש משהו שהחסרתי אשמח אם תיידעו אותי
@דאנציג הכין מדריך ,מוזמנים להוסיף
- קישור לגוגל דוקס [פתוח במצב הצעה]
- מדריך וורד תורני.docx
תוכניות לעתיד:
- חשבתי שיהיה מאוד שימושי להכין תבנית כעין זו עם מאקרו לשינוי גופנים ,כמו שהוזכר כאן בעבר ,בעיקרון אין לי בעיה לעשות את זה ,אבל אני צריך:
א' מישהו שיוכל לכתוב חלוקה מתאימה ,כלומר ,נניח שאני עושה קבוצות "תורני" , "כותרות" וכו' -מה הגופנים שמתאים להכניס שם
ב' אני צריך את הגופנים המתאימים עם רישיון לשימוש חופשי (לא רוצה לסבך אף אחד...) @מעמדים
בוצע , https://mitmachim.top/post/643442- מאקרו מעניין נוסף שברצוני לעשות הוא מאקרו שמחפש את תוכן לוח ההעתקה באוצר החכמה ובבר אילן ,ע"י הקוד שהובא בפוסט הקודם של @pcinfogmach ,השאלה היא אם אפשרי להכניס במאקרו פקודות שיפעלו בתוך התוכנה האחרת [לדוג' רציתי לעשות חיפוש ברשימת הספרים ובתוכן הספרים ,הדרך לשנות את מיקום ההקלדה באוצר החכמה בין חיפוש בתוכן הספרים לרשימת הספרים הוא ע"י f8 או משהו בסגנון ,וכן אותו רעיון להיפך ,על ידי מקש אחר ,כמו כן צריך לעשות קונטרול a ומיקה כדי למחוק טקסט מחיפוש קודם באם קיים] @VBA
- עוד רעיון הוא לעשות חלון של חיפוש והחלפה עם הכפתורים הבאים: חפש את, ושם יש אופציה לתו כלשהו וכו', כמו שהביאו כאן בפורום (החלון ייראה כמו התפריט של הגופנים, ראיתי שיש אופציה כזאת), חלון שני: בכל המסמך. עמוד זה. הערות שוליים וכו'. חלון שלישי - החלף בוכו' @VBA
- להוסיף כפתור תפריט שיכלול בתוכו את כל פקודות הוורד שאינם בתפריט הכלים ,אם יש למישהו רעיון לאיזה קטגוריות לחלק אשמח אם יכתוב כאן
גירסאות קודמות:
- האדם החושב גירסא 1.rar
- גירסא 2 האדם החושב.rar
- גירסא 3 האדם החושב.rar
- גירסא 4 האדם החושב.rar
- האדם החושב גירסא 5.rar
- גירסא 5.1.rar
- האדם החושב גירסא 6.rar
- האדם החושב גירסא 7.zip
- גירסא 8.zip
- גירסא 8.1.zip
- גירסא 9.zip
- גירסא 9.1.zip
- גירסא 9.2.zip
- גירסא 10.zip וורד תורני גירסא 10.exe
- גירסא 11.zip
גירסא 11 וורד תורני.exe - גירסא 12.zip [קוד פתוח]
גירסא 12.exe [חילוץ עצמי ,קוד סגור] - גירסא 12.1.exe
קוד פתוח גירסא 12.1.zip - גירסא 13.1.exe
הבהרה חשובה: אני לא כותב את המאקרואים, כך שאין עניין לבקש ממני מאקרואים שלא קיימים, מה שכן, ניתן ומומלץ לשים כאן קישורים או להעלות מאקרואים קיימים
להערות והארות ניתן לכתוב כאן פוסט/לפנות אלי בצ'אט/לכתוב מייל ל wardtorney@gmail.com
@האדם-החושב כתב בלהורדה | עיצוב ספרי קודש - גירסא משלי:
הסתבכתי קצת עם העיצוב של התפריטים ,אני רוצה שזה יראה כמה שיותר אסתטי ,ניסיתי לעשות ירידת שורה בתיאור על ידי הוספה של /n ,אבל זה לא עזר
עיצוב התיבה שמופיעה על ידי ריחוף
screentip="כותרת" supertip= "מלל מלל מלל מלל"מאוד חשוב להוסיף את המלל במקום הנכון כי אחרת כל המלל יהיה בשורה אחת ארוכה.
בעיקרון זה אמור לפתור את הבעיה אם בכל אופן יש לך צורך לעשות מעבר שורה ידני זהו הקוד
-
גיר' 5 - Cross referece-8-25-2021 עובד
האדם החושב גירסא 5.rar
נ. ב. אני צריך קצת עזרה עם התבנית, אני צריך פקודת מאקרו שפותחת את הדפדפן בכתובת שאני מגדיר מראש, ואני צריך תיבת דו שיח שאחד מהשניים, או שניתן לשים בה קישור, או שיהיו בה שני כפתורים שעל אחד כתוב פתח אתר, והכפתור יפתח את האתר, ובשני יהיה כתוב סגור
עד עכשיו זה מה שהצלחתי לעשות:Sub דיאלוג_עיצוב_פיסקא() ' ' דיאלוג_עיצוב_פיסקא Macro ' ' MsgBox "פוסט המקור https://mitmachim.top/post/626904" & vbNewLine & "בכפתורים הראשיים המאקרו הוא על כל המסמך", 0 + 64 + 524288 + 1048576, "המאקרו נכתב על ידי @pcinfogmach ממתמחים טופ" End Sub(אין קישורים בכלל)
Sub פתח_אתר() Dim IE As Object Set IE = CreateObject("InternetExplorer.Application") IE.Visible = True IE.Navigate "https://mitmachim.top/" End Sub(פותח באינטרנט אקספלורר)
@מתכנת-חובב @מגדלים@האדם-החושב תודה רבה על כל מה שעשית, עוד תגיע רחוק!
שאלה קטנה, לחצתי על החץ שאמור לפתוח תיבת דו שיח, ויוצאת לי שגיאה כזאת:
מה זה אומר? -
@האדם-החושב תודה רבה על כל מה שעשית, עוד תגיע רחוק!
שאלה קטנה, לחצתי על החץ שאמור לפתוח תיבת דו שיח, ויוצאת לי שגיאה כזאת:
מה זה אומר?@ששמעון כתב בלהורדה | עיצוב ספרי קודש - גירסא משלי:
שאלה קטנה, לחצתי על החץ שאמור לפתוח תיבת דו שיח, ויוצאת לי שגיאה כזאת:
בגדול זה אומר שחלק זה של התוסף איננו פעיל בגירסה זו. (אי"ה בגירסה הבאה הוא כבר יסדר את זה).
-
@האדם-החושב כתב בלהורדה | עיצוב ספרי קודש - גירסא משלי:
אני צריך פקודת מאקרו שפותחת את הדפדפן בכתובת שאני מגדיר מראש
Sub OpenLink() Dim Link As String Link = "https://mitmachim.top/post/626904" 'Replace with your desired link ActiveDocument.FollowHyperlink Address:=Link End Subאגב דברים כאלו צ'אט גיפיטי יכול לעשות לך בקלות
@pcinfogmach כתב בלהורדה | עיצוב ספרי קודש - גירסא משלי:
אגב דברים כאלו צ'אט גיפיטי יכול לעשות לך בקלות
אז שאלתי את צאט גיפטי והוא נתן לי את הקוד החמוד הזה:
מה שטוב בקוד הזה שהוא יכול לפתוח כל דבר במחשב תוכנות תיקיות וכמובן גם אתרים.
רק צריך לוודא שהוא יהיה במודול בפני עצמו כדי למנוע בעיות ושלא יהיה מופע כפול של option ExplicitOption Explicit Private Declare PtrSafe Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _ (ByVal hwnd As LongPtr, ByVal lpOperation As String, ByVal lpFile As String, _ ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As LongPtr Sub OpenWebPage() Dim url As String url = "https://www.example.com" 'Replace with the URL of the webpage you want to open ShellExecute 0, "open", url, vbNullString, vbNullString, vbNormalFocus End Sub
![חיפוש גוגל בפורום](javascript:{bootbox.prompt({title:'<div style="text-align: center;"><img src="/assets/uploads/files/1625950269825-mt-google.png" width="400"></div>',placeholder:'כתוב מילים לחיפוש ב Google',buttons:{confirm:{label:'חיפוש'},cancel:{label:'ביטול'}},backdrop:true,callback:function(result){if(result!=null&&result!=''){var a=document.createElement('a');a.href='https://www.google.co.il/search?q=site:mitmachim.top '+encodeURIComponent(result.trim());a.target='_blank';a.click();}}})();};){kind=link}