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

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

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

 

[Rרחמים]

א, ב, ג, ד - פיתרון פשוט וקל: תוסף 'הגה ותיקון מסמכים' ראה כאן
כל הדברים שהזכרת אפשר לפתור על ידי תוסף זה.
לפרטים נוספים ולרכישה היה בקשר yaakobov001gmail.com

תוסף לוורד - החלפות, תיקונים, הכנה לעימוד.

מדריך לתוסף 'הגה ותיקון מסמכים', המיועד להכנת חומר לעימוד בתג או באינדיזיין, וכן לביצוע תיקונים בטקסט. עוד אודות התוסף כאן https://yakobov-dev.co.il/%D7%9E%D...

youtu.be

 

[Cהרשי]

איך מעלים קובץ PDF לוורד שישאר סגור כתמונה?

 

[אפר]

איך מעלים קובץ PDF לוורד שישאר סגור כתמונה?

הוספה > אובייקט > יצירה מקובץ > עיון (בחירת הקובץ) > אישור

 

[הללוהו ב ו]

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

 

[אפר]

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

הכל אפשרי
תלוי בכמה מאמץ

 

[הללוהו ב ו]

הכל אפשרי
תלוי בכמה מאמץ

ע"ז אני מדבר אם יש מישהו שיוכל לעזור לי... ולכוון אותי, שיגיב.

 

[אפר]

ע"ז אני מדבר אם יש מישהו שיוכל לעזור לי... ולכוון אותי, שיגיב.

תקליט אתה את הבסיס ואז יוכלו לכוון אותך גם אתה תרוויח יותר הבנה בתהליך

 

[הללוהו ב ו]

ואז יוכלו לכוון אותך

אתה תוכל לעזור לי ולכוון אותי?

 

[אפר]

אתה תוכל לעזור לי ולכוון אותי?

בגדול כן

 

[הללוהו ב ו]

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

Sub Macro3()
'
' Macro3 Macro
'
'
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "ונאמר אמן"
        .Replacement.Text = "~^&"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchKashida = False
        .MatchDiacritics = False
        .MatchAlefHamza = False
        .MatchControl = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
End Sub

ב'

'
' Macro4 Macro
'
'
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "ונאמר אמן"
        .Replacement.Text = "~ ונאמר אמן"
        .Forward = True
        .Wrap = wdFindContinue
        .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
End Sub

או או...

 

[אפר]

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

    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

 

[אפר]

    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

ערכתי
היות וניטרלתי התראות בהחלה הוספתי בסוף שורה שתחזיר את ההתראות

 

[הללוהו ב ו]

    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

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

 

[הללוהו ב ו]

היות וניטרלתי התראות בהחלה הוספתי בסוף שורה שתחזיר את ההתראות

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

 

[אפר]

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

    Dim TextFind As String
    TextFind = "" & InputBox("הוספת ~", "הזן את המילה להחלפה")
    If TextFind = "" Then Exit Sub
    Application.DisplayAlerts = wdAlertsNone
    With Selection.Find
        .Text = TextFind
        .Replacement.Text = "~ " & TextFind
        .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

 

[אפר]

מה פירוש?

השורה הראשונה מבטלת את התיבות של החלפנו X להמשיך לחפש וכו'
השורה האחרונה מחזירה התראות חזרה לפעולה

 

[הללוהו ב ו]

    Dim TextFind As String
    TextFind = "" & InputBox("הוספת ~", "הזן את המילה להחלפה")
    If TextFind = "" Then Exit Sub
    Application.DisplayAlerts = wdAlertsNone
    With Selection.Find
        .Text = TextFind
        .Replacement.Text = "~ " & TextFind
        .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

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

 

[הללוהו ב ו]

אפר

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

 

[אפר]

אפר

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

לגבי רשימת המאקרו אפשר לעשות אולי מספר לכל מאקרו ואם אתה רוצה פעולה X תקיש 1 פעולה Y תקיש 2 וכו'
אבל זה די מסורבל עדיף להשתמש בקיצורי מקשים או בסרגלי הכלים
לגבי השאלה עניתי כבר באשכול השני