תחומים - פורום חרדי מקצועי

@אברהם-א
באיזה צירים אתה משתמש?

@yossiz תיקנתי בפוסט הקודם

@yossiz אני חשבתי על הדרך הזו אבל זה לא פותר לי את הבעיה ואני אסביר את עצמי היטב.
יש לי במסמך 2 סגנונות סימן וסעיף
כעת אני רוצה לקבל כלפי הפיסקה איזה סעיף מדובר ואיזה סימן.
לאחר שראיתי שיש בוורד עצמו משהו מובנה שהוא מזהה את תוכן הסגנון לפי העמוד כמו שיש בשדה כך זה נראה


זאת אומרת שיש לוורד מידע לפי פסקאות או לפי משהו אחר תחת איזה סגנון הוא נמצא.

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

איך אני יכול ע"י vba וורד להחזיר את תוכן סגנון XX שמופיע אחרון מהבחירה של הסמן.

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

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

1. ליצור רשימה של כל הסימנים שיש באקסל או באקסס (כולל גרשיים ומקפים לפי הצורך) א' ב' ג' ... י"א.. י"ב וכו' ולסדר את המילים הרעות כגון תרצ"ח וכו' (או גם וגם).
2. לעבור על הרשימה ולסמן אלו אופציות ודאי לא יכול להיות חוץ מסימנים.
3. לחפש את כל התוצאות שנשארו ולקבל אותם לתוך טבלה (אקסס או אקסל), עמודה ראשונה 3 מילים לפני, עמודה שניה התוצאה, עמודה שלישית 3 מילים אחרי.
4. לעבור על הרשימה ולסמן אלו תוצאות שיש לפניהם מילים שמכריחות סימן ואלו זה וודאי ר"ת בפני עצמם.
5. ואת כל השאר שנשארו ספק לסמן בסגנון נפרד ולעבור עליהם ידנית.

כעת עומדות לפני 2 שאלות:

1. האם לעשות את הטבלה באקסס או באקסל?
2. היות ויש לי עשרות קבצים כאלו (למעלה ממאה) האם לעשות קוד באקסס \ אקסל שיגש לקובץ וורד או ליצור קוד בוורד שיגש לdb שלו שזה אקסס \ אקסל.

@davidnead כתב בחלום \ אתגר | זיהוי ראשי תיבות של סימני מקורות בקבצי וורד:

רצויה היכרות טובה מאוד עם ביטויים רגולריים

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

עלה לי כעת עוד מחשבה ע"פ מש"כ @קומפיונט
שאני יכול ליצור קוד שיחזיר לי את כל הר"ת בכל המסמכים לתוך טבלת אקסל, ופשוט לעבור אחד אחד ולחלק ל3 קטגוריות

1. צריך להשאיר.
2. ודאי למחוק.
3. ספק.

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

השאלה היא האם זו הדרך הנכונה?
והאם זה לא מידי אגרסיבי לקוד vba החלש לעשות מליוני פעולות בצורה כזו?

עריכה: ראוי לציין שהחומר הוא די עקבי ...

@davidnead כתב בחלום \ אתגר | זיהוי ראשי תיבות של סימני מקורות בקבצי וורד:

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

@אוריי כתב בחלום \ אתגר | זיהוי ראשי תיבות של סימני מקורות בקבצי וורד:

לעבור על למעלה מכמה מיליוני מילים ואין הצר שווה ...

@Y-Excel-Access כתב בחלום \ אתגר | זיהוי ראשי תיבות של סימני מקורות בקבצי וורד:

משמעותי מאוד איך סיכמת את החומר

למה כוונתך?

@Y-Excel-Access כתב בחלום \ אתגר | זיהוי ראשי תיבות של סימני מקורות בקבצי וורד:

יש לך דוגמה שאפשר להראות שהיא מספיק משקפת?

מקור הלכה 45.doc

@Y-Excel-Access כתב בחלום \ אתגר | זיהוי ראשי תיבות של סימני מקורות בקבצי וורד:

נ.ב. אשמח מאוד לראות את הקוד שלך, גם אם לא כיסה הכל...

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

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

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

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

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

@yossiz
תודה רבה
זה פשוט חסך לי לעשות חפש את הבא בכל פעם..

@yossiz כוונתך לכך?

כי זה לא עובד

מצאתי איך אני יכול למצוא
אבל א"א להחליף את זה
אני רוצה שבהחלפה הוא יתעלם מהאותיות..

^p^$].

אני רוצה לעשות מחיקה של כל הסוגר ] שיש לי בתחילת פיסקאות אחרי מספור של אותיות
לדוגמא
א]. ב]. ג]. וכו'

