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

[pcinfogmach]

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

@pcinfogmach
הורדתי את הגרסה האחרונה אבל הקובץ ריק!

סליחה!
הקובץ עודכן כעת.

[simcha33345]

@pcinfogmach עדכון ענק!! כל הכבוד, שימחת אותי ועוד כמה חברים שלי... !!
הרבה סייעתא דשמיא..!!

[menajemmendel]

@pcinfogmach ממש יפה תודה

[dfhzrhree]

@pcinfogmach
אולי כדאי להוסיף (במסמך גופו) תמונה כעין זו, יען לא כל ברנש יבין מעצמו היכן מקומו של מקש ההתקנה, הלא כן?

[בוקר טוב]

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

[pcinfogmach]

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

אבקש להעיר את תשומת ליבך שהכפתור הוראות(מתחת לכפתור התקן בתמונה למעלה) מפנה למסמך ריק.

כלומר פותח מסמך חדש ריק?
או שלא מפנה כלל?

[בוקר טוב]

@pcinfogmach פותח חדש ריק

[pcinfogmach]

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

[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 ובמסך אחד אתה פותר את כל הבעיות..