עזרה | חיפוש שורה בודדת בוורד עם תנאים מסויים

רפרם ב"ר פפא

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

רק מה'

@רפרם-ב-ר-פפא אני אעלה לך דוגמא של קקובץ בשביל שתביןב.docx

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

תודה רבה

רפרם ב"ר פפא

@רק-מה
הנה

Sub החלת_סגנון()
Dim B, I As Double

ActiveDocument.Paragraphs(1).Range.Select
For P = 1 To ActiveDocument.Paragraphs.Count
                   For B = 1 To Selection.Paragraphs.Count
                    Selection.Paragraphs(B).Range.Select
                    Next B
If Selection.PageSetup.TextColumns.Count = 1 And Selection.Range.Bold = True Then
I = I + 1
Selection.Style = ActiveDocument.Styles("כותרת " & I)
Selection.MoveDown wdParagraph, 1
Else
Selection.MoveDown wdParagraph, 1
I = 0
End If
Next P
End Sub

בהצלחה!!!!!

רק מה'

@רפרם-ב-ר-פפא
אין ספק שאתה אלוף!
זה כמעט הצליח.
הוא ביצע את הפעולה גם על רצף של שורות לא מודגשות, וגם הוא העיז לבצע על פיסקאות של 2 שורות לא מודגשות

רפרם ב"ר פפא

@רק-מה
אצלי הוא לא עושה על פסקאות לא מודגשות
ופועל רק על פסקה שכולה מודגשת
זה הקובץ שהעלת לאחר פעולת המאקרו
ב.docx זה לא מה שבקשת?????????????????

רק מה'

@רפרם-ב-ר-פפא בסיס לעלון בהר-בחוקותי תשפג - חלק א 860 - אחרי אילה.docx
העלתי לך קובץ שם בשביל שתראה מה קורה באמצע.
בנוסף לפעמים יש מדורים שמשלימים אח"כ לכן אין את החומר - תראה מה הוא עושה

רפרם ב"ר פפא

@רק-מה
הוא נתקע ועוצר באמצע כי יש יותר מ9 כותרות רצופות
וורד מוגבל לסדרה של 9 כותרות
ולא ניתן לעשות יותר מ9 סדרות של כותרות

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

כנראה עשית יותר מ9 כותרות רצופות ואין לוורד הגדרה ליותר מכותרת 9
תקן אותי אם אני טועה

רק מה'

@רפרם-ב-ר-פפא
שבוע טוב!
בקובץ שהעלתי לך בהתחלה.
היו שאלות בכתב לא מודגש שהוא זיהה אותם ככתורות, מה הסיבה?

רק מה'

@רפרם-ב-ר-פפא שלום רב!
רק בגלל שאתה הוכחת אליפות במאקרו שיצרת אבקש ממש לשדרג לי אותו, שיהיה מוגבל לכמות תוווים מסויימים כי כעת הוא יכול להחיל סגנון גם על כמה שורות.
אולי אם נגדיר לו כמות של תויין או מילים זה יעבוד יותר טוב.
מה אתה אומר?

אשמח לעזרתך
תודה

רק מה'

@רק-מה ?

רק מה'

@רפרם-ב-ר-פפא ?
אתה זמין?

רק מה'

תודה רבה ל מומחה שהוציא מוצר מיוחד מתחת ידיו
@es0583292679

רפרם ב"ר פפא

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

רק מה'

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

רפרם ב"ר פפא

@רק-מה
יפה
לשלם זה נחמד השאלה כמה ועל מה.