עזרה בוורד עזרא | פיתרונות בוורד...

[אפר]

הוא כותב לי בזה שגיאה שמה שכתוב בתיבת חפש אינה כוללת ביטויים נכונים:
צפה בקובץ המצורף 933658

תחזיר את כל השורות שהורדת מההחלפה המוקלטת

 

[הללוהו ב ו]

תחזיר את כל השורות שהורדת מההחלפה המוקלטת

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

 

[אפר]

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

תראה שבהקלטה יש הרבה הגדרות שלא הכנסת תכניס אותם

 

[הללוהו ב ו]

תראה שבהקלטה יש הרבה הגדרות שלא הכנסת תכניס אותם

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

Dim TextAsk As String
    Dim Result
    TextAsk = TextAsk & "1-אפשרות 1" & vbCrLf
    TextAsk = TextAsk & "2-אפשרות 2" & vbCrLf
    TextAsk = TextAsk & "3-אפשרות 3" & vbCrLf
        Result = InputBox(TextAsk, "בחר אפשרות")
    Select Case Result
        Case 1
            'אפשרות 1
        Case 2
            'אפשרות 2
        Case 3
            'אפשרות 3
        Case Else
            MsgBox "לא נמצאה פעולה מתאימה", vbCritical + vbMsgBoxRight + vbMsgBoxRtlReading, "שגיאה"
    End Select

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

 

[אפר]

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

Dim TextAsk As String
    Dim Result
    TextAsk = TextAsk & "1-אפשרות 1" & vbCrLf
    TextAsk = TextAsk & "2-אפשרות 2" & vbCrLf
    TextAsk = TextAsk & "3-אפשרות 3" & vbCrLf
        Result = InputBox(TextAsk, "בחר אפשרות")
    Select Case Result
        Case 1
            'אפשרות 1
        Case 2
            'אפשרות 2
        Case 3
            'אפשרות 3
        Case Else
            MsgBox "לא נמצאה פעולה מתאימה", vbCritical + vbMsgBoxRight + vbMsgBoxRtlReading, "שגיאה"
    End Select

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

אחרי הקטע הנ"ל

 

[הללוהו ב ו]

אחרי הקטע הנ"ל

ואיפה להכניס קטע עם אופציה לביטול?

 

[אפר]

ואיפה להכניס קטע עם אופציה לביטול?

תכניס בפעולה שלו ב SELECT את EXIT SUB שמוציא מכל הקטע

 

[הללוהו ב ו]

תכניס בפעולה שלו ב SELECT את EXIT SUB שמוציא מכל הקטע

