להורדה | תוסף עיצוב תורני לוורד
-
@דאנציג
הנה המאקרו מתוקןSub MACRO1() Dim sField As String Dim sTextCode As String Dim bSFC As Boolean Dim MyData As DataObject Dim sTemp As String Dim J As Integer bSFC = Selection.Fields.Item(1).ShowCodes Selection.Fields.Item(1).ShowCodes = True sField = Selection.Text sTextCode = "" For J = 1 To Len(sField) sTemp = Mid(sField, J, 1) Select Case sTemp Case Chr(19) sTemp = "{" Case Chr(21) sTemp = "}" Case vbCr sTemp = "" End Select sTextCode = sTextCode & sTemp Next J Set MyData = New DataObject MyData.SetText sTextCode MyData.PutInClipboard Selection.Fields.Item(1).ShowCodes = bSFC End Sub@menajemmendel כתב בלהורדה | תוסף עיצוב תורני לוורד:
הנה המאקרו מתוקן
מצטער, אבל גם המאקרו הזה לא עובד אצלי... הוא מעתיק לי שני ריבועים
ולגבי הרווח שכתבת:
ואי אפשר למחוק את הרווח
ניתן למחוק את הרווח שמפריע לך, כאשר אתה עומד לפני הרווח, ומוחק אותו עם deiete (עם backspace באמת הרווח לא נמחק).
-
@pcinfogmach כתב בלהורדה | תוסף עיצוב תורני לוורד:
האם יש dim בקוד עבור mygallery?
לא להלן שלושת הdim שיש ביוזר פרום הזה:
Dim FSO2 As Object
Dim attTempPath2 As String
Dim docPath2 As String@דאנציג כתב בלהורדה | תוסף עיצוב תורני לוורד:
@pcinfogmach כתב בלהורדה | תוסף עיצוב תורני לוורד:
האם יש dim בקוד עבור mygallery?
לא להלן שלושת הdim שיש ביוזר פרום הזה:
Dim FSO2 As Object
Dim attTempPath2 As String
Dim docPath2 As Stringיש לך שני אפשרויות או למחוק את ההצהרה option explicit בתחילת הקוד או לעשות dim בשביל mygallery כמדומני שזה אמור להיות range אין לי את כל הקוד לפני כרגע.
-
@menajemmendel כתב בלהורדה | תוסף עיצוב תורני לוורד:
הנה המאקרו מתוקן
מצטער, אבל גם המאקרו הזה לא עובד אצלי... הוא מעתיק לי שני ריבועים
ולגבי הרווח שכתבת:
ואי אפשר למחוק את הרווח
ניתן למחוק את הרווח שמפריע לך, כאשר אתה עומד לפני הרווח, ומוחק אותו עם deiete (עם backspace באמת הרווח לא נמחק).
@דאנציג כתב בלהורדה | תוסף עיצוב תורני לוורד:
ניתן למחוק את הרווח שמפריע לך, כאשר אתה עומד לפני הרווח, ומוחק אותו עם deiete (עם backspace באמת הרווח לא נמחק).
מעניין מאד, העצה שלך עובדת לי רק כשהשדה הוא בגוף הטקסט, אבל לא בתוך הכותרות העליונות
לא יודע למה.
ולגבי המאקרו אני לא יודע מה לומר לך -
האם ישנה אפשרות בתוסף למספור של פיסקאות מעל שצ"ב? (ראיתי רק מספור עמודים ומספור הערות שוליים)
@ישראל-ימפ כתב בלהורדה | תוסף עיצוב תורני לוורד:
האם ישנה אפשרות בתוסף למספור של פיסקאות מעל שצ"ב? (ראיתי רק מספור עמודים ומספור הערות שוליים)
אין
אולי הפונקציה של הגימטריה יכולה לעשות בצורה ידנית לא בדקתי. -
האם ישנה אפשרות בתוסף למספור של פיסקאות מעל שצ"ב? (ראיתי רק מספור עמודים ומספור הערות שוליים)
@ישראל-ימפ אני עשיתי לעצמי קוד שמבוסס על הגימטריה, אמנם הוא מותאם אישית לתבניות מסמך שלי. אם זה משהו לא מסובך, אני אולי יכול להתאים לך אותו גם.
נ.ב.
אני יכתוב כאן את הרעיון שעשיתי.
ריצה לפי פיסקאות מתחילת המסמך עד סופו
כל פיסקה שמתחילה ב @. הייתי מחליף אותו לגימטריה שלו לפי מספר הפעמים שהוא מצא ומחיל עליו סגנון וכו' וכו'.
כמובן שהבעיה הזו פתרה לי את ההוספה של פיסקה באמצע המסמך. פשוט הוספתי פיסקה עם @. בתחילתה ופשוט מריץ את הקוד.
עשיתי כמובן איפוס של המספור כאשר הגעתי לסגנון של סימן שמשם אני מתחיל ספירה מחדש. -
מישהו יוכל להעלות כאן קישור להורדה של הגרסה הכי מעודכנת ומתוקנת של "עיצוב תורני"?
תודה רבה.@משה-לוי-4 כתב בלהורדה | תוסף עיצוב תורני לוורד:
מישהו יוכל להעלות כאן קישור להורדה של הגרסה הכי מעודכנת ומתוקנת של "עיצוב תורני"?
תודה רבה. -
@דאנציג כתב בלהורדה | תוסף עיצוב תורני לוורד:
@pcinfogmach כתב בלהורדה | תוסף עיצוב תורני לוורד:
האם יש dim בקוד עבור mygallery?
לא להלן שלושת הdim שיש ביוזר פרום הזה:
Dim FSO2 As Object
Dim attTempPath2 As String
Dim docPath2 As Stringיש לך שני אפשרויות או למחוק את ההצהרה option explicit בתחילת הקוד או לעשות dim בשביל mygallery כמדומני שזה אמור להיות range אין לי את כל הקוד לפני כרגע.
@pcinfogmach כתב בלהורדה | תוסף עיצוב תורני לוורד:
יש לך שני אפשרויות או למחוק את ההצהרה option explicit בתחילת הקוד או לעשות dim בשביל mygallery כמדומני שזה אמור להיות range אין לי את כל הקוד לפני כרגע.
תודה רבה!!!
הוספתי:Dim mygallery, rangeכאן:
Private Sub CommandButton2_Click() 'על חיפוש החל זרם מספור On Error Resume Next Application.Dialogs(wdDialogEditFind).Close On Error GoTo 0 Selection.GoTo What:=wdGoToPage, Which:=wdGoToAbsolute, Name:="1" Dim myfieldname, myText As String, counter, i As Integer, rng, lastWord, fieldWord As range Dim mygallery, rangeועובד!
תזכה למצוות. -
@pcinfogmach כתב בלהורדה | תוסף עיצוב תורני לוורד:
יש לך שני אפשרויות או למחוק את ההצהרה option explicit בתחילת הקוד או לעשות dim בשביל mygallery כמדומני שזה אמור להיות range אין לי את כל הקוד לפני כרגע.
תודה רבה!!!
הוספתי:Dim mygallery, rangeכאן:
Private Sub CommandButton2_Click() 'על חיפוש החל זרם מספור On Error Resume Next Application.Dialogs(wdDialogEditFind).Close On Error GoTo 0 Selection.GoTo What:=wdGoToPage, Which:=wdGoToAbsolute, Name:="1" Dim myfieldname, myText As String, counter, i As Integer, rng, lastWord, fieldWord As range Dim mygallery, rangeועובד!
תזכה למצוות.פוסט זה נמחק! -
@ישראל-ימפ אני עשיתי לעצמי קוד שמבוסס על הגימטריה, אמנם הוא מותאם אישית לתבניות מסמך שלי. אם זה משהו לא מסובך, אני אולי יכול להתאים לך אותו גם.
נ.ב.
אני יכתוב כאן את הרעיון שעשיתי.
ריצה לפי פיסקאות מתחילת המסמך עד סופו
כל פיסקה שמתחילה ב @. הייתי מחליף אותו לגימטריה שלו לפי מספר הפעמים שהוא מצא ומחיל עליו סגנון וכו' וכו'.
כמובן שהבעיה הזו פתרה לי את ההוספה של פיסקה באמצע המסמך. פשוט הוספתי פיסקה עם @. בתחילתה ופשוט מריץ את הקוד.
עשיתי כמובן איפוס של המספור כאשר הגעתי לסגנון של סימן שמשם אני מתחיל ספירה מחדש. -
@pcinfogmach כתב בלהורדה | תוסף עיצוב תורני לוורד:
יש לך שני אפשרויות או למחוק את ההצהרה option explicit בתחילת הקוד או לעשות dim בשביל mygallery כמדומני שזה אמור להיות range אין לי את כל הקוד לפני כרגע.
תודה רבה!!!
הוספתי:Dim mygallery, rangeכאן:
Private Sub CommandButton2_Click() 'על חיפוש החל זרם מספור On Error Resume Next Application.Dialogs(wdDialogEditFind).Close On Error GoTo 0 Selection.GoTo What:=wdGoToPage, Which:=wdGoToAbsolute, Name:="1" Dim myfieldname, myText As String, counter, i As Integer, rng, lastWord, fieldWord As range Dim mygallery, rangeועובד!
תזכה למצוות. -
האם ישנה אפשרות בתוסף למספור של פיסקאות מעל שצ"ב? (ראיתי רק מספור עמודים ומספור הערות שוליים)
@ישראל-ימפ אני אישית לא הבנתי מה אתה שואל, האם אתה מתכוון למי שרוצה לעשות רשימה עם המספור אוטומטי? (עם זה:
שיראה כזה:
האם זו כוונתך? -
@ישראל-ימפ אני אישית לא הבנתי מה אתה שואל, האם אתה מתכוון למי שרוצה לעשות רשימה עם המספור אוטומטי? (עם זה:
שיראה כזה:
האם זו כוונתך? -
@menajemmendel, אכן; רק הבעייה שלי היא שמספור כזה יכול להגיע רק עד שצ"ב (392), ואח"כ מתחיל שוב מ-א'.
@ישראל-ימפ כתב בלהורדה | תוסף עיצוב תורני לוורד:
@menajemmendel, אכן; רק הבעייה שלי היא שמספור כזה יכול להגיע רק עד שצ"ב (392), ואח"כ מתחיל שוב מ-א'.
יש כאן תוסף עם תיקון לבעיה הזו למה אתה לא משתמש איתו
-
@ישראל-ימפ כתב בלהורדה | תוסף עיצוב תורני לוורד:
@menajemmendel, אכן; רק הבעייה שלי היא שמספור כזה יכול להגיע רק עד שצ"ב (392), ואח"כ מתחיל שוב מ-א'.
יש כאן תוסף עם תיקון לבעיה הזו למה אתה לא משתמש איתו
@עניו-כמשה לפסקאות אין פתרון עדיין
-
האם ישנה אפשרות בתוסף למספור של פיסקאות מעל שצ"ב? (ראיתי רק מספור עמודים ומספור הערות שוליים)
@ישראל-ימפ הפתרון הוא להשתמש באותו שדה של מספרי עמודים מעל שצב, רק במקום המקומות שיש בפנים שדה PAGE להשתמש בשדה מספור רציף (SEQ) ולהוסיף את כל השדה הנ"ל בתחילת כל פסקה.
החסרון הוא שאין יצירה אוטומטית של מספור כמו בפונקציה המובנית של וורד.
כמו"כ יתכן שהשדה יכביד מאד על המסמך. -
@ישראל-ימפ הפתרון הוא להשתמש באותו שדה של מספרי עמודים מעל שצב, רק במקום המקומות שיש בפנים שדה PAGE להשתמש בשדה מספור רציף (SEQ) ולהוסיף את כל השדה הנ"ל בתחילת כל פסקה.
החסרון הוא שאין יצירה אוטומטית של מספור כמו בפונקציה המובנית של וורד.
כמו"כ יתכן שהשדה יכביד מאד על המסמך. -
האם ישנה אפשרות בתוסף למספור של פיסקאות מעל שצ"ב? (ראיתי רק מספור עמודים ומספור הערות שוליים)
-
לגבי המספור לאותיות, ולעקיפת שצ"ב
האם התוסף הזה, יודע גם איך למספר באותיות בצורה תורני, כמו שנמצא כתוב ברוב ספרים תורנים.
היינו, במקום 'שד', להופכו ל'דש', וכן 'רעב' להופכו ל'עבר', 'רע' ל'ער', 'שבר' להופכו ל'בשר', וכדומה בשאר לשונות כאלו?
![חיפוש גוגל בפורום](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}