בקשת מידע | חיפוש והחלפה

[דאנציג]

@ע-amp-amp-amp-quot-ה-דכו-amp-amp-amp-quot-ע כתב בבקשת מידע | חיפוש והחלפה:

@אברהם-0 כתב בבקשת מידע | חיפוש והחלפה:

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

אני חושב שזה יעזור (עם תווים כלליים), תבדוק:

^13?{1,2}^13

זה יעזור למצוא את המקומות שבהם יש פיסקה עם תו בודד, אבל לא תוכל להכיל על כולם יחד סגנון כותרת, משום שזה יכיל את הסגנון גם על הפיסקאות לפני ואחרי (תו מעבר פיסקה ^13 גורם להכליל את כל הפיסקה).
אני לא מכיר דרך אחרת, אבל אולי @menajemmendel יודע.

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

[ע"ה דכו"ע]

@דאנציג כתב בבקשת מידע | חיפוש והחלפה:

@ע-amp-amp-amp-quot-ה-דכו-amp-amp-amp-quot-ע כתב בבקשת מידע | חיפוש והחלפה:

@אברהם-0 כתב בבקשת מידע | חיפוש והחלפה:

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

אני חושב שזה יעזור (עם תווים כלליים), תבדוק:

^13?{1,2}^13

זה יעזור למצוא את המקומות שבהם יש פיסקה עם תו בודד, אבל לא תוכל להכיל על כולם יחד סגנון כותרת, משום שזה יכיל את הסגנון גם על הפיסקאות לפני ואחרי (תו מעבר פיסקה ^13 גורם להכליל את כל הפיסקה).
אני לא מכיר דרך אחרת, אבל אולי @menajemmendel יודע.

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

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

Sub ApplyHeadingBetweenParas()
    ' מנקה הגדרות חיפוש קודמות
    Selection.Find.ClearFormatting                          ' מנקה עיצוב מהחיפוש הקודם 
    With Selection.Find
        .Text = "^13([!^13]){1,2}^13"                         ' מחפש סימן פסקה (ANSI ^013), אחריו 1–2 תווים כלשהם, וסימן פסקה נוסף 
        .MatchWildcards = True                              ' מאפשר שימוש בתווים כלליים (Wildcards) בחיפוש 
    End With

    ' לולאה על כל מופעי ההתאמה במסמך
    While Selection.Find.Execute                             
        Selection.MoveStart Unit:=wdCharacter, Count:=1      ' מזיז את תחילת הבחירה תו אחד קדימה (כדי להחריג את סימן הפסקה הראשון) 
        Selection.Style = ActiveDocument.Styles("הכנס את שם הסגנון") ' מיישם את סגנון "כותרת 1" על ההבחנה
        Selection.Collapse wdCollapseEnd                     ' מצמצם את הבחירה לסופה כדי לחפש את ההופעה הבאה
    Wend
End Sub

החלפתי גם את

^13?{1,2}^13

ל

^13([!^13]){1,2}^13

@אברהם-0

[אברהם 0]

@ע-amp-amp-amp-quot-ה-דכו-amp-amp-amp-quot-ע כתב בבקשת מידע | חיפוש והחלפה:

^13([!^13]){1,2}^13

בפקודה האחרונה הוא מצא רק עד אות י'.
תודה על כל פנים.

[ע"ה דכו"ע]

@אברהם-0 כתב בבקשת מידע | חיפוש והחלפה:

@ע-amp-amp-amp-quot-ה-דכו-amp-amp-amp-quot-ע כתב בבקשת מידע | חיפוש והחלפה:

^13([!^13]){1,2}^13

בפקודה האחרונה הוא מצא רק עד אות י'.
תודה על כל פנים.

במה השתמשת? בחיפוש והחלפה רגיל או במאקרו?
ומה הכוונה מצא עד האות י'? למעט כ' או למעט י"א?

[אברהם 0]

