להורדה | תוסף וורד תורני
-
@האדם-החושב
מאוד נהניתי ממה שעשית - נראה שיש לך כישרון לזה
הרעיון שלך לכלול את כל הפקודות בתפריט שיורד מהכפתור המקורי - הוא רעיון נפלא וצודק!@האדם-החושב כתב בלהורדה | עיצוב ספרי קודש - גירסא משלי:
ביישור טורים של כל מאקרו מחולק למודול אחר ,ניסיתי להעתיק את כולם לתבנית שהכנתי ,אבל כלום לא עוזר (ניסיתי גם להעתיק את המאקרו "עורך טורים" פעם אחת וגם כנגד כל מאקרו ומאקרו)
"כלום לא עוזר" - לא ברור מספיק מה הבעיה המאקרו? הלחצן?
@האדם-החושב כתב בלהורדה | עיצוב ספרי קודש - גירסא משלי:
ב"מעצב טורים" משום מה אני מקבל שוב ושוב שגיאה ,למרות שכשהעתקתי את המאקרו המקורי לתבנית הנורמאל זה עובד מצויין
האם אתה מקבל את השגיאה בכל תבנית שאתה יוצר או רק בתבנית של התוסף?
@האדם-החושב כתב בלהורדה | עיצוב ספרי קודש - גירסא משלי:
הסתבכתי קצת עם העיצוב של התפריטים ,אני רוצה שזה יראה כמה שיותר אסתטי ,ניסיתי לעשות ירידת שורה בתיאור על ידי הוספה של /n ,אבל זה לא עזר ,אשמח אם תוכלו ליידע אותי על עוד אופציות (לשינוי הנראות של הטקסט ולשינוי הגדלים של הסמלים ,אולי יש אקסטרה סמול ,מדיום וכו')
לעניין גדלים - לפי מה שראתי אין יתר מגדול וקטן
@האדם-החושב כתב בלהורדה | עיצוב ספרי קודש - גירסא משלי:
רציתי גם לשאול אם יש דרך התוכנה אפשרות להוסיף את החיצים הקטנים שבצד כל קבוצה למטה (לצורך קרדיטים, הסברים וכו')
לא ברור למה כוונתך אולי תעלה תמונה של מה אתה מתכווין
@האדם-החושב כתב בלהורדה | עיצוב ספרי קודש - גירסא משלי:
לא היה לי זמן ליצור סמלים ,אשמח אם מישהו יעלה לכאן סמלים מתאימים
לבינתיים לכאורה אפשר להשתמש בסמלים המובנים של מיקרוסופט כמו שכתבתי בפוסט של המדריך - אם לא אז לכל הפחות תבטל את השורה בקוד של הלחצן שמבקשת תמונה, כי לבינתיים זה גורם הרבה שגיאות מיותרות.
-
@pcinfogmach כתב בלהורדה | עיצוב ספרי קודש - גירסא משלי:
כלום לא עוזר" - לא ברור מספיק מה הבעיה המאקרו? הלחצן?
המאקרו
@pcinfogmach כתב בלהורדה | עיצוב ספרי קודש - גירסא משלי:
לא ברור למה כוונתך אולי תעלה תמונה של מה אתה מתכווין
@pcinfogmach כתב בלהורדה | עיצוב ספרי קודש - גירסא משלי:
לכל הפחות תבטל את השורה בקוד של הלחצן שמבקשת תמונה, כי לבינתיים זה גורם הרבה שגיאות מיותרות.
מוזר, לא קיבלתי שגיאות
-
@האדם-החושב
לגבי הבעיה עם המאקרו - ייתכן שהבעיה היא חוסר תאימות בין הקוד לתבנית. הסיבה לכך משום שהתבנית בנויה על טכנולוגיה ישנה (כי בחדש כבר אין אפשרות להתאמה של הלחצנים בצורה זו).
מה שצריך לעשות זה לעבור על הקוד מאקרו ולראות אם צריך להתאים אותו לגירסאות ישנות יותר של וורד.לגבי החיצים שצצינת בתמונה כרגע אין לי מידע על זה.
לגבי השגיאות עם התמונות ייתכן שזה קשור לגירסה של וורד (לי יש 2019).
-
@pcinfogmach כתב בלהורדה | עיצוב ספרי קודש - גירסא משלי:
מה שצריך לעשות זה לעבור על הקוד מאקרו ולהתאים אותו לגירסאות ישנות יותר של וורד.
מי מתנדב? (אין לי שמץ של מושג בויזואל בייסיק
)
-
ב"מעצב טורים" משום מה אני מקבל שוב ושוב שגיאה ,
פשוט לא הכנסת את המאקרו הנכון והסופי, להלן המאקרו הנכון, ויש בזה שני לחצנים, 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
למותר לציין שאפשרי ורצוי לערוך ,להוסיף וכו' -
@האדם-החושב כתב ב[להורדה | עיצוב ספרי קודש - גירסא משלי]
@מניין אשמח אם תוכל לבדוק מה הבעייה עם מעצב טורים
השבתי לך כבר כאן לפני ששאלת.
-
מ מניין התייחס לנושא זה ב
-
@האדם-החושב כתב בלהורדה | עיצוב ספרי קודש - גירסא משלי:
רציתי גם לשאול אם יש דרך התוכנה אפשרות להוסיף את החיצים הקטנים שבצד כל קבוצה למטה (לצורך קרדיטים, הסברים וכו')
נוסף כעת הקוד כאן במדריך
-
עדכון: גיר' 3, תוקן הבאג בעיצוב טורים וכן נוסף המאקרו חיפוש סוגריים לא סגורים של @menajemmendel
גירסא 3 האדם החושב.rar -
@האדם-החושב כתב בלהורדה | עיצוב ספרי קודש - גירסא משלי:
עדכון: גיר' 3, תוקן הבאג בעיצוב טורים וכן נוסף המאקרו חיפוש סוגריים לא סגורים של @menajemmendel
גירסא 3 האדם החושב.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
(פותח באינטרנט אקספלורר)
@מתכנת-חובב @מגדלים