תחומים - פורום חרדי מקצועי

העורכים בוורד נתקלים הרבה פעמים בהצורך להשתיל קוד מסוים לפני ואחרי הסוגריים, ומה שאפשרי בעצם לעשות ע"י חיפוש והחלפה סטנדרטי היא חפש (\(*\)) החלף ב@1\1@2 וכדומה, [אפשר גם כך \(*\) החלף ב @1^&@2 וכו' וכו' ]אבל הרבה פעמים נתקלים למצב שיש סוגריים בתוך סוגריים ...
ובעצם למצב חד פעמי אפשר פשוט להחליף קודם את הסוגר הפנימי ע"י חיפוש (\([!\)]@)\( (קרדיט ל @YOSSIZ ) ולהחליף את הסוגריים השניים לכל תו אחרת ואז להשתיל את הקודים ולהחליף בחזרה, דהיינו החלף ב\1{.
מאחר דאני נצרך לזה הרבה ואני סובר שיהיה מזה תועלת לעוד הרבה אביא לכאן מאקרו שיעזור בנושא דידן, + אפשרות של שינוי צבע הטקסט שבסוגריים והיינו ע"י הורדת הגרש בשורה המסומנת, + וכן אפשרות להקטנת גודל הגופן ב2 (אפשר להחליף לגודל הרצוי) נקודות ע"י הסרת הגרש בתחילת השורה המתאימה כמסומן.

Sub השתלת_קידודים_לסוגריים()
Application.ScreenUpdating = False
again:
If Selection.Find.Execute(findText:="\(*\)", MatchWildcards:=True, Wrap:=wdFindStop) = True Then
    strt = 2: lent = Len(Selection.Text)
re:
     For i = strt To lent
        If Mid(Selection.Text, i, 1) = Chr(40) Then
        Selection.Extend Character:=Chr(41)
        strt = i + 1: lent = Len(Selection.Text)
        GoTo re
        End If
     Next
With Selection
' שורת הקוד, אפשר להחליף באיזה קודים שתרצו
.InsertBefore "@00": .InsertAfter "@01"
' שורת הקטנת גודל הגופן (ב-2)
'.Font.SizeBi = .Font.SizeBi - 2
'שורת הצבע
'.Font.Color = wdColorBlue
.Collapse (wdCollapseEnd)
End With
GoTo again
End If
Application.ScreenUpdating = True
End Sub

קרדיט ל @צורת-הדף (פרוג) .
ול @מגדלים .
בהצלחה.

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

@shraga לענ"ד זה לא יעזור למה שהוא ביקש, הוא ביקש משהו שאוטומטי יתפצל כ"א מהקבצים לנתיב המוגדר מראש..

@הללוהו אמר באפשרות מובנית בוורד לצילום מסך ויצוא תמונה.:

@משה-פרוכטר צודק...
לפחות דרך לגישה מהירה..

גם אמת...

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

@מלאכת-מחשבת @שאול-נ-י וכו'
יש אפשרות להכנסת כתובת של דף האימייל שפותח את דף הבית של האימייל האחר שלי והיא ע"י הכנסת שורה זו:

https://accounts.google.com/AccountChooser?continue=https://mail.google.com/&Email=youremail@gmail.com

שים לב להחליף את youremail@gmail.com בכתובת המייל שלך

מקור:
https://www.prog.co.il/articles/להחזיק-מספר-חשבונות-gmail‍.2042/
הובא כאן (מתמחים). ע"י הניק @איש-נחמד ..

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

@nigun אמר בתביעת ספאם - מישהו התנסה?:

@aaron
הסיבה שיש בציבור לנו יותר ספאם (גם בצינתוקים)
זה בגלל שרוב הפוסקים אוסרים לתבוע
אם תמצא היתר הילכתי (לא רק מו"צ פלוני התיר, אלא נימוק הילכתי משכנע)
אז התופעה כנראה תגמר.

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

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

@מיכאלוש אם הבנתי נכון כוונתו שהסקריפט שהוא כותב בגליון 1 יעבוד ג"כ בגליון 2 , והתשובה לכך היא כן, הסקריפט אינו עובד רק בגליון הנוכחי אלא בכל הגליונות, חוץ אם מוגדר שם משהו דוקא לגליון 1.

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

Sub החלפת_כמה_מילים_למילה_אחת()
' ."פורסם על ידי מלאכת מחשבת ב"תחומים
' .הובא על ידי מגדלים 
arrFind = Array("א", "ב")


For f = 0 To UBound(arrFind)
    Selection.Find.Text = arrFind(f)
    Selection.Find.Replacement.Text = "להחליף_ב"
    Selection.Find.Wrap = wdFindContinue
    Selection.Find.Execute Replace:=wdReplaceAll
Next
End Sub

וכנ"ל להוסיף ולשנות למילים הנצרכים...
בהצלחה רבה.

וכשתרצו להחליף מספר מילים קבועים מראש, (בלי שתצטרכו כל פעם להכניס מילים, להחליף ב-)
תוכלו להשתמש עם פקודה זו:

Sub החלף_מילים_קבועים_מראש()
' ."פורסם על ידי מלאכת מחשבת ב"תחומים
' .הובא על ידי מגדלים 
arrFind = Array("א", "ב")
arrReplace = Array("א_להחליף_ב", "ב_להחליף_ב ")
For f = 0 To UBound(arrFind)
    Selection.Find.Text = arrFind(f)
    Selection.Find.Replacement.Text = arrReplace(f)
    Selection.Find.Wrap = wdFindContinue
    Selection.Find.Execute Replace:=wdReplaceAll
Next
End Sub

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

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

Sub החלפת_כמה_מילים_בו_זמנית()
' הובא על ידי מגדלים
' פורסם ע"י מלאכת מחשבת, ב"תחומים"
'Update by ExtendOffice 2018/10/25
    Dim xFind As String
    Dim xReplace As String
    Dim xFindArr, xReplaceArr
    Dim I As Long
    Application.ScreenUpdating = False
    xFind = InputBox(":הזן פריטים שיימצאו כאן, מופרדים באמצעות פסיק ", "!חפש כמה מילים בו זמנית")
    xReplace = InputBox("הזן המילים שאתה רוצה לקבל בתמורתן, (מופרדים (.באמצעות פסיק ", "-החלף ב")
    xFindArr = Split(xFind, ",")
    xReplaceArr = Split(xReplace, ",")
    If UBound(xFindArr) <> UBound(xReplaceArr) Then
        MsgBox "Find and replace characters must be equal.", vbInformation, "Kutools for Word"
        Exit Sub
    End If
    For I = 0 To UBound(xFindArr)
        Selection.HomeKey Unit:=wdStory
        With Selection.Find
            .ClearFormatting
            .Replacement.ClearFormatting
            .Text = xFindArr(I)
            .Replacement.Text = xReplaceArr(I)
            .Format = False
            .MatchWholeWord = False
        End With
        Selection.Find.Execute Replace:=wdReplaceAll
    Next
    Application.ScreenUpdating = True
End Sub

וכן אפשרות כנ"ל להוספה לרצועת הכלים לגישה מהירה בוורד (למעלה, כבתמונה),
ע"י הכניסה כנ"ל רק במקום להתאמה אישית כו' להיכנס ל"סרגל כלים לגישה מהירה"...

@אוריי הוא כבר כתב לעיל, על מה שהבאת שזה עובד!

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