חיפוש פיסקה בת שורה אחת

[ש"ס]

האם ישנה אפשרות לחפש פיסקה בת שורה אחת בלבד בוורד או באינדיזיין?

 

[Rרחמים]

בוורד אפשר עם מאקרו

 

[ש"ס]

אולי יש למשהו מקרו מוכן לזה

 

[Rרחמים]

אין לי מוכן אבל אני יכול להכין
אם הבנתי נכון לחפש פסקה בת שורה אחת זה רק חלק ממשימה אחרת
במה בדיוק מדובר? ומה התכלית בכל זה?

 

[ש"ס]

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

 

[Rרחמים]

אפשר לעשות תוסף לוורד שיהיה לחצן חפש את הבא, ולחצן עצב
כאשר תלחץ על 'חפש את הבא' הבחירה תעבור לפסקה הבאה שיש בה שורה אחת
וכאשר תלחץ על 'עצב' התוסף יעצב את הפסקה בעיצוב שתבחר לכותרות, ומיד יעבור לפסקה הבאה בת שורה אחת

 

[moishy]

תנסה את המאקרו הזה, (יש להחליף את המילים שם הסגנון בשם הסגנון הרצוי):

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

 

[ש"ס]

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

 

[moishy]

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

 

[ש"ס]

mcishy אני ממש מודה לך זה עבד לי מצוין.
תודה רבה ובהצלחה