@ע-amp-amp-amp-quot-ה-דכו-amp-amp-amp-quot-ע ברגיל. הוא לא מצא יא והלאה.

[ע"ה דכו"ע]

@אברהם-0 כתב בבקשת מידע | חיפוש והחלפה:

@ע-amp-amp-amp-quot-ה-דכו-amp-amp-amp-quot-ע ברגיל. הוא לא מצא יא והלאה.

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

[אברהם 0]

@ע-amp-amp-amp-quot-ה-דכו-amp-amamp-quot-ע בלי גרשייים.

[ע"ה דכו"ע]

@אברהם-0 כתב בבקשת מידע | חיפוש והחלפה:

@ע-amp-amp-amp-quot-ה-דכו-amp-amamp-quot-ע בלי גרשייים.

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

Sub ApplyHeadingBetweenParas()
    Dim stl as String
    stl = "הכנס כאן את שם הסגנון"
    ' מנקה הגדרות חיפוש קודמות
    Selection.Find.ClearFormatting                          ' מנקה עיצוב מהחיפוש הקודם 
    With Selection.Find
        .Text = "^13([!^13]){1,2}^13"                         ' מחפש סימן פסקה (ANSI ^013), אחריו 1–2 תווים כלשהם, וסימן פסקה נוסף 
        .MatchWildcards = True                              ' מאפשר שימוש בתווים כלליים (Wildcards) בחיפוש 
    End With
 
    ' לולאה על כל מופעי ההתאמה במסמך
    While Selection.Find.Execute                             
        Selection.MoveStart Unit:=wdCharacter, Count:=1      ' מזיז את תחילת הבחירה תו אחד קדימה (כדי להחריג את סימן הפסקה הראשון) 
        Selection.Style = ActiveDocument.Styles(stl) ' מיישם את סגנון "כותרת 1" על ההבחנה
        Selection.Collapse wdCollapseEnd                     ' מצמצם את הבחירה לסופה כדי לחפש את ההופעה הבאה
    Wend
    ' מנקה הגדרות חיפוש קודמות
    Selection.Find.ClearFormatting                          ' מנקה עיצוב מהחיפוש הקודם 
    With Selection.Find
        .Text = "^13([!^13])([!^13])^13"                         ' מחפש סימן פסקה (ANSI ^013), אחריו 1–2 תווים כלשהם, וסימן פסקה נוסף 
        .MatchWildcards = True                              ' מאפשר שימוש בתווים כלליים (Wildcards) בחיפוש 
    End With
 
    ' לולאה על כל מופעי ההתאמה במסמך
    While Selection.Find.Execute                             
        Selection.MoveStart Unit:=wdCharacter, Count:=1      ' מזיז את תחילת הבחירה תו אחד קדימה (כדי להחריג את סימן הפסקה הראשון) 
        Selection.Style = ActiveDocument.Styles(stl) ' מיישם את סגנון "כותרת 1" על ההבחנה
        Selection.Collapse wdCollapseEnd                     ' מצמצם את הבחירה לסופה כדי לחפש את ההופעה הבאה
    Wend
End Sub

[דאנציג]

@ע-amp-amp-amp-quot-ה-דכו-amp-amp-amp-quot-ע

לכאורה אין לו עוד פסקאות בודדות עם שני תווים בלבד, כך שאפשר להגדיל את הטווח:

{1,3}

לא זוכר בדיוק אם את הראשון או את השני...
כך שהמאקרו הראשון גם יעזור.

[ע"ה דכו"ע]

@דאנציג כתב בבקשת מידע | חיפוש והחלפה:

@ע-amp-amp-amp-quot-ה-דכו-amp-amp-amp-quot-ע

לכאורה אין לו עוד פסקאות בודדות עם שני תווים בלבד, כך שאפשר להגדיל את הטווח:

{1,3}

לא זוכר בדיוק אם את הראשון או את השני...
כך שהמאקרו הראשון גם יעזור.

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