אופיס 365 המרת מספרים

[haozar]

האם מישהו מכיר איזו אפשרות להמרת מספרים לאותיות בוורד

 

[tkh]

גימטריא?
איזה כמות נתונים?

 

[haozar]

מספרי עמודים

127 ל-קכז

 

[Yisrael]

למה לא פשוט תשנה את תבנית המספר?
כך:

 

[haozar]

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

 

[Yisrael]

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

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

 

[haozar]

התוכן עניינים מובא מוכן מתוכנה אחרת

 

[צורת הדף]

כאן נמצא בדיוק מה שבקשת:
http://www.prog.co.il/showthread.php?t=11690

(בהנחה שיש טאב לפני מספרי העמודים)

 

[Yisrael]

כאן נמצא בדיוק מה שבקשת:
http://www.prog.co.il/showthread.php?t=11690

(בהנחה שיש טאב לפני מספרי העמודים)

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

Dim Cha As Range, rng As Range, A As Range, B As Range, i As Integer, T As Integer
Selection.GoTo wdGoToBookmark, Name:="\line"
Set rng = Selection.Range
    
    For i = 1 To rng.Characters.Count
        Set Cha = rng.Characters(i)
        If InStr(Cha, Val(Cha)) Then
        T = T + 1
        If T = 1 Then
        Set A = Cha
        Else
        Set B = Cha
        End If: End If
    Next
    
    If T = 1 Then
        A.Select
        Else
        Selection.SetRange A.start, B.End
    End If

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

יעבור על השורה הנוכחית.

 

[Yisrael]

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

[למעשה כשהמספר הוא למעלה מ-800 הקוד ההוא לא עובד טוב משום מה...]

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

למעשה בקוד הבא הכנסתי את שתי הנקודות (האחרונות - ב, ג) שנתחדשו לי שם, ולמעשה הוא עובד ללא שדות ושאר מרעין בישין

start:
With Selection.Find
    .ClearFormatting
    .Execute findText:="^t[0-9]{1,}", MatchWildcards:=True, Format:=False, Wrap:=wdFindContinue
    If .Found = True Then
Selection.MoveStart Unit:=wdCharacter, Count:=1
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

מעתה יביננו מר מה עוד חסר...

נ.ב. משום מה אותיות ה-א"ב יוצאות באופן "מעניין"... הרעיון הוא כל הא"ב מ-ת עד א.

 

[צורת הדף]

ממש מושלם!

על זה נאמר "איך לא חשבתי על זה"...

 

[Yisrael]

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

תודה מראש.

 

[צורת הדף]

השדה seq מתואר כאן:
http://www.prog.co.il/showthread.php?p=87560#post87560

עם שדה הנ"ל אפשר למספר במספרים ובאותיות.
כשמוסיפים switch \r עם מספר אחריו, לדוגמא \r6 , וורד יתחיל למספר ממספר 6 והלאה.

המאקרו מחליף כל מספרי העמודים לשדות seq עם מספור באותיות, בתוספת \r ומספר העמוד (שישמור המספרים גם כשמעדכנים השדות).
היות שיש בוורד מגבלת שצ"ב, הצרכתי להוסיף הרבה שורות לעקוף המגבלה.

זהו על קצה המזלג...

 

[הללוהו ב ו]

האם בכח המאקרו הנ"ל ניתן להפוך גם טקסטים מלאים מספור לפי פרקים וסעיפים לאותיות כדוגמת א=ו 11=י"א וכו'?
ואם כן אם מישהו יוכל להסביר איך ואם לא האם יש אפשרות שכן נוכל??
ומהו השדה הנ"ל שנמחק המקור?

 

[Rרחמים]

יש לי תוסף להמרת מספרים לאותיות ראה בקטלוג שבאתר שלי תוסף שנקרא 'ממיר מספרים לאותיות'