מה שאני צריך לעשות זה חיפוש של סימון פיסקה ואז תו\ים כל שהם ואז ]. , ולעשות ע"ז החלפה הבעיה היא שאני לא יודע איך לחפש תו כל שהוא..
כך זה אמור להיראות חוץ מהסימן שאלה שצריך להחליף אותו
^p ? ].

@יהודי-טוב גוגל פורומס הדרך הפשוטה והקלה עי' במדריך הבא

@dovid כוונתך למה ש@yossiz כתב לגבי vba?

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

יש בעיה קטנה בקוד ש @פייתוניסט עשה, שהוא לא מטפל באותיות "טו" וב "טז"
אני עשיתי לעצמי תיקון לקוד
אז הנה השיתוף של הקוד לטבת המשתתפים

Function GIMATRIA(x)

    G = ""
    TV = Int(x / 400)
    For i = 1 To TV
        G = G & "ת"
    Next i
    x = x - (TV * 400)
    TV = Int(x / 300)
    For i = 1 To TV
        G = G & "ש"
    Next i
    x = x - (TV * 300)
    TV = Int(x / 200)
    For i = 1 To TV
        G = G & "ר"
    Next i
    x = x - (TV * 200)
    TV = Int(x / 100)
    For i = 1 To TV
        G = G & "ק"
    Next i
    x = x - (TV * 100)
    TV = Int(x / 90)
    For i = 1 To TV
        G = G & "צ"
    Next i
    x = x - (TV * 90)
    TV = Int(x / 80)
    For i = 1 To TV
        G = G & "פ"
    Next i
    x = x - (TV * 80)
    TV = Int(x / 70)
    For i = 1 To TV
        G = G & "ע"
    Next i
    x = x - (TV * 70)
    TV = Int(x / 60)
    For i = 1 To TV
        G = G & "ס"
    Next i
    x = x - (TV * 60)
    TV = Int(x / 50)
    For i = 1 To TV
        G = G & "נ"
    Next i
    x = x - (TV * 50)
    TV = Int(x / 40)
    For i = 1 To TV
        G = G & "מ"
    Next i
    x = x - (TV * 40)
    TV = Int(x / 30)
    For i = 1 To TV
        G = G & "ל"
    Next i
    x = x - (TV * 30)
    TV = Int(x / 20)
    For i = 1 To TV
        G = G & "כ"
    Next i
    If x = 15 Then
        G = G & "טו"
    Else
        If x = 16 Then
            G = G & "טז"
        Else
            
            x = x - (TV * 20)
            TV = Int(x / 10)
            For i = 1 To TV
                G = G & "י"
            Next i
            x = x - (TV * 10)
            TV = Int(x / 9)
            For i = 1 To TV
                G = G & "ט"
            Next i
            x = x - (TV * 9)
            TV = Int(x / 8)
            For i = 1 To TV
                G = G & "ח"
            Next i
            x = x - (TV * 8)
            TV = Int(x / 7)
            For i = 1 To TV
                G = G & "ז"
            Next i
            x = x - (TV * 7)
            TV = Int(x / 6)
            For i = 1 To TV
                G = G & "ו"
            Next i
            x = x - (TV * 6)
            TV = Int(x / 5)
            For i = 1 To TV
                G = G & "ה"
            Next i
            x = x - (TV * 5)
            TV = Int(x / 4)
            For i = 1 To TV
                G = G & "ד"
            Next i
            x = x - (TV * 4)
            TV = Int(x / 3)
            For i = 1 To TV
                G = G & "ג"
            Next i
            x = x - (TV * 3)
            TV = Int(x / 2)
            For i = 1 To TV
                G = G & "ב"
            Next i
            x = x - (TV * 2)
            TV = Int(x / 1)
            For i = 1 To TV
                G = G & "א"
            Next i
            x = x - (TV * 1)
        End If
    End If
    GIMATRIA = G
    
End Function

@yossiz אני עקבתי אחר ההוראות..
אבל עדיין זה לא עובד לי
כוונתי שזה לא עובד בתור פונקציה מקומית באקסל אבל בקוד כשלעצמו עובד לכל דבר
אני אישית הסתדרתי כי צירפתי את הפונקציה לקוד vba אחר וזה עבד לי...

@פייתוניסט ,
לאחר חיטוט בקוד מצאתי שיש באקסל כבר פונקציה בשם GIMATRIA (אני לא יודע אם זה רק אצלי או אצל כולם) בכל אופן לאחר שינוי של השם עובד מעולה
אמנם בvba הקוד עובד
אבל באקסל בתור נוסחה ממש לא..