להורדה | תוסף עיצוב תורני לוורד
-
@simcha33345
חששתי שזה יקרה היה בעיה דומה בגירסה 1 אנסה לעכן בגירסה הבאה בלי נדר.
אם תוכל לעשות לי טובה אחת לבדוק את המאקרו הזה אם הוא גם לא עובד.@pcinfogmach אוקי, אני שולח לידיד ואחכה לתגובתו.
אעדכן כשיעדכן אותי בס"ד. -
בקשת עזרה ביצירת מאקרו
עד עכשיו הלכתי על כיוון של יצירת קודים נקיים בלי בעיות - למעשה נוכחתי לראות שבמסמכים ארוכים ייתכן שיהיה מי שיעדיף להריץ קוד מהיר אפילו אם יש בו בעיות עד גבול מסויים ולכן אני רוצה ליצור לחצן שנקרא עיצוב מהיר (ומסוכן קימעא).
אז איפה אני צריך עזרה?
קודם כל הקדמה קצרה: בשיטה שהשתמשתי בה עד עכשיו הקוד עובד על עיקרון של הרצה על כל פיסקה בנפרד. משא"כ בעיצוב המהיר שאני מתכנן הכל קורה בבת אחת על ידי חיפוש והחלפה.
הבעיה הגדולה היא: איך למצוא מה הוגדר על ידי המשתמש ככותרת כדי להחריג אותו מהעיצוב האוטומטי. הפיתרון שלי הוא: להחריג כל פיסקה מודגשת.
השאלה לציבור היא האם זה פתרון טוב? והאם יש עוד סימני זיהוי לכותרת שאוכל ליצור על ידי חיפוש והחלפה (חוץ מסגנון כותרת כמובן כי הבעיה מתחילה כלא הוחל סגנון כותרת על הכותרות).
והנה ההתחלה של הקוד: (אשמח מאוד לקבל עוד הצעות לשיפורים)
השתדלתי לכתוב הסברים על כל שלב כדי למנוע בלבולAttribute VB_Name = "Module2" Option Explicit Sub עיצוב_מהיר() 'עיצוב ספרי קודש ברגעים ספורים גם על מסמכים ארוכים ' ' ' ' 'עיצוב חלון על עיקרון מסגרת ' עיצוב מילה ראשונה על עיקרון של החלת סגנון ' עיצוב שורה אחרונה על עיקרון של שלמה מימות ממתמחים טופ ' ' ' 'חלק א יצירת סגנון עם מסגרת - נוצר על ידי הקלטה של יצירת סגנון - כך שאין לי מה להסיר פה באמת On Error Resume Next ActiveDocument.Styles.Add Name:="מילת פתיח עיצוב מהיר", Type:= _ wdStyleTypeParagraph ActiveDocument.Styles("מילת פתיח עיצוב מהיר").AutomaticallyUpdate = False With ActiveDocument.Styles("מילת פתיח עיצוב מהיר").Font .Name = "+גוף" .Size = 11 .Bold = False .Italic = False .Underline = wdUnderlineNone .UnderlineColor = wdColorAutomatic .StrikeThrough = False .DoubleStrikeThrough = False .Outline = False .Emboss = False .Shadow = False .Hidden = False .SmallCaps = False .AllCaps = False .Color = wdColorAutomatic .Engrave = False .Superscript = False .Subscript = False .Scaling = 100 .Kerning = 1 .Animation = wdAnimationNone .SizeBi = 11 .NameBi = "Arial" .BoldBi = True .ItalicBi = False .Ligatures = wdLigaturesStandardContextual .NumberSpacing = wdNumberSpacingDefault .NumberForm = wdNumberFormDefault .StylisticSet = wdStylisticSetDefault .ContextualAlternates = 0 End With With ActiveDocument.Styles("מילת פתיח עיצוב מהיר").ParagraphFormat .LeftIndent = CentimetersToPoints(0) .RightIndent = CentimetersToPoints(0) .SpaceBefore = 0 .SpaceBeforeAuto = False .SpaceAfter = 8 .SpaceAfterAuto = False .LineSpacingRule = wdLineSpaceMultiple .LineSpacing = LinesToPoints(1.08) .Alignment = wdAlignParagraphLeft .WidowControl = True .KeepWithNext = False .KeepTogether = False .PageBreakBefore = False .NoLineNumber = False .Hyphenation = True .FirstLineIndent = CentimetersToPoints(0) .OutlineLevel = wdOutlineLevelBodyText .CharacterUnitLeftIndent = 0 .CharacterUnitRightIndent = 0 .CharacterUnitFirstLineIndent = 0 .LineUnitBefore = 0 .LineUnitAfter = 0 .MirrorIndents = False .TextboxTightWrap = wdTightNone .CollapsedByDefault = False .ReadingOrder = wdReadingOrderRtl End With ActiveDocument.Styles("מילת פתיח עיצוב מהיר"). _ NoSpaceBetweenParagraphsOfSameStyle = False ActiveDocument.Styles("מילת פתיח עיצוב מהיר").ParagraphFormat.TabStops. _ ClearAll With ActiveDocument.Styles("מילת פתיח עיצוב מהיר").ParagraphFormat With .Shading .Texture = wdTextureNone .ForegroundPatternColor = wdColorAutomatic .BackgroundPatternColor = wdColorAutomatic End With .Borders(wdBorderLeft).LineStyle = wdLineStyleNone .Borders(wdBorderRight).LineStyle = wdLineStyleNone .Borders(wdBorderTop).LineStyle = wdLineStyleNone .Borders(wdBorderBottom).LineStyle = wdLineStyleNone With .Borders .DistanceFromTop = 1 .DistanceFromLeft = 4 .DistanceFromBottom = 1 .DistanceFromRight = 4 .Shadow = False End With End With With ActiveDocument.Styles("מילת פתיח עיצוב מהיר").Frame .TextWrap = True .WidthRule = wdFrameAuto .HeightRule = wdFrameAuto .HorizontalPosition = wdFrameRight .RelativeHorizontalPosition = wdRelativeHorizontalPositionColumn .VerticalPosition = CentimetersToPoints(0) .RelativeVerticalPosition = wdRelativeVerticalPositionParagraph .HorizontalDistanceFromText = CentimetersToPoints(0.13) .VerticalDistanceFromText = CentimetersToPoints(0) .LockAnchor = False End With On Error GoTo 0 'חלק ב החלת העיצוב 'החלת עיצוב שורה אחרונה 'שינוי הטאבים ל- 0 Selection.ParagraphFormat.TabStops.ClearAll ActiveDocument.DefaultTabStop = CentimetersToPoints(0) 'הוספת טאב בסוף כל פיסקה Selection.WholeStory Selection.ParagraphFormat.Alignment = wdAlignParagraphDistribute Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = "^p" .Replacement.Text = "^t^&" .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchKashida = False .MatchDiacritics = False .MatchAlefHamza = False .MatchControl = False .MatchAllWordForms = False .MatchSoundsLike = False .MatchWildcards = False End With Selection.Find.Execute Replace:=wdReplaceAll 'החלת עיצוב חלון ועיצוב מילה ראשונה 'החלת סימן החרגה עבור פיסקאות מודגשות (כותרות) Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = "" .Replacement.Text = "^s^s^s^s^&" .Forward = True .Wrap = wdFindContinue .Format = True .Font.BoldBi = True .MatchCase = False .MatchWholeWord = False .MatchKashida = False .MatchDiacritics = False .MatchAlefHamza = False .MatchControl = False .MatchAllWordForms = False .MatchSoundsLike = False .MatchWildcards = False End With Selection.Find.Execute Replace:=wdReplaceAll 'סימון המילה הראושנה והפרדתו מהפיסקה שאחריו (כדי שהסגנון יחול רק עליו ולא על כל הפיסקה 'אין אפשרות שיחול רק עליו בלי זה כי צריך להחיל עליו מסגרת 'אין בעיה במה שהואנפרד כי המסגרת מוגדרת לקבץ אותו יחד עם הפיסקה שאחריו Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = "(^13)([!^s]@ )" .Replacement.Text = "\1^+^=^~^s\2^s^~^=^+^p" .Forward = True .Wrap = wdFindContinue .MatchCase = False .MatchWholeWord = False .MatchKashida = False .MatchDiacritics = False .MatchAlefHamza = False .MatchControl = False .MatchAllWordForms = False .MatchSoundsLike = False .MatchWildcards = True End With Selection.Find.Execute Replace:=wdReplaceAll 'החלת סגנון מילה ראשונה כולל מסגרת Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting Application.ScreenRefresh Selection.Find.Replacement.style = ActiveDocument.Styles("מילת פתיח עיצוב מהיר") With Selection.Find .Text = "(^+^=^~^s)(*)(^s^~^=^+)" .Replacement.Text = "\2" .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = False .MatchWholeWord = False .MatchKashida = False .MatchDiacritics = False .MatchAlefHamza = False .MatchControl = False .MatchAllWordForms = False .MatchSoundsLike = False .MatchWildcards = True End With Selection.Find.Execute Replace:=wdReplaceAll 'ניקוי הסימנים מפסקאות מודגשות (כותרות) Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = "^s^s^s^s" .Replacement.Text = "" .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchKashida = False .MatchDiacritics = False .MatchAlefHamza = False .MatchControl = False .MatchAllWordForms = False .MatchSoundsLike = False .MatchWildcards = True End With Selection.Find.Execute Replace:=wdReplaceAll End Sub@pcinfogmach כתב בלהורדה | תוסף חדש לוורד - עיצוב ספרי קודש:
הפיתרון שלי הוא: להחריג כל פיסקה מודגשת.
לדעתי הפתרון הפשוט הוא להחריג את הפסקאות הממורכזות, ולאו דווקא מודגשות...
-
@בוקר-טוב
תודה. אנסה לטפל בזה בגירסאות הבאות בלי נדר.@pcinfogmach כתב בלהורדה | תוסף חדש לוורד - עיצוב ספרי קודש:
תודה. אנסה לטפל בזה בגירסאות הבאות בלי נדר.
אולי תעלה את המסמך בינתיים לכאן
לתועלת כולנו. -
@simcha33345
חששתי שזה יקרה היה בעיה דומה בגירסה 1 אנסה לעכן בגירסה הבאה בלי נדר.
אם תוכל לעשות לי טובה אחת לבדוק את המאקרו הזה אם הוא גם לא עובד.@pcinfogmach זה לא עובד, יצר מאקרו חדש
והדביק את הקוד לתוכו ושמר והפעיל וכו'...
וקופץ שגיאה.. -
@pcinfogmach זה לא עובד, יצר מאקרו חדש
והדביק את הקוד לתוכו ושמר והפעיל וכו'...
וקופץ שגיאה..@simcha33345 כתב בלהורדה | תוסף חדש לוורד - עיצוב ספרי קודש:
צר מאקרו חדש
והדביק את הקוד לתוכו ושמר והפעיל וכו'...
וקופץ שגיאה..תןדה עזרת לי מאוד - יתוקן בלי נדר בגירסה הבאה
-
בקשת עזרה ביצירת מאקרו
עד עכשיו הלכתי על כיוון של יצירת קודים נקיים בלי בעיות - למעשה נוכחתי לראות שבמסמכים ארוכים ייתכן שיהיה מי שיעדיף להריץ קוד מהיר אפילו אם יש בו בעיות עד גבול מסויים ולכן אני רוצה ליצור לחצן שנקרא עיצוב מהיר (ומסוכן קימעא).
אז איפה אני צריך עזרה?
קודם כל הקדמה קצרה: בשיטה שהשתמשתי בה עד עכשיו הקוד עובד על עיקרון של הרצה על כל פיסקה בנפרד. משא"כ בעיצוב המהיר שאני מתכנן הכל קורה בבת אחת על ידי חיפוש והחלפה.
הבעיה הגדולה היא: איך למצוא מה הוגדר על ידי המשתמש ככותרת כדי להחריג אותו מהעיצוב האוטומטי. הפיתרון שלי הוא: להחריג כל פיסקה מודגשת.
השאלה לציבור היא האם זה פתרון טוב? והאם יש עוד סימני זיהוי לכותרת שאוכל ליצור על ידי חיפוש והחלפה (חוץ מסגנון כותרת כמובן כי הבעיה מתחילה כלא הוחל סגנון כותרת על הכותרות).
והנה ההתחלה של הקוד: (אשמח מאוד לקבל עוד הצעות לשיפורים)
השתדלתי לכתוב הסברים על כל שלב כדי למנוע בלבולAttribute VB_Name = "Module2" Option Explicit Sub עיצוב_מהיר() 'עיצוב ספרי קודש ברגעים ספורים גם על מסמכים ארוכים ' ' ' ' 'עיצוב חלון על עיקרון מסגרת ' עיצוב מילה ראשונה על עיקרון של החלת סגנון ' עיצוב שורה אחרונה על עיקרון של שלמה מימות ממתמחים טופ ' ' ' 'חלק א יצירת סגנון עם מסגרת - נוצר על ידי הקלטה של יצירת סגנון - כך שאין לי מה להסיר פה באמת On Error Resume Next ActiveDocument.Styles.Add Name:="מילת פתיח עיצוב מהיר", Type:= _ wdStyleTypeParagraph ActiveDocument.Styles("מילת פתיח עיצוב מהיר").AutomaticallyUpdate = False With ActiveDocument.Styles("מילת פתיח עיצוב מהיר").Font .Name = "+גוף" .Size = 11 .Bold = False .Italic = False .Underline = wdUnderlineNone .UnderlineColor = wdColorAutomatic .StrikeThrough = False .DoubleStrikeThrough = False .Outline = False .Emboss = False .Shadow = False .Hidden = False .SmallCaps = False .AllCaps = False .Color = wdColorAutomatic .Engrave = False .Superscript = False .Subscript = False .Scaling = 100 .Kerning = 1 .Animation = wdAnimationNone .SizeBi = 11 .NameBi = "Arial" .BoldBi = True .ItalicBi = False .Ligatures = wdLigaturesStandardContextual .NumberSpacing = wdNumberSpacingDefault .NumberForm = wdNumberFormDefault .StylisticSet = wdStylisticSetDefault .ContextualAlternates = 0 End With With ActiveDocument.Styles("מילת פתיח עיצוב מהיר").ParagraphFormat .LeftIndent = CentimetersToPoints(0) .RightIndent = CentimetersToPoints(0) .SpaceBefore = 0 .SpaceBeforeAuto = False .SpaceAfter = 8 .SpaceAfterAuto = False .LineSpacingRule = wdLineSpaceMultiple .LineSpacing = LinesToPoints(1.08) .Alignment = wdAlignParagraphLeft .WidowControl = True .KeepWithNext = False .KeepTogether = False .PageBreakBefore = False .NoLineNumber = False .Hyphenation = True .FirstLineIndent = CentimetersToPoints(0) .OutlineLevel = wdOutlineLevelBodyText .CharacterUnitLeftIndent = 0 .CharacterUnitRightIndent = 0 .CharacterUnitFirstLineIndent = 0 .LineUnitBefore = 0 .LineUnitAfter = 0 .MirrorIndents = False .TextboxTightWrap = wdTightNone .CollapsedByDefault = False .ReadingOrder = wdReadingOrderRtl End With ActiveDocument.Styles("מילת פתיח עיצוב מהיר"). _ NoSpaceBetweenParagraphsOfSameStyle = False ActiveDocument.Styles("מילת פתיח עיצוב מהיר").ParagraphFormat.TabStops. _ ClearAll With ActiveDocument.Styles("מילת פתיח עיצוב מהיר").ParagraphFormat With .Shading .Texture = wdTextureNone .ForegroundPatternColor = wdColorAutomatic .BackgroundPatternColor = wdColorAutomatic End With .Borders(wdBorderLeft).LineStyle = wdLineStyleNone .Borders(wdBorderRight).LineStyle = wdLineStyleNone .Borders(wdBorderTop).LineStyle = wdLineStyleNone .Borders(wdBorderBottom).LineStyle = wdLineStyleNone With .Borders .DistanceFromTop = 1 .DistanceFromLeft = 4 .DistanceFromBottom = 1 .DistanceFromRight = 4 .Shadow = False End With End With With ActiveDocument.Styles("מילת פתיח עיצוב מהיר").Frame .TextWrap = True .WidthRule = wdFrameAuto .HeightRule = wdFrameAuto .HorizontalPosition = wdFrameRight .RelativeHorizontalPosition = wdRelativeHorizontalPositionColumn .VerticalPosition = CentimetersToPoints(0) .RelativeVerticalPosition = wdRelativeVerticalPositionParagraph .HorizontalDistanceFromText = CentimetersToPoints(0.13) .VerticalDistanceFromText = CentimetersToPoints(0) .LockAnchor = False End With On Error GoTo 0 'חלק ב החלת העיצוב 'החלת עיצוב שורה אחרונה 'שינוי הטאבים ל- 0 Selection.ParagraphFormat.TabStops.ClearAll ActiveDocument.DefaultTabStop = CentimetersToPoints(0) 'הוספת טאב בסוף כל פיסקה Selection.WholeStory Selection.ParagraphFormat.Alignment = wdAlignParagraphDistribute Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = "^p" .Replacement.Text = "^t^&" .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchKashida = False .MatchDiacritics = False .MatchAlefHamza = False .MatchControl = False .MatchAllWordForms = False .MatchSoundsLike = False .MatchWildcards = False End With Selection.Find.Execute Replace:=wdReplaceAll 'החלת עיצוב חלון ועיצוב מילה ראשונה 'החלת סימן החרגה עבור פיסקאות מודגשות (כותרות) Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = "" .Replacement.Text = "^s^s^s^s^&" .Forward = True .Wrap = wdFindContinue .Format = True .Font.BoldBi = True .MatchCase = False .MatchWholeWord = False .MatchKashida = False .MatchDiacritics = False .MatchAlefHamza = False .MatchControl = False .MatchAllWordForms = False .MatchSoundsLike = False .MatchWildcards = False End With Selection.Find.Execute Replace:=wdReplaceAll 'סימון המילה הראושנה והפרדתו מהפיסקה שאחריו (כדי שהסגנון יחול רק עליו ולא על כל הפיסקה 'אין אפשרות שיחול רק עליו בלי זה כי צריך להחיל עליו מסגרת 'אין בעיה במה שהואנפרד כי המסגרת מוגדרת לקבץ אותו יחד עם הפיסקה שאחריו Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = "(^13)([!^s]@ )" .Replacement.Text = "\1^+^=^~^s\2^s^~^=^+^p" .Forward = True .Wrap = wdFindContinue .MatchCase = False .MatchWholeWord = False .MatchKashida = False .MatchDiacritics = False .MatchAlefHamza = False .MatchControl = False .MatchAllWordForms = False .MatchSoundsLike = False .MatchWildcards = True End With Selection.Find.Execute Replace:=wdReplaceAll 'החלת סגנון מילה ראשונה כולל מסגרת Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting Application.ScreenRefresh Selection.Find.Replacement.style = ActiveDocument.Styles("מילת פתיח עיצוב מהיר") With Selection.Find .Text = "(^+^=^~^s)(*)(^s^~^=^+)" .Replacement.Text = "\2" .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = False .MatchWholeWord = False .MatchKashida = False .MatchDiacritics = False .MatchAlefHamza = False .MatchControl = False .MatchAllWordForms = False .MatchSoundsLike = False .MatchWildcards = True End With Selection.Find.Execute Replace:=wdReplaceAll 'ניקוי הסימנים מפסקאות מודגשות (כותרות) Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = "^s^s^s^s" .Replacement.Text = "" .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchKashida = False .MatchDiacritics = False .MatchAlefHamza = False .MatchControl = False .MatchAllWordForms = False .MatchSoundsLike = False .MatchWildcards = True End With Selection.Find.Execute Replace:=wdReplaceAll End Sub@pcinfogmach כתב בלהורדה | תוסף חדש לוורד - עיצוב ספרי קודש:
בקשת עזרה ביצירת מאקרו
עד עכשיו הלכתי על כיוון של יצירת קודים נקיים בלי בעיות - למעשה נוכחתי לראות שבמסמכים ארוכים ייתכן שיהיה מי שיעדיף להריץ קוד מהיר אפילו אם יש בו בעיות עד גבול מסויים ולכן אני רוצה ליצור לחצן שנקרא עיצוב מהיר (ומסוכן קימעא).
אז איפה אני צריך עזרה?
קודם כל הקדמה קצרה: בשיטה שהשתמשתי בה עד עכשיו הקוד עובד על עיקרון של הרצה על כל פיסקה בנפרד. משא"כ בעיצוב המהיר שאני מתכנן הכל קורה בבת אחת על ידי חיפוש והחלפה.
הבעיה הגדולה היא: איך למצוא מה הוגדר על ידי המשתמש ככותרת כדי להחריג אותו מהעיצוב האוטומטי. הפיתרון שלי הוא: להחריג כל פיסקה מודגשת.
השאלה לציבור היא האם זה פתרון טוב? והאם יש עוד סימני זיהוי לכותרת שאוכל ליצור על ידי חיפוש והחלפה (חוץ מסגנון כותרת כמובן כי הבעיה מתחילה כלא הוחל סגנון כותרת על הכותרות).
לדעתי הזיהוי צריך להיות לפי פסקה ממורכזת. בדרך כלל תוכן עושים ביישור לשני הצדדים וכותרות עושים ממורכזות.
הפתרון של המודגש פחות טוב היות והרבה פעמים מדגישים טקסט אולי עם תנאי כשכל הפסקה מודגשת שזה וודאי כותרת.
תודה רבה על כל ההשקעה!!!נ.ב. אם יש לך סבלנות ליצור מאקרואים נוספים. יהיה טוב אם יהיה מאקרו שמסיר תווים מהמסמך כמו מעברי עמוד, פסקה, טור וכדו' ומחליף אותם באנטר. זה יעזור כמשמעמדים קובץ שנכתב ללא עימוד ובדרך כלל מוסיפים לו כל מיני מעברים ואח"כ שמעמדים הכל משתבש..
-
@pcinfogmach כתב בלהורדה | תוסף חדש לוורד - עיצוב ספרי קודש:
בקשת עזרה ביצירת מאקרו
עד עכשיו הלכתי על כיוון של יצירת קודים נקיים בלי בעיות - למעשה נוכחתי לראות שבמסמכים ארוכים ייתכן שיהיה מי שיעדיף להריץ קוד מהיר אפילו אם יש בו בעיות עד גבול מסויים ולכן אני רוצה ליצור לחצן שנקרא עיצוב מהיר (ומסוכן קימעא).
אז איפה אני צריך עזרה?
קודם כל הקדמה קצרה: בשיטה שהשתמשתי בה עד עכשיו הקוד עובד על עיקרון של הרצה על כל פיסקה בנפרד. משא"כ בעיצוב המהיר שאני מתכנן הכל קורה בבת אחת על ידי חיפוש והחלפה.
הבעיה הגדולה היא: איך למצוא מה הוגדר על ידי המשתמש ככותרת כדי להחריג אותו מהעיצוב האוטומטי. הפיתרון שלי הוא: להחריג כל פיסקה מודגשת.
השאלה לציבור היא האם זה פתרון טוב? והאם יש עוד סימני זיהוי לכותרת שאוכל ליצור על ידי חיפוש והחלפה (חוץ מסגנון כותרת כמובן כי הבעיה מתחילה כלא הוחל סגנון כותרת על הכותרות).
לדעתי הזיהוי צריך להיות לפי פסקה ממורכזת. בדרך כלל תוכן עושים ביישור לשני הצדדים וכותרות עושים ממורכזות.
הפתרון של המודגש פחות טוב היות והרבה פעמים מדגישים טקסט אולי עם תנאי כשכל הפסקה מודגשת שזה וודאי כותרת.
תודה רבה על כל ההשקעה!!!נ.ב. אם יש לך סבלנות ליצור מאקרואים נוספים. יהיה טוב אם יהיה מאקרו שמסיר תווים מהמסמך כמו מעברי עמוד, פסקה, טור וכדו' ומחליף אותם באנטר. זה יעזור כמשמעמדים קובץ שנכתב ללא עימוד ובדרך כלל מוסיפים לו כל מיני מעברים ואח"כ שמעמדים הכל משתבש..
תודה רבה על המשוב הנפלא!
@mfmf כתב בלהורדה | תוסף חדש לוורד - עיצוב ספרי קודש:
לדעתי הזיהוי צריך להיות לפי פסקה ממורכזת.
קצת בעיה כי זה יאט את המאקרו. ומאקרו איטי כבר יש. רק רציתי שיהיה גם מאקרו מהיר.
@mfmf כתב בלהורדה | תוסף חדש לוורד - עיצוב ספרי קודש:
יהיה טוב אם יהיה מאקרו שמסיר תווים מהמסמך כמו מעברי עמוד, פסקה, טור וכדו' ומחליף אותם באנטר.
כל זה אפשר בקלות לעשות על ידי חיפוש והחלפה אולי תיקח יוזמה תקליט את זה ותעשה לזה מאקרו ותעלה לשרשור של המאקוראים
-
@pcinfogmach כתב בלהורדה | תוסף חדש לוורד - עיצוב ספרי קודש:
בקשת עזרה ביצירת מאקרו
עד עכשיו הלכתי על כיוון של יצירת קודים נקיים בלי בעיות - למעשה נוכחתי לראות שבמסמכים ארוכים ייתכן שיהיה מי שיעדיף להריץ קוד מהיר אפילו אם יש בו בעיות עד גבול מסויים ולכן אני רוצה ליצור לחצן שנקרא עיצוב מהיר (ומסוכן קימעא).
אז איפה אני צריך עזרה?
קודם כל הקדמה קצרה: בשיטה שהשתמשתי בה עד עכשיו הקוד עובד על עיקרון של הרצה על כל פיסקה בנפרד. משא"כ בעיצוב המהיר שאני מתכנן הכל קורה בבת אחת על ידי חיפוש והחלפה.
הבעיה הגדולה היא: איך למצוא מה הוגדר על ידי המשתמש ככותרת כדי להחריג אותו מהעיצוב האוטומטי. הפיתרון שלי הוא: להחריג כל פיסקה מודגשת.
השאלה לציבור היא האם זה פתרון טוב? והאם יש עוד סימני זיהוי לכותרת שאוכל ליצור על ידי חיפוש והחלפה (חוץ מסגנון כותרת כמובן כי הבעיה מתחילה כלא הוחל סגנון כותרת על הכותרות).
לדעתי הזיהוי צריך להיות לפי פסקה ממורכזת. בדרך כלל תוכן עושים ביישור לשני הצדדים וכותרות עושים ממורכזות.
הפתרון של המודגש פחות טוב היות והרבה פעמים מדגישים טקסט אולי עם תנאי כשכל הפסקה מודגשת שזה וודאי כותרת.
תודה רבה על כל ההשקעה!!!נ.ב. אם יש לך סבלנות ליצור מאקרואים נוספים. יהיה טוב אם יהיה מאקרו שמסיר תווים מהמסמך כמו מעברי עמוד, פסקה, טור וכדו' ומחליף אותם באנטר. זה יעזור כמשמעמדים קובץ שנכתב ללא עימוד ובדרך כלל מוסיפים לו כל מיני מעברים ואח"כ שמעמדים הכל משתבש..
@mfmf כתב בלהורדה | תוסף חדש לוורד - עיצוב ספרי קודש:
נ.ב. אם יש לך סבלנות ליצור מאקרואים נוספים. יהיה טוב אם יהיה מאקרו שמסיר תווים מהמסמך כמו מעברי עמוד, פסקה, טור וכדו' ומחליף אותם באנטר. זה יעזור כמשמעמדים קובץ שנכתב ללא עימוד ובדרך כלל מוסיפים לו כל מיני מעברים ואח"כ שמעמדים הכל משתבש..
אתה יכול להקליט מאקרו של חיפוש והחלפה פשוט, זה לא חייב להתבצע עם ראש 'תכנותי'
-
@mfmf כתב בלהורדה | תוסף חדש לוורד - עיצוב ספרי קודש:
נ.ב. אם יש לך סבלנות ליצור מאקרואים נוספים. יהיה טוב אם יהיה מאקרו שמסיר תווים מהמסמך כמו מעברי עמוד, פסקה, טור וכדו' ומחליף אותם באנטר. זה יעזור כמשמעמדים קובץ שנכתב ללא עימוד ובדרך כלל מוסיפים לו כל מיני מעברים ואח"כ שמעמדים הכל משתבש..
אתה יכול להקליט מאקרו של חיפוש והחלפה פשוט, זה לא חייב להתבצע עם ראש 'תכנותי'
-
@ישראליק צודק
אבל זה יהיה נחמד אם הכל יהיה בתוסף המשולם של @pcinfogmach ובמסך אחד אתה פותר את כל הבעיות.. -
@pcinfogmach כתב בלהורדה | תוסף חדש לוורד - עיצוב ספרי קודש:
בקשת עזרה ביצירת מאקרו
עד עכשיו הלכתי על כיוון של יצירת קודים נקיים בלי בעיות - למעשה נוכחתי לראות שבמסמכים ארוכים ייתכן שיהיה מי שיעדיף להריץ קוד מהיר אפילו אם יש בו בעיות עד גבול מסויים ולכן אני רוצה ליצור לחצן שנקרא עיצוב מהיר (ומסוכן קימעא).
אז איפה אני צריך עזרה?
קודם כל הקדמה קצרה: בשיטה שהשתמשתי בה עד עכשיו הקוד עובד על עיקרון של הרצה על כל פיסקה בנפרד. משא"כ בעיצוב המהיר שאני מתכנן הכל קורה בבת אחת על ידי חיפוש והחלפה.
הבעיה הגדולה היא: איך למצוא מה הוגדר על ידי המשתמש ככותרת כדי להחריג אותו מהעיצוב האוטומטי. הפיתרון שלי הוא: להחריג כל פיסקה מודגשת.
השאלה לציבור היא האם זה פתרון טוב? והאם יש עוד סימני זיהוי לכותרת שאוכל ליצור על ידי חיפוש והחלפה (חוץ מסגנון כותרת כמובן כי הבעיה מתחילה כלא הוחל סגנון כותרת על הכותרות).
לדעתי הזיהוי צריך להיות לפי פסקה ממורכזת. בדרך כלל תוכן עושים ביישור לשני הצדדים וכותרות עושים ממורכזות.
הפתרון של המודגש פחות טוב היות והרבה פעמים מדגישים טקסט אולי עם תנאי כשכל הפסקה מודגשת שזה וודאי כותרת.
תודה רבה על כל ההשקעה!!!נ.ב. אם יש לך סבלנות ליצור מאקרואים נוספים. יהיה טוב אם יהיה מאקרו שמסיר תווים מהמסמך כמו מעברי עמוד, פסקה, טור וכדו' ומחליף אותם באנטר. זה יעזור כמשמעמדים קובץ שנכתב ללא עימוד ובדרך כלל מוסיפים לו כל מיני מעברים ואח"כ שמעמדים הכל משתבש..
@mfmf כתב בלהורדה | תוסף חדש לוורד - עיצוב ספרי קודש:
הפתרון של המודגש פחות טוב היות והרבה פעמים מדגישים טקסט אולי עם תנאי כשכל הפסקה מודגשת שזה וודאי כותרת.
רעיון מצויין!
-
עריכה נוכחית:
בקרוב פוסט ישמש רק עבור תגובות הפוסט הועבר לכאן
https://mitmachim.top/post/724341
תוסף תורני לוורד - חינמי
קוד פתוח (הקוד הוא: 1234)
תוסף-עיצוב-תורני-גרסה-7.9.zip
גירסת התקנה אוטומטית
**תוסף-עיצוב-תורני-7.9.exe **
גירסת האדם החושב
לפרטים על גירסה זו לחץ כאן
- למי שנחסם לו התוסף יש לפעול לפי ההוראות כאן
להלן חלק מהשינויים והשיפורים שנעשו בגירסה זו
- יוזרפורם מרווחים משופר
- מספור עברי משופר
- הערות מספור עברי - חדש!
- סוגריים משופר נוסף לו קיצור דרך על ידי לחיצה יחד עם ALT
- יוזרפורם של stylref
- הוספה לשדה seq
- יוזרפורם טאבים וכניסות משופר
- חילוץ טקסטים משופר
- חיפוש והחלפה מרובים עם יוזר פורם משופר
- בדיקת קוד לחיפוש והחלפה משופר
- גימטריא נוסף המרת אותיות למספרים
ועוד ועוד....
מידע נוסף:
התוסף נבנה על בסיס מאקרואים שפורסמו כאן. באם הדבר יתאפשר התוסף יתעדכן מפעם לפעם על פי המאקרואים הנ"ל ובלי נדר.בתוסף נוספו לחצנים עבור פקודות המאקרו על בסיס כתבה זו. ועל ידי תכנה זו. קודים אפשר למצוא כאן. בס"ד כתבתי מדריך מפורט איך לערוך תוסף לוורד כאן.
לגבי זכויות יוצרים - התוסף הוא חינמי וניתן להעבירו הלאה באופן פרטי. אם ברצונכם לפרסם את התוסף לרבים אבקש שבמקום זאת תפרסמו קישור של פוסט זה.
כמו"כ הרשות נתונה לכל שירצה להוסיף על התוסף ולשנותו - רק אבקש שתפרסמו את השינויים שלכם פה בשרשור זה.אשמח לקבל הערות והארות
נ.ב. קרדיט ותודה גדולה ל- @NykUser על כל העזרה ועל כל הקודים הנפלאים שהוא סיפק עבור תוסף זה. כמו"כ תודה גדולה ל @מאקרו ול @menajemmendel ול @דאנציג ו @צדיק-וטוב-לו-0 ו @האדם-החושב ו @מניין ולכל מי שעזר בשדרוג ובבניית התוסף (אבקש את מחילת כל מי שלא הזכרתי את שמו בפרטות עקב ריבוי העוזרים).
גירסאות קודמות
גירסה מס' 1:
תוסף עיצוב ספרי קודש.zip
הערה: יש בעיות בגירסה זו אצל חלק מהמשתמשים יש להשתמש בגירסה 2 והלאה.גירסה מס' 2:
תוסף עיצוב ספרי קודש גירסה 2.zip
תוקנו הבעיות בגירסה מס' 1. וכן תיקונים ושיפורים בפקודות המאקרו.גירסה מס' 3:
תוסף עיצוב ספרי קודש גירסה 3.zip
שדרוג יפה לממשק המשתמשגירסה מס' 4:
הקוד שודרג בכלליות. נוסף עיצוב חלון כפול (מקובל בחלק מהספרים בפסקאות עם שלוש שורות). ממשק המשתמש חזר ללחצנים קטנים למניעת בלבול. (מסתמן שבגירסה 5 יתווסף תמיכה גם בעיצוב הערות שוליים).
תוסף עיצוב ספרי קודש גירסה 4.zip
עדכון:
@שליו הכין קובץ התקנה אוטומטית למי שרוצה תוסף-עיצוב-ספרי-קודש.rar
סיסמה: "מתמחים טופ"בקובץ זה אין צורך להסיר ידנית את הגירסה הקודמתגירסה מס' 5.1:
תוסף עיצוב ספרי קודש גרסה 5.1.exe
וגירסה בקוד פתוח למי שרוצה:
תוסף עיצוב ספרי קודש גרסה 5.1.zipמה נוסף בגירסה זו
נוסף כעת לחצן התקנה והסרה בתוך התוסף עצמו.
נוסף תמיכה בעיצוב הערות שוליים.
בגירסה זו נוספות פקודות רבות והקודים שודרגו מקצה אל קצה. כמו"כ נוסף יישור טורים של @רפרם-ב-ר-פפא. ועוד כמה לחצנים שימושיים.כמו"כ נוסף בתוכו התוסף של @נוכחות לעיצוב הערות ברצף. עקב מורכבות התוסף לעיצוב הערות ברצף לא נוצר עבורו לחצן והוא זמין דרך תפריט המאקרו.
גירסה מספר 6:
תוסף עיצוב תורני גירסה 6.exe
תוסף עיצוב תורני גרסה 6.2.exe
תוסף עיצוב תורני גרסה 6.3.exe
תוסף עיצוב תורני גרסה 6.3 (קוד פתוח).zip- נעשה מאמץ מיוחד להתאים את התוסף עבור כל סוגי הוורד (עם כל זאת באפשרות של עיצוב הערות ברצף ייתכן בעיה עם גרסאות מאוד מסויימות של וורד).
- הקודים שודרגו ונעשו יותר מהירים.
- נוספו פקודות רבות ומגוונות (הציצו בתמונה).
- נוסף מספור עמוד תורני
כמו"כ בגרסה זו נוסף (אם מתקינים את התבנית במחשב) מספור עמודים עברי (ללא באג שצג) ומספור סגנון תלמוד בבלי. קרדיט ל @מאקרו - שם התוסף שונה ל- "תוסף עיצוב תורני"
שים לב! עקב שינוי השם יש להסיר את הגרסה הקודמת בצורה ידנית מתוך נתיב זה
%AppData%\Microsoft\Word\STARTUPתוקן הבעיה עם המפריד ברווח בין טורים בהערות שוליים
נוספו פקודות מחיקת ואיפוס מפריד הערות שוליים.
נוספו ההצעה של @מאן-דאמר וההצעה של @דאנציגגירסה 5 עודכן ל- 5.1 נפתרה הבעיה עם אופיס 365 ועוד שיפורים קלים
-
גירסה 5 עודכן ל- 5.1 נפתרה הבעיה עם אופיס 365 ועוד שיפורים קלים
@pcinfogmach כתב בלהורדה | תוסף חדש לוורד - עיצוב ספרי קודש:
גירסה 5 עודכן ל- 5.1 נפתרה הבעיה עם אופיס 365 ועוד שיפורים קלים
אם הבנתי נכון אז כדי לשדרג את הגירסה אצלי במחשב
יש להיכנס לוורד
ללשונית עיצוב ספרי קודש
ללחוץ על הסר
ואז להתקין מחדש עם הקובץ החדש? -
@pcinfogmach כתב בלהורדה | תוסף חדש לוורד - עיצוב ספרי קודש:
גירסה 5 עודכן ל- 5.1 נפתרה הבעיה עם אופיס 365 ועוד שיפורים קלים
אם הבנתי נכון אז כדי לשדרג את הגירסה אצלי במחשב
יש להיכנס לוורד
ללשונית עיצוב ספרי קודש
ללחוץ על הסר
ואז להתקין מחדש עם הקובץ החדש?@בוקר-טוב כתב בלהורדה | תוסף חדש לוורד - עיצוב ספרי קודש:
אם הבנתי נכון אז כדי לשדרג את הגירסה אצלי במחשב
יש להיכנס לוורד
ללשונית עיצוב ספרי קודש
ללחוץ על הסר
ואז להתקין מחדש עם הקובץ החדש?נכון מאוד - רק שההסרה לא קורי אוטומטית לחצן ההסרה פותח את התיקייה שמשם יש להסיר באופן ידני את הקובץ. (לפעמים צריך ללחוץ פעמיים כדי להסיר לא יודע למה)
עריכה: אם משתמשים עם קובץ ההתקנה אוטומטי עם הסיומת . exe אז העדכון קורה ממילא ואין צורך למחוק.
הערה חשובה: למי שלא מבין במאקרו בין כה מומלץ להשתמש בקובץ זה כדי שלא ייפתח לכם הקוד בטעות. -
@pcinfogmach שלום לידינו העוזר כ''כ לכולם,
כמו כל פעם תודה רבה על כל השקעות, וכו'
סליחה אם מה שאני כותב נשמע קצת אינו מכובד, אבל אין כוונתי להפריע אלא לסייע, משום מה נראה לי שהקודים של כבודו מאד ארוכים ומסובכים, אולי זה בגלל שאני לא כ''כ בקי בVBA, אבל אציעה את הרעיון שלי אולי יעזור לך,ראיתי שחלק מהאריכות נובעת בגלל השאלות של אם רוצים לתקן גם שורות בנות 2 שורות, אז למה שלא תעשה מאקרו יותר פשוט, (אולי לך לא מפריע שהוא מורכב כי אתה יותר מומחה) ותעשה שהמקרו יעבוד על כל הפסיקאות כולל את אלה של 2 שורות, ותעשה מקרו אחר נוסף שיחפש את כל הפסקאות בנות שתי שורות ויבטל מהם התיקון, (שהרי יש לך כבר מאקרו שמבטל עיצוב על אותו פיסקה לבד)
הנה לך הקודSub ONLY_TWO_LINES() 'מחפש פיסקאות שהם שתים או פחות Dim PISKA As Paragraph For Each PISKA In ActiveDocument.Paragraphs If PISKA.Range.ComputeStatistics(wdStatisticLines) <= 2 Then PISKA.Range.Select 'call המאקרו לתיקון שאתה רוצה End If Next PISKA End Subמקווה שיעזור לך לחסוך עבודה, שאוכל להחזיר לך קצת טובה ממה שאתה מטיב אתנו
האמת שלמה שכבר כתבת אין צורך שתחליף, אבל הרעיון שלי יכול לחסוך לך עבודה בדברים שתכתוב בעתיד
@menajemmendel כתב בלהורדה | תוסף חדש לוורד - עיצוב ספרי קודש:
משום מה נראה לי שהקודים של כבודו מאד ארוכים ומסובכים
תוכ"ד שדרוג הקוד של מילת פתיח יצא לי הקוד החמוד והקצר הזה https://mitmachim.top/post/638849 לעיצוב מילה ראשונה עם סגנון ובלי
לתוסף שלי הוא עדיין לא מתאים כי הוא לא מטפל בכל הבעיות שאני רוצה שיטפל בהם וגם הוא לא תואם להערות שוליים - אבל מי שרוצה קוד קצר ופשוט לעריכת מילה ראושנה זה ממש קוד חמוד.
-
@pcinfogmach קוד משוכלל ללא ספק
ואני יסביר כל מה שהיה עד היום לא יכולת להוסיף מילה אחת אחרי העיצוב כי כל וד"ל@עולה-במסילה כתב בלהורדה | תוסף חדש לוורד - עיצוב ספרי קודש:
@pcinfogmach קוד משוכלל עדיף ללא ספק
ואני יסביר כל מה שהיה עד היום לא יכולת להוסיף מילה אחת אחרי העיצוב כי כל וד"להעליתי כאן (בשיטה השנייה שם) קוד שאפשר לשנות ולהסויף מילים גם אחרי החלת העיצוב (בתוסף אומנם כנראה הוא לא יהיה מחמת שיקולים שונים).
-
גמ"ח עזרה וייעוץ בנושאי מחשבים
-
-
@pcinfogmach
תמונה שווה יותר מ...
אבל כל עוד נטפרי לא מאשרים אותה, אתמלל...
ב'תיקון שגיאות/סוף מילה' יש באג, והתוצאה לא משהו...
יתכן שפשוט לא הבנתי את הפעולה של זה או ש...?
@dfhzrhree
תודה רבה!
אפשרות זו הוסרה לעת עתה מן התוסף!
(או יותר נכון מופיע הודעה שאפשרות זו אינה בפעילות) -
@dfhzrhree
תודה רבה!
אפשרות זו הוסרה לעת עתה מן התוסף!
(או יותר נכון מופיע הודעה שאפשרות זו אינה בפעילות)@pcinfogmach תוסף יעיל ומרשים!!
כמה באגים שמצאתי:- ביישור טורים, הגדרות, החלון מופיע ושניה אח"כ קופץ הודעה של באג
- עיצוב הערות שוליים, שינוי מספר הטורים, כנ"ל
- הסר כותרת צד בכל המסמך לא הצליח לי
תודה רבה!
![חיפוש גוגל בפורום](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}