איפה לאחר כל הפקודות , או בתוספת + או משהו אחר (תצטט לי באיזה שורה מהנ"ל, ומה להוסיף?) תודה

 

[אפר]

איפה לאחר כל הפקודות , או בתוספת + או משהו אחר (תצטט לי באיזה שורה מהנ"ל, ומה להוסיף?) תודה

היכן ששייך הביטול לכאורה בCASE ELSE

 

[הללוהו ב ו]

היכן ששייך הביטול לכאורה בCASE ELSE

להוסיף ליד מילים אלו , מילים אלו EXIT SUB ?
נ.ב. הבנת את השאילה של @מלאכת מחשבת הנ"ל כאן ?

 

[אפר]

להוסיף ליד מילים אלו , מילים אלו EXIT SUB ?
נ.ב. הבנת את השאילה של @מלאכת מחשבת הנ"ל כאן ?

שורה מתחת
בשטח הפעולה של הקטע הנ"ל

 

[אפר]

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

חפש בגוגל
LANGOVER

 

[הללוהו ב ו]

חפש בגוגל

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

 

[אפר]

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

מחליף קטע נבחר בין אנגלית קטנה לעברית ולהיפך

Public Sub EnHeb()
    Const listEn = "qwertyuiopasdfghjkl;'zxcvbnm,./()[]{}"
    Const listHeb = "/'קראטוןםפשדגכעיחלךף,זסבהנמצתץ.)(][}{"
    Dim Status As Long
    Dim i As Long
    Dim Str As String
    Dim Result As String
    Str = Selection
    Do While Status = 0 And Mid(Str, i + 1, 1) <> ""
        If InStr(listEn, Mid(Str, i + 1, 1)) > 0 Then Status = -1
        If InStr(listHeb, Mid(Str, i + 1, 1)) > 0 Then
            If Status = -1 Then Status = 0 Else Status = 2
        Else
            Status = IIf(Status = -1, 1, 0)
        End If
        i = i + 1
    Loop
    For i = 1 To Len(Str)
        If Status = 2 Then
            If Mid(Str, i, 1) = "" Then
            ElseIf InStr(listHeb, Mid(Str, i, 1)) > 0 Then
                Result = Result & Mid(listEn, InStr(listHeb, Mid(Str, i, 1)), 1)
            ElseIf InStr(listEn, Mid(Str, i, 1)) > 0 Then
                Result = Result & Mid(listHeb, InStr(listEn, Mid(Str, i, 1)), 1)
            Else
                Result = Result & Mid(Str, i, 1)
            End If
        Else
            If Mid(Str, i, 1) = "" Then
            ElseIf InStr(listEn, Mid(Str, i, 1)) > 0 Then
                Result = Result & Mid(listHeb, InStr(listEn, Mid(Str, i, 1)), 1)
            ElseIf InStr(listHeb, Mid(Str, i, 1)) > 0 Then
                Result = Result & Mid(listEn, InStr(listHeb, Mid(Str, i, 1)), 1)
            Else
                Result = Result & Mid(Str, i, 1)
            End If
        End If
    Next i
    Selection = Result
End Sub

 

[הללוהו ב ו]

וואלה עשית ביצוע !!!

מחליף קטע נבחר בין אנגלית קטנה

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

 

[הללוהו ב ו]

@אפר
וכן אם שמת לב כשאני מחליף משפט שהקלדתי באנגלית לעברית האות הראשונה מוחלפת לאותיות רשיות של אנגלית ולא מתחלף לעברית.

 

[אפר]

מחליף קטע נבחר בין אנגלית קטנה לעברית ולהיפך

Public Sub EnHeb()
    Const listEn = "qwertyuiopasdfghjkl;'zxcvbnm,./()[]{}"
    Const listHeb = "/'קראטוןםפשדגכעיחלךף,זסבהנמצתץ.)(][}{"
    Dim Status As Long
    Dim i As Long
    Dim Str As String
    Dim Result As String
    Str = Selection
    Do While Status = 0 And Mid(Str, i + 1, 1) <> ""
        If InStr(listEn, Mid(Str, i + 1, 1)) > 0 Then Status = -1
        If InStr(listHeb, Mid(Str, i + 1, 1)) > 0 Then
            If Status = -1 Then Status = 0 Else Status = 2
        Else
            Status = IIf(Status = -1, 1, 0)
        End If
        i = i + 1
    Loop
    For i = 1 To Len(Str)
        If Status = 2 Then
            If Mid(Str, i, 1) = "" Then
            ElseIf InStr(listHeb, Mid(Str, i, 1)) > 0 Then
                Result = Result & Mid(listEn, InStr(listHeb, Mid(Str, i, 1)), 1)
            ElseIf InStr(listEn, Mid(Str, i, 1)) > 0 Then
                Result = Result & Mid(listHeb, InStr(listEn, Mid(Str, i, 1)), 1)
            Else
                Result = Result & Mid(Str, i, 1)
            End If
        Else
            If Mid(Str, i, 1) = "" Then
            ElseIf InStr(listEn, Mid(Str, i, 1)) > 0 Then
                Result = Result & Mid(listHeb, InStr(listEn, Mid(Str, i, 1)), 1)
            ElseIf InStr(listHeb, Mid(Str, i, 1)) > 0 Then
                Result = Result & Mid(listEn, InStr(listHeb, Mid(Str, i, 1)), 1)
            Else
                Result = Result & Mid(Str, i, 1)
            End If
        End If
    Next i
    Selection = Result
End Sub

@אפר
וכן אם שמת לב כשאני מחליף משפט שהקלדתי באנגלית לעברית האות הראשונה מוחלפת לאותיות רשיות של אנגלית ולא מתחלף לעברית.

זה תיקון שגיאות אוטומטי של וורד

 

[הללוהו ב ו]

זה תיקון שגיאות אוטומטי של וורד

ומה הפתרון לזה?
וחוצמזה כנ"ל לגבי אותיות גדולות תוכל גם להגדיר?

 

[אפר]

ומה הפתרון לזה?
וחוצמזה כנ"ל לגבי אותיות גדולות תוכל גם להגדיר?

לבטל לגבי גדולות קטנות אני מתלבט מה לעשות

 

[הללוהו ב ו]

לבטל לגבי גדולות קטנות אני מתלבט מה לעשות

לגבי האפשרות הנ"ל של הוספה להחלפה באמצעות "חיפוש מילים דומות באנגלית" : האם יש אפשרות להוסיף את זה למאקרו?