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

[רק מה']

מי יכול לשפר את המאקרו הזה שיתן אפשרות למצוא פיסקה עם סמן ובלי ועדיף גם שימצא סגנון בשביל הבחירה
`

Public Sub Demo()
Dim oPara As Paragraph
For Each oPara In ActiveDocument.Paragraphs
If oPara.range.ComputeStatistics(wdStatisticLines) = 1 And oPara.range.Bold = True Then
oPara.range.Style = "שם הסגנון"
End If
Next
End Sub

`

[מאקרו]

@רק-מה אולי תפרט יותר מה אתה רוצה לשפר.

[רק מה']

@מאקרו אני רוצה שיתן לי לבחור בחיפוש סגנון פיסקה ועם סמן או בלי.

[רק מה']

פוסט זה נמחק!

[רק מה']

@מאקרו אשמח למאקרו בוורד שימצא רצף של פיסקאות מודגשות בנות שורה אחת, הראשון עם סימון שיחיל עליו את סגנון כותרות 1, השני בלי סימון כותרת 2 השלישי 3 הרביעי 4.

תודה רבה

[רפרם ב"ר פפא]

@רק-מה
להלן מאקרו כמו שבקשת אלא רק לא מתייחס לסימון בשורה 1
המאקרו עושה שורה ראשונה כותרת 1 שניה 2 וכו' ואם יש הפסק באמצא מתחיל שוב ראשונה 1 שניה 2 וכו' וכו'

Sub החלת_סגנון()
ActiveDocument.Paragraphs(1).Range.Select
For P = 1 To ActiveDocument.Paragraphs.Count
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

בהצלחה בתקווה שהועלתי

[רק מה']

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

[רפרם ב"ר פפא]

@רק-מה
מחפש כל מה שתואם ל טור 1 ומודגש
בהצלחה

[רק מה']

@רפרם-ב-ר-פפא אין לי מילים אנסה ואעדכן את התוצאות בס"ד

[רק מה']

@רפרם-ב-ר-פפא בדקתי.
עושה רושם שזה מוגבל לכמות התווים.
פשוט באמצע הקובץ הוא עצר

[רפרם ב"ר פפא]

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

[רק מה']

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

[רפרם ב"ר פפא]

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

[רק מה']

@רפרם-ב-ר-פפא אני אעלה לך דוגמא של קקובץ בשביל שתביןב.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
תקן אותי אם אני טועה

[רק מה']

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