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

האדם החושב

יש כמה תבניות שברצוני להוסיף:

הערות-שולים-מספור-עד-1200 לא הבנתי בדיוק אלו כפתורים צריך לעשות @ASDF1345
קוד למספור עמודים בלשון נקיה ,משום מה אין מאקרו בתבנית @1011
‏‏מספור אוטומטי לא הבנתי בדיוק אלו כפתורים צריך לעשות @מניין
חיפוש והחלפה פרטניים לא הבנתי בדיוק אלו כפתורים צריך לעשות @pcinfogmach
מעבר-מהערה-למסמך ואינדקס לא הבנתי בדיוק אלו כפתורים צריך לעשות @ASDF1345

בתודה מראש

דאנציג

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

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

על אחרון ראשון:

Sub מעבר_להערות_שוליים()
'
'
      ActiveWindow.View.SeekView = wdSeekFootnotes
End Sub

Sub מעבר_חזרה_למסמך()
'
' מעבר_חזרה_למסמך Macro
'
'
        ActiveWindow.View.SeekView = wdSeekMainDocument
End Sub

'
' אינדקס_העתקת_טקסט_והוספת_שדה_אינדקס Macro
'
'
    Selection.Copy
    Selection.MoveRight Unit:=wdCharacter, Count:=2
    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, _
        PreserveFormatting:=False
    Selection.TypeText Text:="XE"
    Selection.TypeText Text:=""""
    Selection.PasteAndFormat (wdFormatOriginalFormatting)
    Selection.TypeText Text:=""""
End Sub
Sub אינדקס_הפיכת_טקסט_לשדה_אינדקס()
'
' אינדקס_הפיכת_טקסט_לשדה_אינדקס Macro
'
'
    Selection.Cut
    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, _
        PreserveFormatting:=False
    Selection.TypeText Text:="XE"
    Selection.MoveRight Unit:=wdCharacter, Count:=1
    Selection.TypeText Text:=""""
    Selection.PasteAndFormat (wdFormatOriginalFormatting)
    Selection.TypeText Text:=""""
End Sub
Sub אינדקס_יצירת_שדה()
'
' אינדקס_יצירת_שדה Macro
'
'
    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, _
        PreserveFormatting:=False
    Selection.TypeText Text:="XE"
    Selection.TypeText Text:=""""
    Selection.TypeText Text:=""""
    Selection.MoveLeft Unit:=wdCharacter, Count:=1
End Sub
Sub אינדקס_מחיקת_כל_השדות()
'
' אינדקס_מחיקת_כל_השדות Macro
'
'
    ActiveWindow.ActivePane.View.ShowAll = Not ActiveWindow.ActivePane.View. _
        ShowAll
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "^d"
        .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
    ActiveWindow.ActivePane.View.ShowAll = Not ActiveWindow.ActivePane.View. _
        ShowAll
End Sub
Sub מעבר_אל_שדה_אינדקס_הבא()
'
' מעבר_אל_שדה_אינדקס_הבא Macro
'
'
    Selection.GoTo What:=wdGoToField, Which:=wdGoToNext, Count:=1, Name:="XE"
    Selection.Find.ClearFormatting
    With Selection.Find
        .Wrap = wdFindAsk
    End With
End Sub
Sub מעבר_אל_שדה_אינדקס_הקודם()
'
' מעבר_אל_שדה_אינדקס_הקודם Macro
'
'
    Selection.GoTo What:=wdGoToField, Which:=wdGoToPrevious, Count:=1, Name:= _
        "XE"
    Selection.Find.ClearFormatting
    With Selection.Find
        .Wrap = wdFindAsk
    End With
End Sub

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

מניין

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

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

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

כתר התורה

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

@כתר-התורה

עריכה:

תשלח לי מייל

איך שלא יהיה בגירסה הבאיה אשתדל לטפל בבעיה

מה המייל?
תודה רבה

mfmf

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

יש כמה תבניות שברצוני להוסיף:

קוד למספור עמודים בלשון נקיה ,משום מה אין מאקרו בתבנית @1011

זה לא מאקרו, זה קוד שמדביקים ישירות במסמך במקום של המספור

חיפוש והחלפה פרטניים לא הבנתי בדיוק אלו כפתורים צריך לעשות @pcinfogmach

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

מעבר-מהערה-למסמך ואינדקס לא הבנתי בדיוק אלו כפתורים צריך לעשות @ASDF1345

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

pcinfogmach

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

מה המייל?

שם המשתמש שלי בגימייל

האדם החושב

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

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

יש לי אפשרות גם להוסיף את זה לתפריט הקשר

דאנציג

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

הערות-שולים-מספור-עד-1200 לא הבנתי

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

אולי @pcinfogmach יוכל לעזור

ASDF1345

בתבנית 'הערות שולים מספור עד 1200', יש לעשות כפתור של 'שלב ראשון' שמפעיל מאקרו 'מספור עברי חדש שלב ראשון' וכן כפתור 'שלב שני' שמפעיל מאקרו 'מספור עברי חדש שלב שני'.
מצורף קובץ מעודכן של התבנית לפרסום הערות שולים - מספור עד 1200 - חדש.dotm
התבנית היא ראשונית ויש בה הרבה דברים שאפשר לשדרג, כל הרוצה לעשות כך יבורך ....

