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

[דאנציג]

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

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

תשאל את @מאקרו אולי הוא יסכים לנדב את מה שהוא כבר עשה, וגם הסבר כיצד לעשות זאת.

[האדם החושב]

פוסט זה נמחק!

[האדם החושב]

פוסט זה נמחק!

[האדם החושב]

פוסט זה נמחק!

[מאקרו]

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

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

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

תשאל את @מאקרו אולי הוא יסכים לנדב את מה שהוא כבר עשה, וגם הסבר כיצד לעשות זאת.

זה נקרא לאונצ'ר - 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= "מלל מלל מלל מלל"

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

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



[ששמעון]

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

מה זה אומר?

[pcinfogmach]

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

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

בגדול זה אומר שחלק זה של התוסף איננו פעיל בגירסה זו. (אי"ה בגירסה הבאה הוא כבר יסדר את זה).

[pcinfogmach]

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

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

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

Option Explicit

Private Declare PtrSafe Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
(ByVal hwnd As LongPtr, ByVal lpOperation As String, ByVal lpFile As String, _
ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As LongPtr

Sub OpenWebPage()
    Dim url As String
    url = "https://www.example.com" 'Replace with the URL of the webpage you want to open
    ShellExecute 0, "open", url, vbNullString, vbNullString, vbNormalFocus
End Sub