שיתוף שרשור חיפוש והחלפה בוורד - אילתורים מקצועיים בוורד
-
@יוסף123
חפש: ^13*. -
@pcinfogmach כתב בשיתוף | שרשור חיפוש והחלפה בוורד - אילתורים מקצועיים בוורד:
@יוסף123
חפש: ^13*.משום מה זה לא עבד אבל במקומו עשיתי @*.
וזה נתן את התוצאה,
תודה רבה!! -
@יוסף123 קח בחשבון שיש מילים שאות אחת מתוך המילה בלי ניקוד.
-
@צדיק-וטוב-לו-0 ואז מה יקרה?
-
@יוסף123 לא בטוח, אבל יש מצב שכל המילה תשתנה לסגנון החדש מלבד האות בלי הניקוד.
-
@צדיק-וטוב-לו-0 כתב בשיתוף | שרשור חיפוש והחלפה בוורד - אילתורים מקצועיים בוורד:
@יוסף123 לא בטוח, אבל יש מצב שכל המילה תשתנה לסגנון החדש מלבד האות בלי הניקוד.
תלוי אם אתה משתמש בסגנון תו או סגנון פיסקה.
-
שלום רב, אני חוזר לאשכול זה שוב מאחר וטרם הסתדרתי.
תודה רבה לכל העונים (אין לי אפשרות להצביע, אבל מגיע לייק לכל המסייעים).הבעיה שלי היא כזאת, אני עורך ספר, ויש בו הרבה טקסט בכתיב חסר שעלי לתקן אותו. הכנתי מאקרו (צירפתי אותו באחת האשכולות) שמתקן את רוב המילים, אך דא עקא שיש מעט פסוקים מנוקדים שאני לא חפץ שהמקרו יחול עליהם.
לכן חשבתי לעשות חיפוש טקסט מנוקד ולעשות החלף לסגנון חדש ולעשות 'הגבל עיצוב' לסגנון זה.
למעשה ה לא הולך א. כי החיפוש וההחלפה עם הקוד הנ"ל תוקע את התוכנה משום מה,
ב. בפעמים שכן הצלחתי, כל הקטע שמכיל פסוק, השתנה לסגנון החדש, גם טקסט שאינו מנוקד.
האם מישהו יכול להציע לי פתרון?
תודה מראש -
@יוסף123 כתב בשיתוף | שרשור חיפוש והחלפה בוורד - אילתורים מקצועיים בוורד:
כל הקטע שמכיל פסוק, השתנה לסגנון החדש, גם טקסט שאינו מנוקד.
צריך לעשות סגנון תו, ולא סגנון פסקה.
-
האם יש אפשרות לעשות חפש את מודגש ולשתול לפניו קוד מסויים וכן לאחריו (כמו שמקודדים בתג)
-
@u88 כתב בשיתוף | שרשור חיפוש והחלפה בוורד - אילתורים מקצועיים בוורד:
האם יש אפשרות לעשות חפש את מודגש ולשתול לפניו קוד מסויים וכן לאחריו (כמו שמקודדים בתג)
-
פוסט זה נמחק!
-
שאלה יש לי כמה קבצים של מאמרים רציתי לבדוק כמה מילים חוזרות על עצמם למשל כמה פעמים המילה את מופיעה או שלנו מופיעה ולפי זה לערוך אותה לבד רק שיציג לי אותם מוגדשות וכו'
יש לי מאקרו שעושה את זה למקטע שלם ולא חלוקת מיליםקוד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 .Paragraphs.Count - 1 Set xRngFind = .Paragraphs(I).Range If xRngFind.HighlightColorIndex <> wdYellow Then For J = I + 1 To .Paragraphs.Count Set xRng = .Paragraphs(J).Range If xRngFind.Text = xRng.Text Then xRngFind.HighlightColorIndex = wdBrightGreen xRng.HighlightColorIndex = wdYellow End If Next End If Next End With End Sub
תודה לעוזרים
-
@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
יישר כח גדול!
בקצרה, אתה גאון! (וגם בעל לב טוב...)