דאנציג

@ASDF1345
סליחה טעות שלי: "טענו בחיטים והודה לו בשעורים"...

למעשה לענין מספור הערות שוליים, לחץ כאן לראות עצה נפלאה.

בהצלחה

האדם החושב

גירסא 11.zip
גירסא 11 וורד תורני.exe

נוספו:

ASDF1345

@האדם-החושב
הכנתי גירסא חדשה לקובץ 'הערות-שולים-מספור-עד-1200' על בסיס הקובץ 'קוד VBA להמיר בוורד ממספרים לאותיות'
‏‏הערות שולים - מספור עברי_3.dotm
בגירסא החדשה אפשר להחליף מספור הערות שולים יותר מ1200 וכן אפשר לבחור האם רוצים לשון נקיה והאם רוצים להוסיף מרכאות.
כיון שמאקרו זו מבוסס על החלפת מספרים באותיות הוא מחליף את כל המספרים שיש במסמך, אם יש למישהו רעיון לשדרג את המאקרו שיחליף רק מספרים שהם בסגנון 'הפניה להערת שולים' שיעדכן אותי

ששמעון

@ASDF1345 בעצם אפשר להשתמש במאקרו ההוא על כל ההערות שוליים במספרים, ואז ממילא הכל הופך לאותיות...

mfmf

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

האדם החושב

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

להוסיף מדריכים!

@דאנציג הכין מדריך ,מוזמנים להוסיף

קישור לגוגל דוקס [פתוח במצב הצעה]
מדריך וורד תורני.docx

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

הכנתי גירסא חדשה לקובץ 'הערות-שולים-מספור-עד-1200' על בסיס הקובץ 'קוד VBA להמיר בוורד ממספרים לאותיות'
‏‏הערות שולים - מספור עברי_3.dotm

כמה כפתורים צריך ,ולאלו מאקרואים לשייך אותם?, בתודה מראש

ASDF1345

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

ASDF1345

אני רוצה לשדרג את הקובץ 'הערות שולים מספור עברי 3'
לצורך כך אני רוצה לדעת כיצד צריך להגדיר את המאקרו של 'קוד VBAלהמיר בוורד מספרים לאותיות' שיעבוד רק על מספרים שמוגדרים כסגנון 'הפניה להערת שולים'
מצורף הקוד המבוקש שצריך להגדירו

start:
With Selection.Find
    .ClearFormatting
    .Execute findText:="[0-9]{1,}", MatchWildcards:=True, Format:=False, Wrap:=wdFindContinue
    If .Found = True Then
S = ""

MyArray = Array(400, 300, 200, 100, 90, 80, 70, 60, 50, 40, 30, 20, 10, 9, 8, 7, 6, 5, 4, 3, 2, 1)
MyaArray = Array("ת", "ש", "ר", "ק", "צ", "פ", "ע", "ס", "נ", "מ", "ל", "כ", _
"י", "ט", "ח", "ז", "ו", "ה", "ד", "ג", "ב", "א")
V = Val(Selection)
Do While V > 0
If V = 15 Or V = 16 Then
S = S & "ט"
V = V - 9
End If
  For i = 0 To UBound(MyArray)
    If V >= MyArray(i) Then
      S = S & MyaArray(i)
      V = V - MyArray(i)
      Exit For
    End If
  Next i
Loop

Selection = S

GoTo start
    End If
End With
End Sub

וכן כיצד ניתן להגדיר לולאה שתעבוד עד שיגיע פקודת שגיאה 4198
תודה מראש

beny

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

@דאנציג הכין מדריך ,מוזמנים להוסיף

אלופים אתם!!!
רק אם אפשר להוסיף במדריך איך משתמשים בייצוא לתג. תודה!!!

menajemmendel

@ASDF1345 אני לא הבנתי מה אתה רוצה לעשות,
אבל אין סוגנון "סימון הערות שוליים" כלומר הם לא סוג של סגנון, את שדות, ויכולים להיות בכל סגנון שאתה רוצה, (נראה לי שגם אתה התכוונת לזה רק לא דקדקת בלשון)
על כל פנים, אם הם בטקסט למעלה, אתה לא יכול לשנותם אם תשנה אותם ימחק הערה עצמה, ורק למטה אפשר לשנות אותם
על כל פנים לפעמים יש צורך להמיר רק חלק מהטקסט, והנה אני שניתי שיחליף רק מה שבצבע אדום הנה כך
במקום :

   With Selection.Find
    .ClearFormatting
    .Execute findText:="[0-9]{1,}", MatchWildcards:=True, Format:=False, Wrap:=wdFindContinue
    If .Found = True Then

With Selection.Find
    .ClearFormatting
    .Font.Color = wdColorRed
    .Execute findText:="[0-9]{1,}", MatchWildcards:=True, Wrap:=wdFindContinue
    If .Found = True Then

כלומר הוספתי בשורה 3
.Font.Color = wdColorRed
ולמחוק משורה 4
Format:=False

pcinfogmach

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

'קוד VBAלהמיר בוורד מספרים לאותיות' שיעבוד רק על מספרים שמוגדרים כסגנון 'הפניה להערת שולים'

כדי לתפוס הפניות להערות שוליים תוכל לעשות כך ולהקליט ואז להשתמש בלולאת do while