עזרה | פתרונות בוורד
-
@dmp @מלאכת-מחשבת למען הסדר הטוב הנושא פוצל , וחלק מהדיונים הועברו ל"איך להוסיף שאילה בפקודה בוורד, ועוד."
בואו ונמשיך ביחד שם כדי למנוע שרשורים... -
@מגדלים תחליף את השורה הבאה:
.Wrap = wdFindAsk
לקוד זה:
.Wrap = wdFindStop
שים לב שאם לא נבחר שום טקסט הפקודה כן תחול על כל המסמך (מנקודה זו ואילך), ולכן צריך להוסיף את השורה הבאה בתחילת הקוד
If Selection.Start = Selection.End Then Exit Sub
וכבר כתבתי לעיל שבהחלפה זו מסתבכים עם מילים בר"ת...
@dmp אמר בעזרה | פתרונות בוורד:
וכבר כתבתי לעיל שבהחלפה זו מסתבכים עם מילים בר"ת...
כעת חשבתי שהפתרון לזה הוא פשוט, צריך לחפש את הנ"ל עם רווח לפני המילה ואז החיפוש לא מתייחס לר"ת באמצע מילה.
ככה:.Text = " <[א-ת]"
וכן בהחלף ב: להוסיף רווח לפני הקידוד הראשון, לדוגמא:
.Replacement.Text = " $^&$"
תעדכנו עם עבד...
לגבי תחילת פיסקה צריך לחפש
.Text = "^13<[א-ת]"
-
@dmp אמר בעזרה | פתרונות בוורד:
וכבר כתבתי לעיל שבהחלפה זו מסתבכים עם מילים בר"ת...
כעת חשבתי שהפתרון לזה הוא פשוט, צריך לחפש את הנ"ל עם רווח לפני המילה ואז החיפוש לא מתייחס לר"ת באמצע מילה.
ככה:.Text = " <[א-ת]"
וכן בהחלף ב: להוסיף רווח לפני הקידוד הראשון, לדוגמא:
.Replacement.Text = " $^&$"
תעדכנו עם עבד...
לגבי תחילת פיסקה צריך לחפש
.Text = "^13<[א-ת]"
-
@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
-
@מגדלים זה לכאורה הקוד המלא והנכון
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 הוא לא עובד בתחילת פיסקה רק אם התחלתי כבר מסוף הפיסקה הקודמת... צריך משהו שיחליף גם בתחילת שורה / פיסקה גם מבלי לבחור בסוף הפיסקה הקודמת.
@מגדלים הצלחתי!!!
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)
-
מ מגדלים העביר נושא זה מ-עזרה הדדית - תוכנות ב-
-
מ מגדלים העביר נושא זה מ-עזרה הדדית - וורד ב-