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

[הללוהו ב ו]

לצאת לגמרי אפשר לכתוב EXIT SUB שיוצא מהמאקרו הנוכחי
אפשר להשתמש ב IF או SELECT CASE לפי העניין כנ"ל

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

 

[אפר]

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

עניתי כבר
תבדוק איפה אתה עומד
ותכתוב תגובה מסכמת מה חסר לך

 

[הללוהו ב ו]

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


if a= vbyes or a= vbno then
מה לעשות עם כן או לא
else
exit sub
end if
ותחליף את vbYesNo ב vbYesNoCancel

 

[הללוהו ב ו]

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

 

[אפר]

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

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

 

[הללוהו ב ו]

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

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

 

[אפר]

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


if a= vbyes or a= vbno then
מה לעשות עם כן או לא
else
exit sub
end if
ותחליף את vbYesNo ב vbYesNoCancel

תעשה כל שאלה כך

select case Msgbox("שאלה", vbQuestion + vbYesNoCancel,"כותרת")
    case vbyes
        כאן להכניס פעולה לביצוע
    case vbcancel
        Exit Sub
        שזה יוצא לגמרי מהמאקרו
end select

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

 

[הללוהו ב ו]

שזה יוצא לגמרי מהמאקרו end select

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

 

[אפר]

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

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

select case Msgbox("שאלה א", vbQuestion + vbYesNoCancel,"כותרת")
    case vbyes
        כאן להכניס פעולה א לביצוע
    case vbcancel
        Exit Sub
    case else
        MsgBox "לא הוכנסו נתונים"
        Exit Sub
end select

select case Msgbox("שאלה ב", vbQuestion + vbYesNoCancel,"כותרת")
    case vbyes
        כאן להכניס פעולה ב לביצוע
    case vbcancel
        Exit Sub
    case else
        MsgBox "לא הוכנסו נתונים"
        Exit Sub
end select

 

[הללוהו ב ו]

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

    If TitleStyle = Empty Then
        MsgBox "לא הוכנסו נתונים"
        Exit Sub
    End If

(פשוט העתקתי ממקו"א ואין לי מושג בזה!)

 

[אפר]

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

    If TitleStyle = Empty Then
        MsgBox "לא הוכנסו נתונים"
        Exit Sub
    End If

(פשוט העתקתי ממקו"א ואין לי מושג בזה!)

ערכתי

 

[ש"ך]

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

פשוט מאוד לדעתי.
תתפוס את כל המסמך, ואז,

הבנת???

 

[אפר]

פשוט מאוד לדעתי.
תתפוס את כל המסמך, ואז,
צפה בקובץ המצורף 933570
צפה בקובץ המצורף 933569
הבנת???

זה לא מה שהוא שאל
זה פשוט כתוב הפוך כך
הז טופש בותכ ךופה ךכ
והפיתרון
להשתמש במאקרו על בסיס זה

ברוב הממירים זה כך
בדיוק כתבתי היום שוב פונקציה המתמודדת עם זה

Public Function RevTxtInStr(Str As String) As String
    Dim TempStr As String
    Dim i As Long
 
    For i = 1 To Len(Str)
        If Not InStr("אבגדהוזחטיכלמנסעפצקרשתךםןףץ ", Mid(Str, i, 1)) > 0 Then
            TempStr = TempStr & Mid(Str, i, 1)
        Else
            RevTxtInStr = Mid(Str, i, 1) & TempStr & RevTxtInStr
            TempStr = ""
        End If
    Next i
    RevTxtInStr = TempStr & RevTxtInStr
End Function

 

[מלאכת מחשבת]

והפיתרון

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

 

[הללוהו ב ו]

קוד:

    Application.DisplayAlerts = wdAlertsNone
    With Selection.Find
        .Text = Selection
        .Replacement.Text = "~ " & Selection
        .Forward = True
        .Wrap = wdFindAsk
        .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
    Application.DisplayAlerts = wdAlertsAll

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

 

[אפר]

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

זה הקטע הרלוונטי

Selection.Find.Execute Replace:=wdReplaceAll

 

[הללוהו ב ו]

זה הקטע הרלוונטי

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

 

[אפר]

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

wdReplaceAll

 

[הללוהו ב ו]

קוד:
wdReplaceAll

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

arrFind = Array("בראשית", "שמות", "ויקרא", "במדבר", "דברים")

For f = 0 To UBound(arrFind)
    Selection.Find.Text = "{" & arrFind(f) & "}"
    Selection.Find.Replacement.Text = "(" & arrFind(f) & ")"
    Selection.Find.Wrap = wdFindContinue
    Selection.Find.Execute Replace:=wdReplaceAll
Next
End Sub

תודה רבה !

 

[הללוהו ב ו]

קוד:

הוא כותב לי בזה שגיאה שמה שכתוב בתיבת חפש אינה כוללת ביטויים נכונים: