Your browser does not seem to support JavaScript. As a result, your viewing experience will be diminished, and you have been placed in read-only mode.

Please download a browser that supports JavaScript, or enable it if it's disabled (i.e. NoScript).

שרשור עזרה בפיתוח התוסף לוורד - עיצוב ספרי קודש

עזרה הדדית - וורד

75 פוסטים 8 כותבים 3.4k צפיות 9 עוקבים

P pcinfogmach

@דאנציג
ועכשיו?
תורת-אמת-בוורד.dotm
מ מנותק
מ מנותק
מניין

כתב ב נערך לאחרונה על ידי

#66

@pcinfogmach ואני מקבל שגיאה כזאת בכל הגרסאות.
P תגובה 1 תגובה אחרונה

0
פ פלורידה

פוסט זה נמחק!
P מנותק
P מנותק
pcinfogmach
מדריכים
כתב ב נערך לאחרונה על ידי

#67

@פלורידה
בנית את האינדקס?
גמ"ח עזרה וייעוץ בנושאי מחשבים
תגובה 1 תגובה אחרונה

1
מ מניין

@pcinfogmach ואני מקבל שגיאה כזאת בכל הגרסאות.
P מנותק
P מנותק
pcinfogmach
מדריכים
כתב ב נערך לאחרונה על ידי

#68

@מניין
עכשיו עובד?
תורת-אמת-בוורד.dotm
גמ"ח עזרה וייעוץ בנושאי מחשבים
מ תגובה 1 תגובה אחרונה

1
P pcinfogmach

@מניין
עכשיו עובד?
תורת-אמת-בוורד.dotm
מ מנותק
מ מנותק
מניין

כתב ב נערך לאחרונה על ידי

#69

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

@מניין
עכשיו עובד?
תורת-אמת-בוורד.dotm

עכשיו לא יוצא השגיאה הנ"ל, אבל כשאני לוחץ אלט T, הוורד נתקע עד שקורס ולא נהיה כלום.
P 2 תגובות תגובה אחרונה

0
מ מניין

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

@מניין
עכשיו עובד?
תורת-אמת-בוורד.dotm

עכשיו לא יוצא השגיאה הנ"ל, אבל כשאני לוחץ אלט T, הוורד נתקע עד שקורס ולא נהיה כלום.
P מנותק
P מנותק
pcinfogmach
מדריכים
כתב ב נערך לאחרונה על ידי

#70

@מניין
תנסה להריץ ישירות דרך עורך הvba ותגיד מה קורה
גמ"ח עזרה וייעוץ בנושאי מחשבים
תגובה 1 תגובה אחרונה

0
מ מניין

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

@מניין
עכשיו עובד?
תורת-אמת-בוורד.dotm

עכשיו לא יוצא השגיאה הנ"ל, אבל כשאני לוחץ אלט T, הוורד נתקע עד שקורס ולא נהיה כלום.
P מנותק
P מנותק
pcinfogmach
מדריכים
כתב ב נערך לאחרונה על ידי

#71

@מניין
שיניתי משהו קטן אולי יעזור
תורת-אמת-בוורד.dotm
גמ"ח עזרה וייעוץ בנושאי מחשבים
מ 2 תגובות תגובה אחרונה

1
P pcinfogmach

@מניין
שיניתי משהו קטן אולי יעזור
תורת-אמת-בוורד.dotm
מ מנותק
מ מנותק
מניין

כתב ב נערך לאחרונה על ידי מניין

#72

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

@מניין
שיניתי משהו קטן אולי יעזור
תורת-אמת-בוורד.dotm

עכשיו זה הותקן ועובד.
תגובה 1 תגובה אחרונה

0
P pcinfogmach

@מניין
שיניתי משהו קטן אולי יעזור
תורת-אמת-בוורד.dotm
מ מנותק
מ מנותק
מניין

כתב ב נערך לאחרונה על ידי מניין

#73

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

@מניין
שיניתי משהו קטן אולי יעזור
תורת-אמת-בוורד.dotm

זה עובד, אבל הספר נפתח בדף מוסתר [וכן ההוראות בפתיחת התוסף] ולא בחלון הראשי, והדף המוסתר לא רואים על המסך, רק כששמים את העכבר על הסמל בשורת המשימות רואים שזה פתוח.
P תגובה 1 תגובה אחרונה

0
מ מניין

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

@מניין
שיניתי משהו קטן אולי יעזור
תורת-אמת-בוורד.dotm

זה עובד, אבל הספר נפתח בדף מוסתר [וכן ההוראות בפתיחת התוסף] ולא בחלון הראשי, והדף המוסתר לא רואים על המסך, רק כששמים את העכבר על הסמל בשורת המשימות רואים שזה פתוח.
P מנותק
P מנותק
pcinfogmach
מדריכים
כתב ב נערך לאחרונה על ידי

#74

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

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

האם שינית את ההגדרות של וורד לפי ההוראות?
גמ"ח עזרה וייעוץ בנושאי מחשבים
תגובה 1 תגובה אחרונה

1

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

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


