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

[מרובע]

ואיך משתמשים בו?

מדביקים באתר הזה ובוחרים html - decode


כבר עשיתי את זה והנה התוצאה:

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

 

[Rרחמים]

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

- YouTube

Auf YouTube findest du die angesagtesten Videos und Tracks. Außerdem kannst du eigene Inhalte hochladen und mit Freunden oder gleich der ganzen Welt teilen.

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 וכו'
אבל זה די מסורבל עדיף להשתמש בקיצורי מקשים או בסרגלי הכלים
לגבי השאלה עניתי כבר באשכול השני