להורדה | תוסף עיצוב תורני לוורד

[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

[simcha33345]

@pcinfogmach

גירסה מס' 5:

אצל ידיד שלי שמשתמש עם אופיס 365
התוסף לא עובד, כפתור ההתקנה לא עובד.
וגם כשהעביר ידנית את הקובץ לתיקיה שאמור להיות
זה נותן שגיאה כזאת כשמנסה ללחוץ על הפקודות..

עריכה:
זה התרגום של ההודעה:

[pcinfogmach]

@simcha33345
חששתי שזה יקרה היה בעיה דומה בגירסה 1 אנסה לעכן בגירסה הבאה בלי נדר.
אם תוכל לעשות לי טובה אחת לבדוק את המאקרו הזה אם הוא גם לא עובד.

[simcha33345]

@pcinfogmach אוקי, אני שולח לידיד ואחכה לתגובתו.
אעדכן כשיעדכן אותי בס"ד.

[דאנציג]

@pcinfogmach כתב בלהורדה | תוסף חדש לוורד - עיצוב ספרי קודש:

הפיתרון שלי הוא: להחריג כל פיסקה מודגשת.

לדעתי הפתרון הפשוט הוא להחריג את הפסקאות הממורכזות, ולאו דווקא מודגשות...

[בוקר טוב]

@pcinfogmach כתב בלהורדה | תוסף חדש לוורד - עיצוב ספרי קודש:

תודה. אנסה לטפל בזה בגירסאות הבאות בלי נדר.

אולי תעלה את המסמך בינתיים לכאן
לתועלת כולנו.

[simcha33345]

@pcinfogmach זה לא עובד, יצר מאקרו חדש
והדביק את הקוד לתוכו ושמר והפעיל וכו'...
וקופץ שגיאה..

[pcinfogmach]

@simcha33345 כתב בלהורדה | תוסף חדש לוורד - עיצוב ספרי קודש:

צר מאקרו חדש
והדביק את הקוד לתוכו ושמר והפעיל וכו'...
וקופץ שגיאה..

תןדה עזרת לי מאוד - יתוקן בלי נדר בגירסה הבאה

[mfmf]

@pcinfogmach כתב בלהורדה | תוסף חדש לוורד - עיצוב ספרי קודש:

בקשת עזרה ביצירת מאקרו

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

אז איפה אני צריך עזרה?

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

הבעיה הגדולה היא: איך למצוא מה הוגדר על ידי המשתמש ככותרת כדי להחריג אותו מהעיצוב האוטומטי. הפיתרון שלי הוא: להחריג כל פיסקה מודגשת.

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

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

נ.ב. אם יש לך סבלנות ליצור מאקרואים נוספים. יהיה טוב אם יהיה מאקרו שמסיר תווים מהמסמך כמו מעברי עמוד, פסקה, טור וכדו' ומחליף אותם באנטר. זה יעזור כמשמעמדים קובץ שנכתב ללא עימוד ובדרך כלל מוסיפים לו כל מיני מעברים ואח"כ שמעמדים הכל משתבש..

[pcinfogmach]

תודה רבה על המשוב הנפלא!

@mfmf כתב בלהורדה | תוסף חדש לוורד - עיצוב ספרי קודש:

לדעתי הזיהוי צריך להיות לפי פסקה ממורכזת.

קצת בעיה כי זה יאט את המאקרו. ומאקרו איטי כבר יש. רק רציתי שיהיה גם מאקרו מהיר.

@mfmf כתב בלהורדה | תוסף חדש לוורד - עיצוב ספרי קודש:

יהיה טוב אם יהיה מאקרו שמסיר תווים מהמסמך כמו מעברי עמוד, פסקה, טור וכדו' ומחליף אותם באנטר.

כל זה אפשר בקלות לעשות על ידי חיפוש והחלפה אולי תיקח יוזמה תקליט את זה ותעשה לזה מאקרו ותעלה לשרשור של המאקוראים

[ישראליק]

@mfmf כתב בלהורדה | תוסף חדש לוורד - עיצוב ספרי קודש:

נ.ב. אם יש לך סבלנות ליצור מאקרואים נוספים. יהיה טוב אם יהיה מאקרו שמסיר תווים מהמסמך כמו מעברי עמוד, פסקה, טור וכדו' ומחליף אותם באנטר. זה יעזור כמשמעמדים קובץ שנכתב ללא עימוד ובדרך כלל מוסיפים לו כל מיני מעברים ואח"כ שמעמדים הכל משתבש..

אתה יכול להקליט מאקרו של חיפוש והחלפה פשוט, זה לא חייב להתבצע עם ראש 'תכנותי'

[mfmf]

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

[dfhzrhree]

@mfmf
אם כבר דיברנו על 'כל הבעיות', כמדומני שבדיקת הגהה של שגיאות הקלדה (לא כתיב!), שנמצאת גם פה בפורום במאקרו, יכולה להיות בגדר 'לסגור את הפינה'...

[pcinfogmach]

@mfmf כתב בלהורדה | תוסף חדש לוורד - עיצוב ספרי קודש:

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

רעיון מצויין!

[pcinfogmach]

גירסה 5 עודכן ל- 5.1 נפתרה הבעיה עם אופיס 365 ועוד שיפורים קלים

[בוקר טוב]

@pcinfogmach כתב בלהורדה | תוסף חדש לוורד - עיצוב ספרי קודש:

גירסה 5 עודכן ל- 5.1 נפתרה הבעיה עם אופיס 365 ועוד שיפורים קלים

אם הבנתי נכון אז כדי לשדרג את הגירסה אצלי במחשב
יש להיכנס לוורד
ללשונית עיצוב ספרי קודש
ללחוץ על הסר
ואז להתקין מחדש עם הקובץ החדש?

[pcinfogmach]

@בוקר-טוב כתב בלהורדה | תוסף חדש לוורד - עיצוב ספרי קודש:

אם הבנתי נכון אז כדי לשדרג את הגירסה אצלי במחשב
יש להיכנס לוורד
ללשונית עיצוב ספרי קודש
ללחוץ על הסר
ואז להתקין מחדש עם הקובץ החדש?

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

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

[pcinfogmach]

@menajemmendel כתב בלהורדה | תוסף חדש לוורד - עיצוב ספרי קודש:

משום מה נראה לי שהקודים של כבודו מאד ארוכים ומסובכים

תוכ"ד שדרוג הקוד של מילת פתיח יצא לי הקוד החמוד והקצר הזה https://mitmachim.top/post/638849 לעיצוב מילה ראשונה עם סגנון ובלי

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

[pcinfogmach]

@עולה-במסילה כתב בלהורדה | תוסף חדש לוורד - עיצוב ספרי קודש:

@pcinfogmach קוד משוכלל עדיף ללא ספק
ואני יסביר כל מה שהיה עד היום לא יכולת להוסיף מילה אחת אחרי העיצוב כי כל וד"ל

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

[pcinfogmach]

בס"ד גירסה 6 יצא לאור עם תוספות ושדרוגים רבים

---

https://mitmachim.top/post/626904