להורדה | תוסף וורד תורני

[האדם החושב]

@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
למותר לציין שאפשרי ורצוי לערוך ,להוסיף וכו'

[האדם החושב]

@מאקרו תוכל לפרט יותר? [לינק למדריך איך לעשות את זה וכד']

[מניין]

@האדם-החושב כתב ב[להורדה | עיצוב ספרי קודש - גירסא משלי]

@מניין אשמח אם תוכל לבדוק מה הבעייה עם מעצב טורים

השבתי לך כבר כאן לפני ששאלת.

[האדם החושב]

@מניין מתנצל, טעות שלי, חשבתי שהתכוונת ליישור טורים

[pcinfogmach]

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

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

נוסף כעת הקוד כאן במדריך

[האדם החושב]

עדכון: גיר' 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

(פותח באינטרנט אקספלורר)
@מתכנת-חובב @מגדלים

[pcinfogmach]

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

אני צריך פקודת מאקרו שפותחת את הדפדפן בכתובת שאני מגדיר מראש

Sub OpenLink()
    Dim Link As String
    Link = "https://mitmachim.top/post/626904" 'Replace with your desired link
    ActiveDocument.FollowHyperlink Address:=Link
End Sub

אגב דברים כאלו צ'אט גיפיטי יכול לעשות לך בקלות

[pcinfogmach]

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

הסתבכתי קצת עם העיצוב של התפריטים ,אני רוצה שזה יראה כמה שיותר אסתטי ,ניסיתי לעשות ירידת שורה בתיאור על ידי הוספה של /n ,אבל זה לא עזר

עיצוב התיבה שמופיעה על ידי ריחוף

screentip="כותרת" 
 supertip= "מלל מלל מלל מלל"

מאוד חשוב להוסיף את המלל במקום הנכון כי אחרת כל המלל יהיה בשורה אחת ארוכה.

בעיקרון זה אמור לפתור את הבעיה אם בכל אופן יש לך צורך לעשות מעבר שורה ידני זהו הקוד



[ששמעון]

@האדם-החושב תודה רבה על כל מה שעשית, עוד תגיע רחוק!
שאלה קטנה, לחצתי על החץ שאמור לפתוח תיבת דו שיח, ויוצאת לי שגיאה כזאת:

מה זה אומר?