שיתוף שרשור חיפוש והחלפה בוורד - אילתורים מקצועיים בוורד
-
@yaniv134
תנסה את זה, לא בדקתי.Sub highlightdup() Dim I, J As Long Dim xRngFind, xRng As Range Dim xStrFind, xStr As String Options.DefaultHighlightColorIndex = wdYellow Application.ScreenUpdating = False With ActiveDocument For I = 1 To .Words.Count - 1 Set xRngFind = .Words(I).Range If xRngFind.HighlightColorIndex <> wdYellow Then For J = I + 1 To .Words.Count Set xRng = .Words(J).Range If xRngFind.Text = xRng.Text Then xRngFind.HighlightColorIndex = wdBrightGreen xRng.HighlightColorIndex = wdYellow End If Next End If Next End With End Sub -
יש לי קובץ שיש בו הרבה הערות שוליים, אבל הן מפיעות אחרי הפסיק או הנקודה.
יש איזה קוד שאוכל להחליף אותם, בכדי שהפסיק או הנקודה יהיו אחרי הסימון של ההערת שוליים, ולא לפניו? -
כך תוכל למצוא את כל ההערות שוליים.
הוסף איזשהו סימן על ידי חיפוש והחלפה אחרי כל סימון הערה ולפניה
ואז תוכל לעשות חיפוש והחלפה על ידי תווים כלליים
השתמשתי עם משהו מורכב יחסית כדי למנוע בעיות עם העיצוב ולכן בחיפוש והחלפה האחרונים אני גם קולט את האות לפני הההערת שוליים ומתייחס אליה כקבוצה מס' אחת.
-
@pcinfogmach אפשר את זה בתור מאקרו?
-
@pcinfogmach
יישר כח גדול!
בקצרה, אתה גאון! (וגם בעל לב טוב...) -
@u88 כתב בשיתוף | שרשור חיפוש והחלפה בוורד - אילתורים מקצועיים בוורד:
@pcinfogmach אפשר את זה בתור מאקרו?
תקליט את השלבים הנ"ל ויהיה לך מאקרו.
-
@pcinfogmach זה קצת מסובך אשמח למשהוא מובנה
-
מחליף פסיק או נקודה שלפני סימון הערה, לאחרי.
קרדיט ל @pcinfogmachSub Macro2() Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = "^f" .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.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = "(?)([,.])%(*)%" .Replacement.Text = "\1\3\2" .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 -
@דאנציג כתב בשיתוף | שרשור חיפוש והחלפה בוורד - אילתורים מקצועיים בוורד:
איך עושים לפסיק או לנקודה?
בחיפוש והחלפה כשרוצים למצוא אחד מתוך כמה תוים מכניסים את כל התוים אל תוך סוגריים מרובעות ככה
[,.]
ובמקרה שלנו הקוד יהיה[,.]%(*)%(?)
שים לב! איפה שמתי את הסימן שאלה שים אותו היכן שהפסיק או הנקודה יהיו בסוף ההחלפה כדי למנוע בעיות בעיצוב כנ"ל -
@pcinfogmach כתב בשיתוף | שרשור חיפוש והחלפה בוורד - אילתורים מקצועיים בוורד:
שים לב! איפה שמתי את הסימן שאלה שים אותו היכן שהפסיק או הנקודה יהיו בסוף ההחלפה
אבל כך הוא מעביר את הרווח במקום שיהיה לאחר ה,/. לפני וה,/. צמוד למילה הבאה.
לעומת זאת כאשר אני עושה כך (?)[,.]%(*)%:
הרווח ממוקם במקום הנכון. -
עשיתי שינוי נוסף כללתי את הפסיק והנקודה בקבוצה כדי למנוע בעיה של החלפת נקודה בפסיק
-
@pcinfogmach
משום מה כאשר ה(?) בסוף מילה, הוא לא מחליף כלל.וכאשר אני מחליף כך (?)([,.])%(*)% זה כן מחליף.
-
@דאנציג
אצלי עבד מצויין תשלח לי קובץ דוגמא איפה שלא עבד -
@pcinfogmach
אין קובץ, כתבתי בקובץ חדש:
123, 456
123, 456
123, 456
123. 456
עם הערה אחרי הפסיק / נקודה.
תראה כעת את המאקרו שעדכנתי למעלה. -
@דאנציג
זה שאלה של יישור בגלל שמדובר במספרים -
@pcinfogmach
עכשיו ראיתי מה הבעיה, אני עשיתי את ה% צמוד לסימון הערה, ואתה בהחלפה כתבת %([,.])()%(?)
שהפסיק/נקודה בין ה%, ולכן זה לא עבד לי.
כעת החלפתי כך ([,.])%()%(?) וזה עובד מצויין, רק לא הבנתי כל כך את הענין של העיצוב, האם להחליף במאקרו את המיקום של ה(?), הרי אם זה בסוף, זה תופס את הרווח שאחרי, ואם זה לפני זה תופס את האות האחרונה שלפני הפסיק / נקודה. -
@דאנציג
העניין עם העיצוב הוא שלפעמים בהחלפות הפסיק עלול לקבל את העיצוב של ההפניית הערות שוליים.אגב עדיף לא להתשמש עם * זה מסוכן. אלא עדיף להשתמש בהגדרה בשלילה כמו
[! ^13]@
דהיינו כל תו שאינו רווח או סוף שורה -
אולי יבא יום וזה יכנס גם לתוספים "עיצוב" "וורד" - תורני"
יישר כח לכל העוסקים במלאכה
-
האם מישהו יודע איך אפשר ע"י מאקרו או מקשים להגיע תוצאה הבאה
יש לי הערות שוליים רבות, חלקם צבועים בצבע מסויים (תוכן ההערה), נניח אדום שחור וירוק.
איך אוכל לסמן את ה'סימון הערת שוליים' (למעלה בטקסט-את המספר) בצבע מסויים, רק את מספרי ההערות שתוכנם בצבע X
יש פתרון ????
אולי @pcinfogmach
בתודה מראש -
@pcinfogmach
איך אני עושה שכל פסיק בסוף פסקה יהיה נקודה, וכן פסקה בלי נקודה שיהיה נקודה בסופה
תודה רבה
58/90