Option Explicit
Sub המר_הערות_שוליים_למספור_עברי_יותר_משצב()
Application.ScreenUpdating = False
 Dim origRange As Range
 Set origRange = Selection.Range
 
 Dim i As Integer
 Dim ftnoteText As String
 Dim ftnoteRefrence As Range
 
 For i = 1 To ActiveDocument.Footnotes.Count
    Set ftnoteRefrence = ActiveDocument.Footnotes(i).Reference
    If ftnoteRefrence <> ChrW(8203) Then
        ftnoteText = ActiveDocument.Footnotes(i).Range.Text
        ftnoteRefrence.Characters(1).Delete
        ftnoteRefrence.Select
        ActiveDocument.Footnotes.Add Range:=Selection.Range, Text:=ftnoteText, Reference:=ChrW(8203)
    End If
Next i

 Call AddHebrewFootnoteRefrenceStyle
 Call DeleteAllRefrenceLetters
 Call MainDocHebrewRefrence
 Call FootnotesRefrence
 Call DeleteDoubleSpace
 
origRange.Select

Application.ScreenUpdating = True
Application.ScreenRefresh


End Sub

Private Sub FootnotesRefrence()
    Dim doc As Document
    Dim rng As Range
    Dim i As Long
    Dim ftnoteNumber As Long
    Dim hebrewftNoteNumber As String
    
    For i = 1 To ActiveDocument.Footnotes.Count
        Set rng = ActiveDocument.Footnotes(i).Range
        ftnoteNumber = ActiveDocument.Footnotes(i).Index
        hebrewftNoteNumber = ConvertToHebrew(ftnoteNumber)
        With rng
            .start = .start - 1
            .End = .start
            .Text = hebrewftNoteNumber & " "
            .style = ActiveDocument.Styles("הפניה להערת שוליים עברי")
        End With
    Next i
End Sub

Private Sub MainDocHebrewRefrence()
    Dim doc As Document
    Dim rng As Range
    Dim i As Long
    Dim ftnoteNumber As Long
    Dim hebrewftNoteNumber As String
       
    For i = 1 To ActiveDocument.Footnotes.Count
        Set rng = ActiveDocument.Footnotes(i).Reference
        ftnoteNumber = ActiveDocument.Footnotes(i).Index
        hebrewftNoteNumber = ConvertToHebrew(ftnoteNumber)
        With rng
            .start = .End
            .Text = hebrewftNoteNumber
            .style = ActiveDocument.Styles("הפניה להערת שוליים עברי")
        End With
    Next i
End Sub

Private Sub AddHebrewFootnoteRefrenceStyle()
    On Error GoTo skp
    ActiveDocument.Styles.Add Name:="הפניה להערת שוליים עברי", Type:= _
        wdStyleTypeCharacter
    With ActiveDocument.Styles("הפניה להערת שוליים עברי")
        .BaseStyle = -39
    End With
skp:
    
End Sub
Private Sub DeleteAllRefrenceLetters()
    
    Dim rng1 As Range
    Set rng1 = ActiveDocument.Content
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    On Error GoTo skp
    rng1.Find.style = ActiveDocument.Styles("הפניה להערת שוליים עברי")
    With rng1.Find
        .Text = ""
        .Replacement.Text = ""
        .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
    rng1.Find.Execute Replace:=wdReplaceAll
    
    Dim rng2 As Range
    Dim ftnoteNumber As Long
    ftnoteNumber = ActiveDocument.Footnotes.Count
    Set rng2 = ActiveDocument.Footnotes(1).Range
    rng2.End = ActiveDocument.Footnotes(ftnoteNumber).Range.End
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With rng2.Find
        .Text = ""
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .style = ActiveDocument.Styles("הפניה להערת שוליים עברי")
        .Format = True
        .MatchCase = False
        .MatchWholeWord = False
        .MatchKashida = False
        .MatchDiacritics = False
        .MatchAlefHamza = False
        .MatchControl = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    rng2.Find.Execute Replace:=wdReplaceAll
skp:
End Sub
Private Sub DeleteDoubleSpace()
    Dim rng As Range
    Dim ftnoteNumber As Long
    ftnoteNumber = ActiveDocument.Footnotes.Count
    Set rng = ActiveDocument.Footnotes(1).Range
    rng.End = ActiveDocument.Footnotes(ftnoteNumber).Range.End
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With rng.Find
        .Text = "( )\1@"
        .Replacement.Text = "\1"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWholeWord = False
        .MatchKashida = False
        .MatchDiacritics = False
        .MatchAlefHamza = False
        .MatchControl = False
        .MatchWildcards = True
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    rng.Find.Execute Replace:=wdReplaceAll
skp:
End Sub

Function ConvertToHebrew(ByVal ftnoteNumber As Long) As String
    Dim MyArray As Variant
    Dim MyaArray As Variant
    Dim v As Long
    Dim s As String
    Dim i As Long
    
    
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(ftnoteNumber)
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

If s = "רצח" Then s = "רחצ"
If s = "רע" Then s = "ער"
If s = "רעב" Then s = "ערב"
If s = "שד" Then s = "דש"
If s = "שמד" Then s = "שדמ"
If s = "תשמד" Then s = "תדשם"
If s = "רעה" Then s = "ערה"
If s = "רעד" Then s = "עדר"

ConvertToHebrew = s

End Function

אפי זינגר

כתב

#75

פוסט זה נמחק!

1
2
3
4