אופיס 365 חיפוש והחלפה בתחילת שורה

[Avshalom05]

ראיתי בפורום - אך לא הצלחתי!

יש לי מסמך (טבלא) ששם - כל מקום שיש את המילה שלום בתחילת שורה - אני צריך למחוק

איך מחפשים תחילת שורה ומחליפים את זה בכלום - כדי שימחק לי את כל איפה שכתוב שלום בתחילת שורה ,
יש מקומות שכתוב שלום - אבל זה באמצע שורה - וזה חייב להישאר!

איזה קוד צריך לעשות בחיפוש והחלפה?

תודה רבה לעוזרים

 

[נקדן זריז]

אני מבין שהכוונה לוורד.
אפשר בשני דרכים:
א. ללחוץ בחיפוש והחלפה על 'עוד' ואז נפתח אפשרויות נוספות, אח"כ ללחוץ על 'מיוחד' ולבחור בסימון פיסקה [האופציה הכי למעלה], ויגיע סימון כזה: ^p [אפשר גם להעתיק מכאן] וליד הסימון לכתוב שלום:
^pשלום
ואת זה להחליף בסימון פיסקה בלבד ^p.
ב. לבחור 'השתמש בתוים כללים' ובהחלף את לרשום \^13שלום ולהחליף ב\^13
הצלחה רבה!

 

[Avshalom05]

אני מבין שהכוונה לוורד.
אפשר בשני דרכים:
א. ללחוץ בחיפוש והחלפה על 'עוד' ואז נפתח אפשרויות נוספות, אח"כ ללחוץ על 'מיוחד' ולבחור בסימון פיסקה [האופציה הכי למעלה], ויגיע סימון כזה: ^p [אפשר גם להעתיק מכאן] וליד הסימון לכתוב שלום:
^pשלום
ואת זה להחליף בסימון פיסקה בלבד ^p.
ב. לבחור 'השתמש בתוים כללים' ובהחלף את לרשום \^13שלום ולהחליף ב\^13
הצלחה רבה!

כן מדובר בוורד - זה הפורום כאן - -- -
הבעיה היא שזה בתחילת שורה שהוא לא תחילת פיסקה!!!!

והאופציה השניה - פריט לא נמצא!!!

 

[מורדי]

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

 

[Avshalom05]

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

תנסה אלצך ותגיד לי אם זה עובד לך - לי לא הלך גם מה שאתה הצעת.....

 

[צורת הדף]

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

Sub findintable()
    For i = 1 To ActiveDocument.Tables.Count
       For k = 1 To ActiveDocument.Tables(i).Range.Rows.Count
        ActiveDocument.Tables(i).Columns(1).Cells(k).Range.InsertBefore "#"
       Next
    Next
End Sub

 

[Avshalom05]

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

Sub findintable()
For i = 1 To ActiveDocument.Tables.Count
For k = 1 To ActiveDocument.Tables(i).Range.Rows.Count
ActiveDocument.Tables(i).Columns(1).Cells(k).Range.InsertBefore "#"
Next
Next
End Sub

אני חוזר שוב - אולי לא הבנתם אותי - המילה שלום לדוגמא - לא נמצאת בתחילת תא!

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

איך עושים את זה - במקום לעבור על מאות (!) מדבקות ולראות איזה שליט"א החליט לטייל לשורה הבאה?????

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

מה לעשות? אז הכי רלוונטי זה למחוק את השליט"א שקפץ שורה,
השאלה איך לעשות???

תודה רבה לעוזרים !!!!!!!

 

[Yisrael]

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

 

[Rרחמים]

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

 

[Avshalom05]

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

פירוש רש"י-
אז מה עושים???

 

[מורדי]

פירוש רש"י-

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

אז מה עושים???

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