תחומים
    • הרשמה
    • התחברות
    • חיפוש
    • קטגוריות
    • פוסטים אחרונים
    • משתמשים
    • חיפוש
    1. דף הבית
    2. א.מ.
    חוקי הפורום
    א
    • פרופיל
    • עוקב אחרי 0
    • עוקבים 1
    • נושאים 5
    • פוסטים 39
    • הגבוה ביותר 18
    • שנוי במחלוקת 0
    • קבוצות 0

    א.מ.

    @א.מ.

    92
    מוניטין
    213
    צפיות בפרופיל
    39
    פוסטים
    1
    עוקבים
    0
    עוקב אחרי
    הצטרף ב- התחבר לאחרונה
    מיקום אזור המרכז

    א.מ. הפסק לעקוב עקוב

    הפוסטים הטובים ביותר שנוצרו על ידי א.מ.

    • מדריך: חיפוש והחלפה בוורד

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

      איך מחליפים?

      1. כנס לתיבת הדו שיח 'החלפה'. (CTRL+H)
      2. לחץ על 'עוד'.
      3. עמוד עם סמן העכבר ב-'חפש את'.

      לחיפוש טקסט בתוך סוגריים הקלד:

      \(*\)
      

      [לסוגריים מרובעות יש לחפש [*] וכן על זה הדרך]
      (יש לסמן ב-'וי' את 'השתמש בתווים כלליים')

      לחיפוש טקסט בסוגריים פנימיים בתוך סוגריים חיצונים הקלד:

      \([!^0013\(\)]@\)
      

      [לסוגריים מרובעות יש לחפש [[!^0013\(\)]@] וכן על זה הדרך]
      (יש לסמן ב-'וי' את 'השתמש בתוים כלליים')

      לחיפוש רווח לפני פיסקה הקלד:

      (^013)( )
      

      (יש לסמן ב-'וי' את 'השתמש בתווים כלליים')
      לחיפוש רווחים רבים לפני פיסקה הקלד:

       ^13 @<
      

      (יש לסמן ב-'וי' את 'השתמש בתווים כלליים')

      לחיפוש מילה ראשונה של פיסקה הקלד:

      ^13*>
      

      (יש לסמן ב-'וי' את 'השתמש בתווים כלליים')

      לחיפוש כל הניקוד במסמך הקלד:

      [^0192-^0204^0209^0210]
      

      לחיפוש כל הניקוד במסמך חוץ מ-שׁ ו-שׂ הקלד:

      [^0192-^0204]
      

      לחיפוש רווחים גדולים בתוך השורה (Tab) הקלד:

      ^t
      

      לחיפוש רווחים בין מילים הקלד:

      ^w
      

      לחיפוש רווחים בין פסקאות הקלד:

      ^p
      

      לחיפוש כל ספרה שבמסמך הקלד:

      ^#
      
      1. עמוד עם סמן העכבר ב-'החלף ב'.
      2. הגדר את העיצוב או את המילה או כל דבר אחר שאליו תרצה להחליף.
      3. לחץ למטה על 'החלף הכל'.

      בהצלחה!

      מי שיוכל להוסיף עוד קודים נצרכים שיוסיף בתגובות ותבוא עליו ברכה!

      פורסם במדריכים
      א
      א.מ.
    • מאקרו לתיקון שגיאות נפוצות

      בס"ד

      אלו התיקונים אותם עושה פקודת המאקרו:

      1. נקודות ופסיקים שאינם במקומם.
      2. רווח יחיד לפני ואחרי מקף.
      3. אותיות סופיות שאינן במקומן.
      4. סוגריים שאינם במקומם.
      5. רווח לפני פיסקה.
      6. פסיק בסוף פיסקה.

      המאקרו מוטמע בקובץ הזה: מאקרו תיקון שגיאות.docm, להעברת המאקרו לתבנית נורמל (Normal) יש לעבור ללשונית 'תצוגה', בצד שמאל יש ללחוץ על 'פקודות מאקרו', בחלון שנפתח יש ללחוץ בצד שמאל על 'סדרן' ולהעתיק את המאקרו מהחלונית הימנית לשמאלית.

      בהצלחה!

      נ.ב. המאקרו נוצר לצורך מסויים ניתן לשנות את הקוד להלן להתאמה אישית של המאקרו.

      Sub תיקון_שגיאות()
      '
      ' תיקון_שגיאות Macro
      ' פקודת מאקרו זו מתקנת שגיאות טקסט במסמך בצורה אוטומטית
      '
      ' שאלת פתיחה
      If MsgBox("?האם לתקן שגיאות במסמך זה", vbYesNo) = vbYes Then
          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
          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
          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
          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
          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
          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
          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
          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
          With Selection.Find
              .Text = ",(^013)"
              .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
          With Selection.Find
              .Text = "(^013)( )"
              .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
          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
          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
          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
          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
          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
          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
          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
          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
          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
          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
          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
          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
          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
          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
          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
          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
          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
          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
          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
          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
          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
          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
          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
          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
          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
          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
          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
          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
          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
          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
          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
          Selection.Find.Execute
          Selection.Find.Execute Replace:=wdReplaceAll
          Selection.Find.Execute
      ' הודעת סיום
          MsgBox "!תיקון השגיאות הסתיים" & Chr(13) & "" & Chr(13) & "" & Chr(13) & "" & Chr(13) & "מאקרו תיקון שגיאות גרסה 2" & Chr(13) & "", vbMsgBoxRight
          Selection.Find.Execute Replace:=wdReplaceAll
             Else
             End If
          End Sub
      

      משום מה בשורה האחרונה של הקוד מופיע {1} יש לשנותו ל End Sub.

      פורסם במדריכים
      א
      א.מ.
    • דיסק הצלה ווינדוס 10 בעברית

      בס"ד

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

      תוכנת צריבה על דיסק
      תוכנת צריבה על דיסק און-קי

      הורדת הדיסק הצלה (גודל הקובץ: 2.5 GB)

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

      בהצלחה!

      תמונות לדוגמא:
      תמונה2.jpg
      תמונה1.jpg

      שים לב! הדיסק עודכן לגרסה חדשה כאן.

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

      בס"ד

      פתרון בעיות - שגיאת מחיצות במהלך התקנת ווינדוס:

      לפעמים מופיעה בתחילת ההתקנה של מערכת ההפעלה הודעה כזו:
      "הודעת שגיאה: אין אפשרות להתקין WINDOWS בדיסק זה. הדיסק הנבחר כולל מחיצות מסוג MBR במערכות EFI ניתן להתקין WINDOWS בדיסקים מסוג GPT בלבד".

      פתרון הבעיה:

      1. העלה את התקנת הווינדוס מהדיסק און קי.

      2. לחץ על 'התקן עכשיו'. (או 'Install Now')

      3. לחץ על המקשים Shift +10 כדי לפתוח את חלון 'שורת הפקודה'.

      4. הקלד את הפקודה: Diskpart ולחץ על מקש 'Enter'.

      5. לאחר מכן הקלד את הפקודה: List Disk ולחץ על מקש 'Enter', תופיע רשימה של הכוננים במחשב ובצד שמאל יופיע מספר לכל כונן.

      6. לאחר מכן הקלד את הפקודה: Select Disk ולאחר מכן הקלד את מספר הכונן שעליו הנך רוצה להתקין את הווינדוס ולאחר מכן לחץ על מקש 'Enter'.

      7. לאחר מכן הקלד את הפקודה: Clean ולחץ על מקש 'Enter'.

      8. לאחר מכן הקלד את הפקודה: Convert GPT ולחץ על מקש 'Enter', הכונן יאותחל לסוג המחיצות הנדרש להתקנת הווינדוס.

      (הערה: פעולת האתחול תמחק את כל המידע שקיים בדיסק!!!).

      1. לסיום סגור את חלון 'שורת הפקודה' והפעל את המחשב מחדש.
      • בהצלחה!!!

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

      פורסם במדריכים
      א
      א.מ.
    • RE: תיקיה חדשה בצורת מצלמה

      רציתי להוסיף על הדברים של @chv שניתן להמיר כל קובץ תמונה על ידי תוכנת פורמט פקטורי וכדומה לקובץ ICO שהוא קובץ סמל וניתן להגדירו ידנית כסמל מותאם אישית של התיקייה.

      פורסם בתוכנה
      א
      א.מ.
    • RE: דיסק הצלה בעברית

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

      פורסם בתוכנה
      א
      א.מ.
    • RE: איפוס סיסמא - ווינדוס 10

      עם 'היירנס בוט' תוכל להסיר את הסיסמה בקלות!
      תוכל להוריד את הארכיון מכאן
      תחלץ את הקבצים מהארכיון ותצרוב את הקובץ ISO על דיסק או דיסק און-קי.
      הדרכה לשימוש בדיסק:

      1. מעלים את הדיסק מהביוס בתפריט שמופיע צריך לבחור באפשרות הראשונה של Mini PE [או Mini Windows xp] (זו מערכת חיצונית).
      2. עלינו למערכת!, על שולחן העבודה של מערכת Mini PE [או Mini Windows xp] יש אייקון (סמל) שחור שנקרא HBCD menu – תפעיל אותו!
      3. לבחור בתפריט Programs בצד שמאל למעלה > לבחור ב- Passwords/ keys > לבחור ב- Windows Login> לבחור ב- NTPWEdit.
      4. בחלון החדש לבחור Re-open (צד ימין) > כעת יש לבחור את שם המשתמש שרוצים לאפס > לאחר מכן יש לבחור ב- Change passwword > בשדות הריקים יש להקליד את הסיסמה החדשה פעמיים (ניתן גם להשאיר ריק) וללחוץ O.k > בסיום יש ללחוץ על כפתור Save setting.
      5. לסיום יש להפעיל את המחשב מחדש.

      - בהצלחה!!!

      פורסם בתוכנה
      א
      א.מ.
    • RE: עזרה במעקב משלוח מסין

      כנראה שהמשלוח לא בארץ בכלל, אם הוא אכן היה בארץ היית יכול לראות את המידע עליו שם.

      פורסם בצרכנות
      א
      א.מ.
    • RE: מידע | מילון ארמי לוורד

      אתה יכול לנסות את זה: המילון התורני.exe

      וגם כאן וכאן.

      בהצלחה!

      פורסם בתוכנה
      א
      א.מ.
    • RE: מעקב שימוש במחשב ואינטרנט

      למי שרוצה אפשר להשיג כאן את תוכנת המעקב הנפלאה Spyrix Personal Monitor.
      וכאן יש תרגום לעברית לתוכנה.

      נ.ב.
      יש להחריג את הנתיבים הבאים מהאנטי וירוס:

      C: \ ProgramData \ {89DF3612-BE12-A0A6-D34F-FD696F512FCB} \ *
      
      C: \ Windows \ runkey.exe
      
      פורסם בתוכנה
      א
      א.מ.

    פוסטים אחרונים שנוצרו על ידי א.מ.

    • RE: אנטי וירוס אופליין

      @משתמש-חדש לאווסט יש אנטי וירוס חינמי עם תמיכה רישמית להתקנה אופליין כאן, ניתן להוריד גם את האנטי וירוס של ESET מכאן.

      פורסם בתוכנה
      א
      א.מ.
    • RE: מעקב שימוש במחשב ואינטרנט

      למי שרוצה אפשר להשיג כאן את תוכנת המעקב הנפלאה Spyrix Personal Monitor.
      וכאן יש תרגום לעברית לתוכנה.

      נ.ב.
      יש להחריג את הנתיבים הבאים מהאנטי וירוס:

      C: \ ProgramData \ {89DF3612-BE12-A0A6-D34F-FD696F512FCB} \ *
      
      C: \ Windows \ runkey.exe
      
      פורסם בתוכנה
      א
      א.מ.
    • RE: דחוף!!! לא זוכר את הסיסמה של הקובץ אקסל!!

      גם מכאן ניתן להוריד תוכנה להרצת סיסמאות לקובץ.

      פורסם בתוכנה
      א
      א.מ.
    • RE: תיקיה חדשה בצורת מצלמה

      רציתי להוסיף על הדברים של @chv שניתן להמיר כל קובץ תמונה על ידי תוכנת פורמט פקטורי וכדומה לקובץ ICO שהוא קובץ סמל וניתן להגדירו ידנית כסמל מותאם אישית של התיקייה.

      פורסם בתוכנה
      א
      א.מ.
    • RE: הערות באקרובט (עברית)

      כתיבת טקסט באקרובט.jpg

      1. פותחים את רצועת הכלים.
      2. בוחרים בכרטיסיה 'תוכ'ן ב'הוסף או ערוך תיבת מלל'.
      3. בוחרים את סוג הגופן הרצויי.
      4. בוחרים את גודל הגופן הרצויי.

      בהצלחה!

      פורסם בתוכנה
      א
      א.מ.
    • RE: איך מרימים ספר ב3 מ"מ ?

      אתה יכול להדפיס את הקובץ PDF במדפסת PDF של אקרובט ולהגדיר את העמוד ידנית שיהיה בגודל שאתה רוצה.
      דוגמא:
      תמונה1.jpg

      פורסם בגומלין - כללי
      א
      א.מ.
    • RE: איך מרימים ספר ב3 מ"מ ?

      @מעמד מה הכוונה להרים, שהעמוד על הדף יהיה מורם 2-3 מ"מ כלפי מעלה, או שהעמוד עצמו יהיה גדול יותר?

      פורסם בגומלין - כללי
      א
      א.מ.
    • RE: טיפול בדיסקאונקי "מוגן מפני כתיבה"

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

      פורסם בחומרה
      א
      א.מ.
    • RE: כרטיס זיכרון לא נפתח

      כדאי שתנסה להשתמש בתוכנה Active@ FileRecovery שעוזרת להרבה מקרים כגון אלה.
      כאן יש מדריך לתוכנה וקישור להורדה שלה.

      פורסם בחומרה
      א
      א.מ.
    • RE: יש מתיבתא סרוק כמו שיש שוטנשטיין?

      הסריקה של שוטנשטיין חוקית? (באוצר החכמה אין גמ' שוטנשטיין והוספת הספרים של עוז והדר עולים 1,500 ש"ח ולא ניתן להדפיס ל-PDF יותר ממספר עמודים בודדים בלבד)

      פורסם בגומלין - כללי
      א
      א.מ.