עזרה | פתרונות בוורד

[מגדלים]

@dmp לי יש מאקרו מוכן וכנ"ל אבל עובד רק על מילים בלי מרכאות וכדו':

Sub להוספה_לפני_ואחרי_האות_הראשונה()
'
' נערך ע"י מגדלים
'
If Selection.Start = Selection.End Then Exit Sub
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "<[א-ת]"
        .Replacement.Text = "לפני האות^&לאחרי האות"
        .Forward = True
        .Wrap = wdFindStop
        .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

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

[dmp]

@מגדלים תחליף את השורה הבאה:

.Wrap = wdFindAsk

לקוד זה:

.Wrap = wdFindStop

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

If Selection.Start = Selection.End Then Exit Sub

וכבר כתבתי לעיל שבהחלפה זו מסתבכים עם מילים בר"ת...

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

@dmp @מגדלים

תודה רבה!!!
עושה אחלה של עבודה!!!

זה מה שחיפשתי.

[מגדלים]

@dmp

@dmp אמר בעזרה | פתרונות בוורד:

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

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

[dmp]

@מלאכת-מחשבת תוסיף בשורה 5 בקוד הנ"ל ותמחוק את הגרש שבהתחלה.
הקוד אומר שאם לא נבחר טקסט תתבצע יציאה מהשגרה.
יעיל לכל פקודה שהיא.

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

@dmp מה זה "יציאה מהשיגרה"?
והשאילה אם יעיל לכל מקרו זה גם לגבי שאר הקודים שהבאת.

[dmp]

@מלאכת-מחשבת יציא מהמאקרו.
כן, בכל פקודה של החלפה.

[מגדלים]

@מלאכת-מחשבת אמר בעזרה | פתרונות בוורד:

@dmp

תודה רבה!!!
עושה אחלה של עבודה!!!

זה מה שחיפשתי.

גם אני מצטרף!
ומחכים לשמוע תגובות על הנ"ל...

[אמיר]

@מלאכת-מחשבת

חפש תוסף בשם משלים לוורד
מערכת עימוד תורני שאברך בנה
יתכן שפעם אחרונה ראיתי לפני עשור

כאן
https://mitmachim.top/topic/6120/תוספת-עיצוב-ספרי-קודש-לוורד

[מגדלים]

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

[dmp]

@dmp אמר בעזרה | פתרונות בוורד:

וכבר כתבתי לעיל שבהחלפה זו מסתבכים עם מילים בר"ת...

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

.Text = " <[א-ת]"

וכן בהחלף ב: להוסיף רווח לפני הקידוד הראשון, לדוגמא:

.Replacement.Text = " $^&$"

תעדכנו עם עבד...

לגבי תחילת פיסקה צריך לחפש

.Text = "^13<[א-ת]"

[מגדלים]

@dmp חשבתי מיד בהתחלה כך אבל אני צריך את שתיהם בכל חיפוש דהיינו גם של תחילת שורה וגם של המשך ואז בפעם אחד לא הצלחתי להגדיר שתיהם...

[dmp]

@מגדלים זה לכאורה הקוד המלא והנכון

Sub קידוד_בתחילת_מילה()

'חיפוש רווח ותחילת מילה
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = " (<[א-ת])"
        .Replacement.Text = " $\1$"
        .Forward = True
        .Wrap = wdFindStop
        .Format = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
'חיפוש סוף פיסקה ותחילת מילה
    Selection.Find.Text = "^13(<[א-ת])"
    Selection.Find.Replacement.Text = "^13$\1$"
    Selection.Find.Execute Replace:=wdReplaceAll
    
End Sub

[מגדלים]

@dmp זה יחפש לי גם בתחילת מילה וגם בתחילת שורה?

[dmp]

@מגדלים לכאורה, תנסה ותעדכן

[מגדלים]

@dmp ואיפה מכניסים את המילים לפני ואחרי שבהם אני רוצה להוסיף?
כמו הפקודה שהבאתי למעלה עם מילים לפני ואחרי..

[dmp]

@מגדלים תבחר את הטקסט שאתה רוצה במסמך ואחר כך תפעיל את המאקרו

[מגדלים]

@dmp הוא לא עובד בתחילת פיסקה רק אם התחלתי כבר מסוף הפיסקה הקודמת... צריך משהו שיחליף גם בתחילת שורה / פיסקה גם מבלי לבחור בסוף הפיסקה הקודמת.

[dmp]

@מגדלים הצלחתי!!!

Dim MyRange As Range
Set MyRange = ActiveDocument.Range(Selection.Start - 1, Selection.Start)
If MyRange.Text = Chr(13) Or MyRange.Text = " " Then
Set MyRange = ActiveDocument.Range(Selection.Start - 1, Selection.End)
MyRange.Select
End If

להוסיף ממש בהתחלה (בשורה 2)